よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13298 / 2階層)  Excel(エクセル) VBA入門:検索結果をリストボックスに表示する
□投稿者/ なお Mail -(2018/09/20(Thu) 18:35:08)
    ご返答ありがとうございます。
    郵便番号や都道府県でも検索を追加したいと考えております。
    コンビボックス(cmb区分)とテキストボックス(textbox3)を追加して、検索は出来るようになったのですが、テキストボックスとコンビボックスを空欄にして検索すると、「インデックスが有効範囲にありません」と表示されてしまいます。
    どうしても回避できないですが、アドバイスいただけないでしょうか。

    ------以下入力内容---------------

    '検索を実行します。部分一致検索を行っています。
    Private Sub CommandButton1_Click()
    Dim lastRow As Long
    Dim myData, myData2(), myno
    Dim i As Long, j As Long, cn As Long

    ' If TextBox1.Value = "" Or cmb区分.Value = "" or TextBox3.Value = "" Then End

    '検索するデータを配列 myData に格納しています。
    With Worksheets("Sheet1")
    myData = .Range(.Cells(1, 1), .Cells(Rows.Count, 6).End(xlUp)).Value
    lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    End With

    '配列 myData の中で検索で一致したデータを配列 myData2 に格納しています。
    ReDim myData2(1 To lastRow, 1 To 5)
    For i = LBound(myData) To UBound(myData)
    If myData(i, 2) Like "*" & TextBox1.Value & "*" And myData(i, 3) Like "*" & cmb区分.Value & "*" And myData(i, 4) Like "*" & TextBox3.Value & "*" Then
    cn = cn + 1
    myData2(cn, 1) = myData(i, 1)
    myData2(cn, 2) = myData(i, 2)
    myData2(cn, 3) = myData(i, 3)
    myData2(cn, 4) = myData(i, 4)
    myData2(cn, 5) = myData(i, 5)
    End If
    Next i

    '検索で一致したデータをリストボックスに表示します。
    With ListBox1
    .ColumnCount = 5
    .ColumnWidths = "30;70;70;100;100"
    .List = myData2
    End With

    End Sub
記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[1]: Excel(エクセル) VBA入門:検索結.. /よねさん →Re[3]: Excel(エクセル) VBA入門:検索結.. /よねさん
 
上記関連ツリー

Nomal Excel(エクセル) VBA入門:検索結果をリ.. / なお Mail (18/09/19(Wed) 12:52) #13296
Nomal Re[1]: Excel(エクセル) VBA入門:検索結.. / よねさん (18/09/19(Wed) 14:22) #13297
  └Nomal Excel(エクセル) VBA入門:検索結果をリ.. / なお Mail (18/09/20(Thu) 18:35) #13298 ←Now
    └Nomal Re[3]: Excel(エクセル) VBA入門:検索結.. / よねさん (18/09/21(Fri) 07:46) #13299
      └Nomal Re[4]: Excel(エクセル) VBA入門:検索結.. / なお Mail (18/09/25(Tue) 13:16) #13300
        └Nomal Re[5]: Excel(エクセル) VBA入門:検索結.. / よねさん (18/09/25(Tue) 15:32) #13301
          └Nomal Re[6]: Excel(エクセル) VBA入門:検索結.. / なお Mail (18/09/25(Tue) 17:21) #13302
            └Nomal Re[7]: Excel(エクセル) VBA入門:検索結.. / よねさん (18/09/25(Tue) 17:51) #13303
              └Nomal Re[8]: Excel(エクセル) VBA入門:検索結.. / よねさん (18/09/26(Wed) 07:50) #13304
                └Nomal Re[9]: Excel(エクセル) VBA入門:検索結.. / やーまん (18/10/23(Tue) 00:37) #13316
                  └Nomal Re[10]: Excel(エクセル) VBA入門:検索.. / よねさん (18/10/23(Tue) 08:36) #13318
                    └Nomal Re[11]: Excel(エクセル) VBA入門:検索.. / やーまん (18/10/23(Tue) 09:37) #13319
                      └Nomal Re[12]: Excel(エクセル) VBA入門:検索.. / よねさん (18/10/23(Tue) 10:54) #13321
                        └Nomal Re[13]: Excel(エクセル) VBA入門:検索.. / やーまん (18/10/23(Tue) 17:09) #13324
                          └Nomal Re[14]: Excel(エクセル) VBA入門:検索.. / よねさん (18/10/24(Wed) 07:11) #13325
                            └Nomal Re[15]: Excel(エクセル) VBA入門:検索.. / やーまん (18/10/25(Thu) 17:03) #13332

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -