|
いつも参考にさせて頂いてます。
検索についてご教示下さい。
まず、ワークシートには下記のデータベースがあります。
A B C D E
1 ○○太郎
2 △△次郎
3 □□五郎
4 ◇◇博司
5
6
7
このような状態で、ユーザフォーム上のTextBox1に名前
を入力し検索ボタンをクリック、B列の番号を取得しTextB
ox2に表示する...と言う記述を構文しましたが動作しません。
↓
Private Sub CommandButton9_Click()
Dim F As Range
Dim V As Variant
V = Me.TextBox1.Value
If V = "" Then Exit Sub
Set F = Range("D8:D3007").Find(what:=V, LookIn:=XValues, lookat:=xlWhole)
With Me.ComboBox1
If F Is Nothing Then
.Value = "NotFound"
Else
.Value = F.Offset(, 1).Value
End If
End With
End Sub
↓
どこが間違っているのでしょうか?
宜しくお願い致します。
|
|