オプションボタン6個を設置し、その6個選択に異なり、コンボボックスに表示させたい方法を教えて!

オプションボタン6個を設置し、その6個選択に異なり、コンボボックスに表示させたい方法を教えて! オプションボタンA、B、C、D、E、Fの複数一選択でAがTrueとなった場合、コンボボックスに表示するプルダウン内容を”雨”、”大雨”、と表示したい。これと同じようにBがTrueとなった場合、コンボボックスに表示する内容を”晴れ”、”快晴”と オプションボタンの選択に応じて内容Listを表示したいです。マクロ構文を教えてください。宜しくお願いします。

Visual Basic839閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

[Excel VBA]配列をリストに格納する方法 --------- <はじめに> 同じユーザフォーム上に、コンボボックス×1、オプションボタン×6が配置されているものとする。※シートの場合は、同シート内という意味。 <コード:フォームモジュール_またはシートモジュールへ> Private Sub ComboBox1_DropButtonClick() Dim A(1) As String, B(1) As String, C(1) As String, D(1) As String, E(1) As String, F(1) As String Dim i As Integer A(0) = "選択A1": A(1) = "選択A2" B(0) = "選択B1": B(1) = "選択B2" C(0) = "選択C1": C(1) = "選択C2" D(0) = "選択D1": D(1) = "選択D2" E(0) = "選択E1": E(1) = "選択E2" F(0) = "選択F1": F(1) = "選択F2" For i = 1 To 6 If Me.Controls("OptionButton" & i).Value Then Select Case i Case 1 Me.ComboBox1.List = A Case 2 Me.ComboBox1.List = B Case 3 Me.ComboBox1.List = C Case 4 Me.ComboBox1.List = D Case 5 Me.ComboBox1.List = E Case 6 Me.ComboBox1.List = F End Select End If Next End Sub 素人提案なので他に回答があれば、そちらをオススメします。検証Excel2007

ThanksImg質問者からのお礼コメント

ありがとうございます。試して見ましたが、Foriの場所で「コンパイルエラーで型が一致しない」と出てしまう。

お礼日時:2010/4/17 18:02