Excel VBA質問箱 IV

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

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


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

19712 / 76732

←次へ　｜　前へ→


	【62448】Re:コンボボックスの表示について

ひつまぶし - 09/7/22(水) 17:19 -


	引用なし

	パスワード

>UserForm1.Controls("ComboBox" & cboNumberYear).RowSource = _
>　　　　　 Worksheets("RowSource_List").Range("B2:B15").Address
や
>UserForm1.Controls("ComboBox" & cboNumberSeason).RowSource = _
>　　　　　 Worksheets("RowSource_List").Range("E2:E5").Address
この指定方法では、各コンボボックスのRowSoruceプロパティには、
"$B$2:$B$15"や"$E$2:$E$5"といったアドレスしか渡りません。
そうすると、フォームのInitializeイベントを通った時に、
たまたまActiveだったシートのその範囲が設定されたことになりますからね。

どのシートのアドレスなのかまで指定してやれば間違いを起こさないでしょう。

　　Dim r1 As Range, r2 As Range
　　Dim i As Long
　　With Worksheets("RowSource_List")
　　　　Set r1 = .Range("B2:B15")
　　　　Set r2 = .Range("E2:E5")
　　End With
　　For i = 1 To 3
　　　　Me.Controls("ComboBox" & i).RowSource = r1.Address(External=True)
　　Next i　　
　　For i = 7 To 9　　
　　　　Me.Controls("ComboBox" & i).RowSource = r2.Address(External=True)
　　Next i

というように、Addressプロパティを外部参照付きで呼び出すのも有効かと思います。

あと、
>【Ｑ２】
>cboNumberSeasonのコンボボックスが一覧しません。
>多分、cboNumberSeasonの変数型が整数だからかなと思っていますが、
>Range("E2:E5")は、文字データです。
は、上の理屈で、そのフォームをロードしようとした時の
ActiveSheet上の"E2:E5"がブランクだったとか？

118 hits

▼

【62412】コンボボックスの表示について T-K 09/7/21(火) 15:35