【用語集に記載の内容について】
用語集に記載されているメソッドや関数の引数は、VBAエキスパート試験の試験範囲に基づいており、すべての引数を網羅しておりません。
また、書式は公式テキストの記載に準じています。
試験範囲外の引数や詳細については、ヘルプ機能やオブジェクトブラウザーをご参照ください。
【コードをコピーして実行する場合の注意】
文字コードの関係上、半角の「￥」は「/」で表示されるため、当サイトでは全角の「￥」で記載しています。当サイトのコードをコピーして実行する場合は、全角の「￥」を半角の「￥」に変換してください。
Is演算子
| 名称 | Is演算子 | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| 説明 | 左辺のオブジェクトと右辺のオブジェクトが等しいかどうかを比較する演算子です。 Findメソッドを実行し、検索したセルか見つかったかどうかの判定などに使用されます。 |
||||||||||
| 書式 |
【オブジェクト変数に格納されている値がNothingか判定】
If 変数名 Is Nothing Then
処理
End If
|
||||||||||
| コード例① |
【Findメソッドの戻り値をIfステートメントで判定】
Sub Macro1()
Dim cell As Range
'Findメソッドで「メロン」を検索
Set cell = Range("A1:A4").Find(What:="メロン", Lookat:=xlWhole)
'検索値が見つからない場合はNothingが格納される
If cell Is Nothing Then
MsgBox "メロンはありません"
End If
End Sub
Findメソッドで、アクティブシートのセル範囲A1:A4で「メロン」を検索します。 検索値が見つからない場合は、オブジェクト変数cellにNothingが格納されます。 Ifステートメントでオブジェクト変数cellの値がNothingかを判定します。 <変数cellの値がNothingの場合> 「メロンはありません」のメッセージボックスが表示されます。 マクロを実行すると、アクティブシートのセルが以下の場合、「メロンはありません」のメッセージボックスが表示されます。
|
||||||||||
| カテゴリ | ベーシック・スタンダード |