Excel VBA スタンダード模擬問題　①　第16問　6章-2

次のコードは、セル範囲A1:A11で"東京"を「部分一致」で検索し、見つかったセルの右隣にセルの値を入力するマクロである。空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Dim A As Range

　Set A = Range("A２:A11").Find(What:="東京", Lookat:=【　①　】)

　　A.Offset(0, 1)　= 750

End Sub

正解

【　①　】xlpart

解説

"東京"で部分一致で検索し「東京都」のセルを見つけています。

部分一致で検索する時はLookat:=に定数「xlPart」を指定し、完全一致で検索しする時は「xlWhole」を指定します。

[コード解説]

Sub Exam1()

　Dim A As Range

' 検索結果を格納するためのRange型変数Aを宣言します。

　Set A = Range("A2:A11").Find(What:="東京", LookAt:=xlPart)

' Findメソッドを使用して、範囲A2:A11の中から
' "東京"を含むセルを検索し、そのセルを変数Aに設定しています。
' LookAt:=xlPartにより、部分一致で検索を行います。

　　A.Offset(0, 1) = 750

' 見つかったセルの右隣（同じ行の1列右）のセルに750を入力しています。

End Sub