マルチドメイン対応レンタルサーバー【シックスコア】
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
エラーの対処
※もし見つからなかった場合はどうなるのか。
検索文字に「地理」を入力してプログラムを実行すると、下のようになります。
上記のように「実行時エラー」という表示が出てしまいます。
Findメソッドは、検索値が見つからない場合、「Nothing」という状態を返します。
ですからFindメソッドを使用する場合は「見つからなかった」場合の処理を
考えておく必要があります。
上記のように修正しました。
Sub 検索4()
Dim kw As Variant
Dim mc As Range
kw = Sheets("sheet1").Range("f2")
Set mc = Range("A1").CurrentRegion.Find(what:=kw)
If mc Is Nothing Then
MsgBox "見つかりませんでした"
Else
mc.Select
End If
End Sub
ここで「CurrentRegion」という記述がありますね。
「Range("A1").CurrentRegion」これでセットになり、A1を含んだ入力済みの
セルの範囲を選択します。
この場合ですと、A1からC6の範囲が入力済みセルのひとかたまりですね。
このプログラムを実行すると
上記のようになり、「ＯＫ」するとプログラムは終了します。
