|
みなさん こんにちは。
やっとセルが繋がっているという意味がわかりました。
シート全体を空白があっても検索したかったのでこれじゃ駄目だったんですね。
で、ヘルプを見て何か無いかと探したら、いい(?)サンプルがあったので使わせてもらいました。
------- ここから -------
Sub Kensaku2()
With Worksheets(1).Range("A1:Z256")
Set c = .Find("テスト", LookIn:=xlValues)
If c Is Nothing Then
MsgBox ("Nothing")
Else
MsgBox c.Address
End If
End With
End Sub
------- ここまで -------
出来れば Range部分でA1〜Z256みたいな固定的な指定をするのではなく
普通に全体を検索するものを作りたかったんですが、勉強不足みたいですね。
そこで、最後にお聞きしたいのですが
Range やら Find 、Workbook などのプロパティやメソッドの事が
辞書(ランタイムライブラリー?)みたいになっているようなお勧めの本があったら教えて下さい。
よろしくお願いします。(HELPじゃ、探しにくくて…)
取り合えず、今から本屋に走ります。
|
|