すいません、EXCEL VBAのコンボボックスにデータを取り込む方法について教えていただきたいことがあります。
(1)「シート1」のA列にデータが入力されている
(2)ユーザーフォームにコンボボックスを設置し、このA列のデータを取り込む。
このときにA列に入っているデータの数だけ取り組むにはどうしたらいいのでしょうか。
シート1
A列
1行 11
2行 21
3行 31
・ ・
・ ・
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("シート1").Range("?")
End Sub
?の部分がわかりません。End(xlup)のようなものを使ってデータが入っている最後の行を調べるのかと思いましたが、どうもうまくいきませんでした。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
>ComboBox1.RowSource = Sheets("シート1").Range("?")
これでは、”シート1” がアクティブの場合しか上手くいきません。
シート1がアクティブでなくても上手く動作させるためには、シート名も付加すること。
リストが、Sheet2 の A1~任意行までの場合
'------------------------------------------------------
Private Sub UserForm_Initialize()
Dim LastRow As Long
LastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.RowSource = "Sheet2!A1:A" & LastRow
End Sub
'-------------------------------------------------------
また、リスト範囲の値を直に設定する方法もありますが、
それはも少し慣れてからでいいでしょう。
以上。
できました!ありがとうございます!
ComboBox1.RowSource = "Sheet2!A1:A" & LastRow
の部分が自分は知らないコードで悪戦苦闘していました。
またよろしくお願いいたします。
No.1
- 回答日時:
無理に(Sheet1は平凡なので)Sheet4のA1:A4に
x
y
z
d
と入れて
Private Sub UserForm_Initialize()
d = Worksheets("Sheet3").Range("A100").End(xlUp).Row
'sgBox d
Me.ComboBox1.RowSource = "A1:A" & d
End Sub
を作っておくと、
フォームを開くと
コンボに
x
y
z
d
が出ましたよ。
RowSourceはRange表示で指定なく、文字列表示指定のようだ。これも経験。
できました。
Me.ComboBox1.RowSource = "A1:A" & d
というコードを知らなくて自分で色々と試してみましたが
どうしてもできませんでした。非常に助かります。
また何かありましたらよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。 6 2023/03/21 16:12
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
コンボボックスのリストのテーブルからの直接取得の方法
Visual Basic(VBA)
-
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。
Visual Basic(VBA)
-
-
4
UserForm1.Showでエラーになります。
工学
-
5
エクセルVBA 別シートからのコンボボックス連動
Visual Basic(VBA)
-
6
【Excel VBA】コンボボックスで選択した値の取得
Excel(エクセル)
-
7
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
8
[エクセルVBA] コンボボックスのリストの更新方法について
Excel(エクセル)
-
9
EXCEL リストボックスのRowSouce欄が表示されない
Excel(エクセル)
-
10
VBAでシートからコンボボックスにデータを設定する方法
Visual Basic(VBA)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBAコンボボックスの内容が反映されない
その他(プログラミング・Web制作)
-
13
ExcelVBA コンボボックスに入力があったらリンクしてテキストボックスを更新したい
Access(アクセス)
-
14
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
リストボックスの項目に、他のブックのセルの値を設定するには?
Access(アクセス)
-
18
VBA コンボボックスで選んだ値を取得するには
その他(Microsoft Office)
-
19
VBAでオプションボタンによってコンボボックスの内容を変える方法
Visual Basic(VBA)
-
20
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの保護で、列の表示や...
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
エクセル マクロ 標準モジュー...
-
【条件付き書式】countifsで複...
-
エクセルのブック分割マクロを...
-
Excel複数シートにあるデータを...
-
VBAで繰り返しコピーしながら下...
-
エクセルVBAで、ある文字を含ん...
-
スプレッドシートでindexとIMPO...
-
Excel 2段組み
-
Excel VBA ピボットテーブルに...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
Excel の複数シートの列幅を同...
-
VLOOKアップ関数の結果の...
-
【エクセル】1列のデータを交...
-
エクセルの横に並んでいるもの...
-
エクセルの列の限界は255列以上...
-
EXCELシートの整列
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセル マクロ 標準モジュー...
-
VLOOKアップ関数の結果の...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
オートフィルタ使用時にCOUNTIF...
-
スプレッドシートでindexとIMPO...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
Excel複数シートにあるデータを...
おすすめ情報