|
こんにちは。
課題をいくつかに分けて一つずつ解決していった方がよいと思います。
>1. 4個のオプションボタンがあり、オプションボタン毎にコンボボックスのリストが変化する。(オプションボタンを選択すると瞬時にコンボボックスが連動される。)
ここだけsheet1にコンボのリストがあるとして
こんな感じでできると思います。
Option Explicit
Private Sub OptionButton1_Change()
If Me.OptionButton1.Value = True Then
Me.ComboBox1.Clear
With Sheets("Sheet1")
Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "A"), .Cells(Rows.Count, "A").End(xlUp)).Value)
End With
End If
End Sub
Private Sub OptionButton2_Change()
If Me.OptionButton2.Value = True Then
Me.ComboBox1.Clear
With Sheets("Sheet1")
Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "B"), .Cells(Rows.Count, "B").End(xlUp)).Value)
End With
End If
End Sub
Private Sub OptionButton3_Change()
If Me.OptionButton3.Value = True Then
Me.ComboBox1.Clear
With Sheets("Sheet1")
Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)).Value)
End With
End If
End Sub
Private Sub OptionButton4_Change()
If Me.OptionButton4.Value = True Then
Me.ComboBox1.Clear
With Sheets("Sheet1")
Me.ComboBox1.List = Application.Transpose(.Range(.Cells(1, "D"), .Cells(Rows.Count, "D").End(xlUp)).Value)
End With
End If
End Sub
|
|