| |
▼AoYasu さん：
>ワイルドカードを用いて検索をしているのですが
>検索項目で
> 西東京
> 東京
> 東京熱
> ・
> ・
「完全一致」検索ですからワイルドカード不要では？
以下、参考です
Sub test1()
Dim r As Range
Dim c As Range
Set r = Range("A1:A3")
Set c = r.Find("東京", LookAt:=xlWhole)
If Not c Is Nothing Then
MsgBox c.Address(0, 0) & " に見つかりました"
End If
End Sub
Sub test2()
Dim r As Range
Dim m As Variant
Set r = Range("A1:A3")
m = Application.Match("東京", r, 0)
If IsNumeric(m) Then
MsgBox r(m).Address(0, 0) & " に見つかりました"
End If
End Sub
Sub test3()
Dim r As Range
Dim c As Range
Set r = Range("A1:A3")
For Each c In r
If c.Value Like "東京" Then
MsgBox c.Address(0, 0) & " にあります"
End If
Next
End Sub
|
|
kanabun
- 12/2/28(火) 10:02 -
