こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

検索 マクロ

本を見ながら作ったのですが
検索してくれるのですが
A列を検索してくれるのですが検索したいのは
B列の4番目から下にあるだけ検索したいのですが
どういじればいいのでしょうか?

Option Explicit
Private lastRow As Long
Private Index As Integer
Private Sub UserForm_Activate()
Dim i As Long
lastRow = Worksheets("顧客情報").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lastRow <= 3 Then
MsgBox "データがありません。"
Exit Sub
End If
For i = 3 To lastRow
名前リストボックス.AddItem Cells(i, 1)
Next
End Sub
Private Sub 検索ボタン_Click()
Dim searchName As String
searchName = 検索名前テキストボックス.Text
If searchName = "" Then
MsgBox "検索する名前を入力してください。"
Else
Dim i As Long
Dim no As Long
For i = 0 To 名前リストボックス.ListCount - 1
If 名前リストボックス.List(i) = searchName Then
no = i
名前リストボックス.ListIndex = no
Exit For
ElseIf i >= 名前リストボックス.ListCount - 1 Then
MsgBox "該当なし。"
Exit For
End If
Next
Index = no + 3
Rows(Index).Select
End If
End Sub

大変申し訳ございませんが、この投稿に添付された画像や動画などは、「BIGLOBEなんでも相談室」ではご覧いただくことができません。 OKWAVEよりご覧ください。

マルチメディア機能とは?

投稿日時 - 2016-10-04 12:11:25

QNo.9238039

困ってます

質問者が選んだベストアンサー

こんにちは
For i = 4 To lastRow
  名前リストボックス.AddItem Cells(i, 2)
Next
ですか?

投稿日時 - 2016-10-04 12:18:58

お礼

できました
ありがとうございます

投稿日時 - 2016-10-04 15:07:23

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問