| |
いつも参考にさせて頂いてます｡
検索についてご教示下さい｡
まず､ワークシートには下記のデータベースがあります｡
A B C D E
1 ○○太郎
2 △△次郎
3 □□五郎
4 ◇◇博司
5
6
7
このような状態で､ユーザフォーム上のＴｅｘｔＢｏｘ１に名前
を入力し検索ボタンをクリック､Ｂ列の番号を取得しＴｅｘｔＢ
ｏｘ２に表示する...と言う記述を構文しましたが動作しません｡
↓
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
↓
どこが間違っているのでしょうか？
宜しくお願い致します｡
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
