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

解決済みの質問

excelVBAのコンボボックスについて

excelVBAのコンボボックスについて質問です。
ユーザーフォームに設置したコンボボックスに違うシートの特定範囲を設定するには
どのようにプログラムすればよろしいでしょうか?
自分なりにいろいろ調べてみたのですが解決できませんでした。


要約すると
ユーザーフォームはsheet1からボタンで起動させ(ここまでは苦もなくできました)、でてきたユーザーフォームにあるコンボボックスにsheet2にある特定範囲


また、この特定範囲をデータのある範囲だけ(データが追加されれば自動でそれを取得する)に設定することは可能ですか?

投稿日時 - 2013-11-12 21:44:10

QNo.8344964

困ってます

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

こんばんは!

>sheet2にある特定範囲

が具体的にどの列か判らないので、
A2セルからA列最終行までとしてみました。

Private Sub UserForm_Initialize()
Dim endRow As Long
endRow = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.RowSource = "Sheet2!A2:A" & endRow
End Sub

こんな感じではどうでしょうか?m(_ _)m

投稿日時 - 2013-11-12 22:26:14

お礼

ありがとうございますm(_ _)m
sheet2からやっと参照できました!

投稿日時 - 2013-11-13 00:07:07

ANo.1

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

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

回答(1)

あなたにオススメの質問