Excel VBA スタンダード 模擬問題 ② 6章-8

以下のコードはセルを検索し見つかった場合は、セルをコピーするマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()
　Dim N As Range
　　Set N = Cells.Find (What:=”東京”,【　①　】:=xlWhole)
　　　　If Not N Is Nothing Then
　　　N.Copy Range(”E2”)
　End If
End Sub

正解

【　①　】 LookAt

解説

構文：セル範囲 Find (What:=検索する語句, LookAt:= 一致条件の定数)

xlWhole…完全一致

If Not N Is Nothing Then…見つかった場合は

　　　　　前へ　　　　　　次へ