![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になってます。
入力フォームのTextBox1(=By) に文字を入力し検索ボタンを押すと
「data」シートのE列から あいまい一致 した行の中から、指定の4列がリストボックス
に表示されるようにしたいです。
E列以外は数値のため、数字で検索すると思い通りのデータが抽出されます。
が、E列の文字検索だと「13 型が一致しません」となります。
配列がわからず、どこを直せばよいのか四苦八苦しております。
よろしくお願いします。
Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim myData, myData2(), myno
Dim i As Long, j As Long, cn As Long
Dim By As String
With Worksheets("data")
lastRow = .Cells(Rows.Count, 2).End(xlUp).Row
myData = .Range(.Cells(1, 1), .Cells(lastRow, 8)).Value
By = UserForm3.TextBox1.Value
End With
ReDim myData2(1 To lastRow, 1 To 4)
For i = LBound(myData) To UBound(myData)
If myData(i, 5) Like "*" & By & "*" Then ←ここがエラーになります。
cn = cn + 1
myData2(cn, 1) = myData(i, 2)
myData2(cn, 2) = myData(i, 3)
myData2(cn, 3) = myData(i, 5)
myData2(cn, 4) = myData(i, 8)
End If
Next i
With ListBox1
.ColumnCount = 4
.ColumnWidths = "20;60;80;100"
.list = myData2
End With
End Sub
![「VBA 配列で型がエラーになります。」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/542951523_5e58e7ae1091e/M.png)
No.1
- 回答日時:
こんばんは、
検証しましたが、エラーは発生しませんでした。
ステップインまたは、If myData(i, 5) Like "*" & By & "*" Then の前に Stop を挿入するなどして
ローカルウィンドで Byなど各値を確認してみてください。
![「VBA 配列で型がエラーになります。」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/542917474_5e58f79fdbeea/M.png)
検証ありがとうございます。
ローカルウィンドで変数を確認しましたが、
By が式に表示されません。これがマズイのでしょうか。。。
まさにQchanさんの「田中」検索のようにしたかったのですが
どうにもなりませんでした(泣)無念です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで行の高さ及び列幅の...
-
プルダウンに【なし、平均、デ...
-
Excelで並び替え後にア行...
-
Excel2017 フィルタ昇順並びがA...
-
列と行の名前(重複あり)が交...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで文字を含む式に、カ...
-
SUMIFS関数の計算結果が違います
-
エクセルで長い行を5行ごとに1...
-
Excelで、空白を表示したい
-
エクセルで文字が白くなる
-
エクセルのマクロについて教え...
-
別のシートから値を取得するとき
-
タスクマネージャーについて(W...
-
エクセルで需要と供給のグラフ...
-
エクセルの散布図 近似曲線の...
-
スペック足りてるのにゲームが...
-
1年分のデータから特定の月分...
-
エクセルで、金額の後に .― と...
-
エクセル/グラフのデータテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2017 フィルタ昇順並びがA...
-
エクセルで行の高さ及び列幅の...
-
【Excel VBA】指定した行の最大...
-
Excelで並び替え後にア行...
-
急ぎ!色のついたセルを非表示...
-
エクセルの時刻のカウントが出...
-
オートフィルタ後のデータから...
-
基準日以前のデータを範囲を指...
-
EXCEL 最終行のデータを他のセ...
-
マクロで行の高さを設定したい
-
EXCELで日付を比べ3か月以内の...
-
エクセル関数について
-
文字列を比較し、相違するフォ...
-
エクセル VBA 行間隔を飛ばした...
-
Excel VBAでセルのクリアが出来...
-
【Excel】数式の参照範囲を可変...
-
excel / ピポッド 日数を出したい
-
時間の重複チェック
-
検索条件に合うセルの個数を数...
-
複数回答のクロス集計の方法
おすすめ情報