|
早速ですが、"1"というシートでユーザーフォームを展開しText boxにidn(数字)を
入力し、”ENTER”というコマンドにより"4"というシート内から検索を実行し、
同一のユーザーフォームに検索結果を反映させ、入力が完了すると完了というコマンドによりそのユーザフォームを閉じ、内容を"1"というシートに反映させるのですが、
マクロの記憶で行うと、"1"→"4"→"1"とシートが移動しています。
検索時に、"1"シート上だけで一連の作業を行いたいのですが、findを使った場合
検索対象範囲指定は、どこにいれるべきなんでしょう?
’1"シート上にてユーザーフォーム展開
’idn入力
Private Sub enter_Click()
'マクロ記憶部
Sheets("4").Select
Colums("B:B").Select
With idn = Selection.Find(What:=idn, After:=ActiveCell,
LookIn:=xlFormulas, LookAt _:=xlPart
, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
End With
'ユーザーフォーム反映部
i = ActiveCell.Row
tid = Sheets("4").Cells(i, 1).Value
jid = Sheets("4").Cells(i, 2).Value
・
・
・
と続きます。
Selectionの部分に代入もできません。
Afterの部分、検索開始セルに入力した場合もエラーになります。
どなたか教えていただけないでしょうか。
|
|