下記のように範囲を変数で検索指定したいのですが、うまくいきません。VBAは初心者です。誰か助けて。
内容は・・・五十音順にあるリストを作り、ウ音のみをListBoxに表示したいのですが。
Private Sub ToggleButton3_Click()
Dim A As Range
Dim BBB As String
Dim C As Range
Dim DDD As String
Set A = Cells.Find(what:="ウ", lookat:=xlWhole)
BBB = Cells(A.row, A.Column + 1).Address
Set C = Cells.Find(what:="エ", lookat:=xlWhole)
DDD = Cells(C.row - 1, C.Column + 1).Address
ListBox商品名.RowSource = "BBB:DDD"
End Sub
PS 違う方法でもいいのでどなたか教えてください。
No.1ベストアンサー
- 回答日時:
ListBox 及び ToggleButton はユーザーフォーム上ではなく、シート上に配置されているのでしょうか?
もしそうでしたら下記の記述に変更すれば大丈夫なハズですよ。
シート上に配置されている場合、ListBoxの範囲指定は、RowSource ではなく ListFillRangeを使用します。また範囲は、変数と文字を連結した文字列を代入すれば大丈夫です。
ListBox商品名.ListFillRange = BBB & ":" & DDD
もし、ユーザーフォーム上でのご質問でしたら、全く内容が異なりますので補足願います。
ありがとうございました。ListBox商品名.ListFillRange = BBB & ":" & DDD で解決しました。 つまり、文字列を接続する演算子が分からなかったみたいでした。 ちょっとした事だったんだけど、助かりました。もっと勉強していきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
楽天RSSからエクセルVBAを使用...
-
VBAで変数の数/変数名を動的に...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
100万件越えCSVから条件を満た...
-
VBA 最終行を選んだシートにコ...
-
Excel2013で切り取り禁止
-
VBA 空白行に転記する
-
Excel VBA オートフィルターで...
-
ExcelのVBマクロを、バックグラ...
-
VBAでEXCELから固定長...
-
1004RangeクラスのPasteSpecial...
-
ExcelのVBA ListBox.RowSource...
-
Count Ifのセルの範囲指定に変...
-
VBAで複数のエクセルシートから...
-
VBA Userformで一部別シートに...
-
月毎に現金出納帳に転記するコ...
-
B列の最終行までA列をオート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
Unionでの他のシートの参照につ...
-
複数シートの複数列に入力され...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
VBA Userformで一部別シートに...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBAでEXCELから固定長...
おすすめ情報