【カテゴリー別】Excel VBA スタンダード 模擬問題　セルの検索

次のコードは、指定のセル範囲内で「Banana」という値を検索し、そのセルをコピーしてセルの背景を黄色にするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Range

　　Set N = Range("B2:B10").( :="Banana", Lookat:=xlWhole)

　　If Not N Is Nothing Then

　　　N.Copy Range("C2")

　　　　Range("C2").Interior.Color = vbYellow

　　End If

End Sub

次のコードはセルを検索し見つかった場合は、セルのアドレスを表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Range

　Set N = Range("A2:D10").Find(What:="Italy", :=xlWhole)

　If Not N Is Nothing Then

　　　MsgBox N.Address

　End If

End Sub

以下のコードは、セル範囲B2からB10を"UN"を「完全一致」で検索し、

見つかったセルの左隣のセルに値を入力するマクロである。

空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range("B2:B10").Find(What:="UN", Lookat:= )

　If Not A Is Nothing Then

　　A.Offset(0, -1) = 500

　End If

End Sub

次のコードは実行すると「Banana」と表示するマクロである。

以下の空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Dim A As Range

　　Set A = Range("A2:A10").Find(What:=" ", LookAt:= xlWhole)

　MsgBox A.Offset(0, 1)

End Sub

次のコードは、セル範囲A1:A10の中から「RED」という文字を含むセルを検索するマクロである。

空欄 に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Range

　　　Set N = Range("A1:A10").)(What:="RED", LookAt:=)

　　If Not N Is Nothing Then

　　MsgBox N.Address

　End If

End Sub

次のコードは、B列全体から"Japan"を検索し、見つかったセルの２つ右のセルに”ASIA”を入力するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range ("") .Find(What:="Japan")

　If Not A Is Nothing Then

　　A.Offset(0, 2) = "ASIA"

　End If

End Sub

以下のコードは、2列目で「Japan」を検索し、見つかったときは1つとなりのセルの３列目に「ASIA」を代入し、見つからなかったときは「0」と表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

  Set A = Range("B:B").Find(What:="Japan")

　If A Is   Then

　　MsgBox "0"

　Else

　　A.Offset(0, 1) = "ASIA"

　End If

End Sub

次のコードはセルを検索し見つかった場合は、セルのアドレスを表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Range

　Set N = Range("A2:B11").Find(What:="Baseball", Lookat:=xlWhole)

　If N Is  Then

　　　MsgBox N.Address

　End If

End Sub

次のコードは、B列で"Japan"を探し、見つかったセルを含む行全体を削除するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 Dim A As Range

 Set A = Range("B:B").Find(What:="Japan")

 If A Is Nothing Then

   MsgBox "見つかりませんでした"

 Else

  A..Delete

 End If

End Sub

次のコードは表内を検索するマクロである。実行すると”Soccer”と表示された。

空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range("A2:A10").Find(What:="8", Lookat:= xlWhole)

　　MsgBox A.Offset  

End Sub

以下のコードは、実行すると値を表示するマクロである。

実行後、表示された値は である。

空欄に入る値を解答しなさい。

Sub Exam1()

　Dim A As Range

　　Set A = Range("B:B").Find(What:="United States")

　If A Is Nothing Then

　　MsgBox "0"

　Else

　　A.Offset(0, 1) = A.Offset(0, 1) *0.5

　　　MsgBox A.Offset(, 1).Value

　End If

End Sub

以下のコードは、A列を検索し、見つかったセルからC列までをセルE2へコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

　　Set A = Range("A:A"). Find (What:="8")

　　If A Is Nothing Then

　　　MsgBox "0"

　　Else

　　　Range(A, A.End()).Copy Range("E2")

　　End If

End Sub

次のコードは、1列目を"7"で検索し、見つかったセルを含む１列目から3列目までのセルをコピーし貼り付けするマクロである。

マクロ実行後セルF2内の値はである。
空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range("A:A").Find (What:="7")

　If A Is Nothing Then

　　　MsgBox "0"

　Else

　　A.Resize (1, 3). Copy Range("E2")

　End If

End Sub

次のマクロは検索したセルの範囲を変換しコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range("A:A").Find (What:="7")

　If A Is Nothing Then

　　　MsgBox "0"

　Else

　　A. (1, 3).Copy Range("E2")

　End If

End Sub