| |
>ユーザーフォーム上にA列検索語入力用のテキストボックス1
>【A列は半角英数字のみ、重複はありません。】、
重複がなければ、Match関数を使ったほうが検索は速いですよ！！
まッ、それはそれとして・・・・・。
>Private Sub commandbutton1_Click()
>Dim 検索名 As Variant
>If Not textbox1.Value = Empty Then
>
>Set 検索名 = Columns("A:A").Find(commandbutton1, LookIn:=xlValues)
>
>If Not 検索名 Is Nothing Then
>
>検索名.Activate
>
>Else
>
>MsgBox "検索した番号は登録されていません。"
>commandbutton1.Value = Empty
>
>End If
>
>End Sub
の
>Set 検索名 = Columns("A:A").Find(commandbutton1, LookIn:=xlValues)
このコードでよくTextbox1に入力された文字列でＡ列の検索ができましたねえ・・。
Set 検索名 = Columns("A:A").Find(Textbox1.Value, LookIn:=xlValues)
の記述間違いですか？
だとしたら、
If Not 検索名 Is Nothing Then
検索名.Cells(1, 9).Select
End If
このようにすると、検索値のセルの同行のＩ列の選択が可能になると思います。
尚、入力データ（Ａ列の検索セル範囲の値）も具体的に値を
提示してください。８００行全部提示してとは言いませんが、
せめて１０行ぐらいは提示してください。
なるべく、投稿者と閲覧者が同期のとれる記述を心がけてください。
|
|
ichinose
- 11/9/11(日) 22:32 -
