Excelで検索結果表示の修正

質問

下記のマクロでA列だけ検索できるようにしたいのですが、どこを修正したらいいのか教えてください。

Private Sub CommandButton1_Click()
AAA
End Sub

Sub AAA()

strMoji$ = UserForm1.TextBox1.Text

If UserForm1.TextBox1.Text = "" Then
MsgBox "検索条件を入力してください。", 48
Exit Sub
End If
On Error GoTo Fail
Cells.Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate

lonNUM& = Selection.Row
UserForm1.TextBox2.Text = Cells(lonNUM, 2).Value
UserForm1.TextBox3.Text = Cells(lonNUM, 3).Value

Exit Sub
Fail: MsgBox "該当なし", 48
End Sub

Private Sub UserForm_Click()

End Sub

回答No.2

keirika · ベストアンサー

Sheet1のA列を検索すると仮定します。

CellsをWorksheets("Sheet1").Range("a:a")に変えてください

お礼

有難うございました。

回答No.1

masa_019

とりあえず、

Cells.Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate

の部分を、

Columns(1).Find(What:=strMoji, After:=Range("A1"), LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate

に変えてみてはどうでしょう？

お礼

有難うございました。
やってみたのですが、次の検索ができませんでした。