Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9813 / 76734

←次へ　｜　前へ→


	【72478】Re:Rowsourceで範囲を列にする方法

Yuki - 12/8/14(火) 15:03 -


	引用なし

	パスワード

▼Aoichi さん：
>CombBoxで範囲を列にして表示したいのですが
>うまくいきません
>Private Sub UserForm_Initialize()
>　　　Dim sht As Worksheet　　
>　　　Set sht = Workbooks("A1Book.xls").Worksheets("項目")
>　　　sht.Activate
>　　　UserForm.ComboBox項目.RowSource = "項目!A2:AY2"
>　　’　A2からAY2の値を表示したいのです
>　　’　ComboBox項目にA2の値しか表示しません
>　　
>　　' UserForm.ComboBox項目.RowSource = "項目!A2:A55"
>　　’行を範囲すると全て表示できます
>End Sub
>
With Me.ComboBox1
　　.Column() = Range("A2:AY2").Value
End With
とかにしましょう。
シート名は省いていますよ。

4 hits

▼

【72474】Rowsourceで範囲を列にする方法 Aoichi 12/8/14(火) 11:23