| |
▼ichinose さん：
こんにちわm(_ _)m
まもなくパパです。
度重なる不手際により、ichinoseさんをはじめ、他の閲覧者様にも
ご迷惑をお掛けしております。
A列の検索セル範囲の値につきましてですが、
1文字目が必ず半角アルファベット（A〜Zの大文字です）
2文字目〜15文字までが必ず半角数字になる部品のＮｏになります。
例
A00000000000001
B12345678901234
：
Z99999999999999
等の数字から800種類の部品Ｎｏを扱っております。
下記にてご教授頂きましたコードにてI列の選択が可能になりました。
有難う御座いました。
これから、参考書、過去の投稿を基にVBAを猛勉強して参ります。
また、不明点がありましたら、ご迷惑にならない様
投稿させて頂きたいと思いますので、その際はどうぞ宜しくお願い致します。
以上
>>ユーザーフォーム上に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
>
>このようにすると、検索値のセルの同行のＩ列の選択が可能になると思います。
>
>尚、入力データ（Ａ列の検索セル範囲の値）も具体的に値を
>提示してください。８００行全部提示してとは言いませんが、
>せめて１０行ぐらいは提示してください。
>なるべく、投稿者と閲覧者が同期のとれる記述を心がけてください。
|
|
まもなくパパ
- 11/9/12(月) 14:29 -
