以下のコードはセルを検索し見つかった場合コピーするマクロである。空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim N As Range
Set N = Cells.【 ① 】(【 ② 】:=”東京”, LookAt:=xlWhole)
If Not N Is Nothing Then
N.Copy Range(”C2”)
End If
End Sub
正解
【 ① 】find
【 ② 】what
解説
セルの検索構文以下の通り
構文:セル範囲. Find (What:= 検索する語句, LookAt:= 検索一致条件の定数)
LookAt以降に検索の一致条件の定数を指定します。完全一致で検索する場合は xlWhole 部分一致で検索する場合は xlPart を指定します。
なおLookAtや以降の一致条件の定数は省略可能です。その場合前回指定した一致条件が引き継がれます。
省略可能: LookAt:= xlWholeやxlPartなどの一致条件の定数
If Not N Is Nothing Then …は検索する語句が見つかった場合はそれ以降の処理を行います。
スポンサーリンク
スポンサーリンク