Excel スタンダード 問題 6 – 18
インプットボックスに入力した文字列がA列にあるか探し、見つからない場合は「該当なし」、見つかった場合は見つかった文字列のアドレスを表示したい。このとき、【 1 】に入る適切な内容を答えなさい。なお、大文字と小文字は区別せずに検索するものとする。
Sub Test1()
Dim A As String, B As Range
A = InputBox("分類コードを入力して下さい")
Set B = Range("A:A").Find(What:=A, 【 1 】:=False)
If B Is Nothing Then
MsgBox "該当なし"
Else
MsgBox B.Address
End If
End Sub
正解を見る
正解
MatchCase
解説
Findメソッドは、指定の範囲から条件に当てはまるセルを検索します。
Findメソッドの引数には、検索したい条件を指定します。
引数「MatchCase」は、大文字と小文字を区別して検索するかどうかを指定します。
区別する場合は「True」、この問題のように区別しない場合は「False」を指定します。
なお、インプットボックスは、以下の図のようにユーザーが入力できるフォームです。
セルのアドレスを取得するには、Addressプロパティを使います。
この問題のプログラムでは、セル「A5」に入力した文字列がある場合、「A5」のアドレスを取得して、「$A$5」と表示します。
「InputBox」「Address」は公式テキストに載っていませんが、よく使われるコードのため、見慣れておきましょう。