| |
ichinose さん
ご返答有難う御座います。
VBAの経験は１か月前くらいから始めました。
早速、参考書を参照しながら記述してみました。
検索内容を見直しました。
ユーザーフォーム上にA列検索語入力用のテキストボックス1
【A列は半角英数字のみ、重複はありません。】、
検索開始のコマンドボタン1、
ユーザーフォーム終了用のコマンドボタン2
というフォーム表示にして
該当する行へセルを移動できるようにしてみました。
Private Sub commandbutton2_Click()
Unload Me
End Sub
Private Sub textbox1_Change()
End Sub
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
上記コードにてA列の縦セル検索を行い、アクティブセルを移動出来るようになったのですが、
そのアクティブセルの位置をI列に表示させることは可能なのでしょうか？
【A列で検索→該当した行のI列にアクティブセルを移動】
参考書ではそこまでの事は記載されておりませんでした。
このような場合はどうすれば宜しいでしょうか？
宜しくお願い致します。
|
|
まもなくパパ
- 11/9/11(日) 9:33 -
