|
▼つん さん:
こんにちは。
とんでもございません。いつも適切なコメントに感謝しています。
ところで、例のコンボボックスですが、Initializeもうまくいき、
下記のようにしてみました。
【Q1】
私は、Worksheets("RowSource_List").Range("B2:B15")が、
UserForm1のComboBox" & ○に格納されるのだろうと考えてました。
ところがマクロを実行してみると、そのマクロボタンのあるシートのセル範囲
(仮にシート1)が一覧されてしまうのです。
参照するシート、セル範囲を指定しているのに何故でしょうか??
【Q2】
cboNumberSeasonのコンボボックスが一覧しません。
多分、cboNumberSeasonの変数型が整数だからかなと思っていますが、
Range("E2:E5")は、文字データです。
それをコンボ有効にするにはどうしたらよいでしょうか。
Private Sub Userform_Initialize()
Dim cboNumberYear As Integer
Dim cboNumberSeason As Integer
For cboNumberYear = 1 To 3
UserForm1.Controls("ComboBox" & cboNumberYear).RowSource = Worksheets("RowSource_List").Range("B2:B15").Address
Next cboNumberYear
For cboNumberSeason = 7 To 9
UserForm1.Controls("ComboBox" & cboNumberSeason).RowSource = Worksheets("RowSource_List").Range("E2:E5").Address
Next cboNumberSeason
End Sub
P.S
実はヘルプが使えないのです。
インストールしなければならないのですが、ディスクが無く、
自分で買えと・・・。
(参考書類は自費。これは後学の為によかったと思ってますが)
仕事で必要なのに最近どこもたいへんです。
▼つん さん:
>▼T-K さん
>おはようございます^^
>
>>ところで、コンボボックスの基本的な使い方が載ってるサイトなど
>>ありましたら教えて頂けますか。
>>当方の参考書、5cmくらい分厚いわりに、詳しくないのです。
>>他、いくつか持ってますが、どれも「コレだ」というのが載ってません。
>>よろしくお願い致します。
>
>うーん、特に「ここが良い!」ってサイトは知りまへんなあ・・・
>検索してみたけど、あまりピンと来るところはありませんでした。
>
>
>私が使ってるリファレンスは、
>「Excel2000VBA 実践プログラミングリファレンス」ってのだけど、
>タイトル通りすっごーく昔のやわあ。
>もう殆ど参考にすることはないけど、滅多に使わないコントロールの使い方とか、たまに調べるのに使います。
>だいたいヘルプで事足りちゃうし。
>(難しいことしてないから^^;;)
>
>全然役に立たないレスでごめんなさ〜い
|
|