Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36621 / 76738

←次へ　｜　前へ→


	【45296】検索につきまして

たそがれ - 06/12/18(月) 14:53 -


	引用なし

	パスワード

いつも参考にさせて頂いてます｡
検索についてご教示下さい｡
まず､ワークシートには下記のデータベースがあります｡

　　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
　↓
どこが間違っているのでしょうか？
宜しくお願い致します｡

0 hits

▼

【45296】検索につきまして たそがれ 06/12/18(月) 14:53

≪