エクセルでユーザーフォーム

質問

エクセルでユーザーフォームやActiveXコントロールを使ったことがないので悩んでいます。ユーザーフォームを呼び出したとき、表示されるオプションボタンの状態をワークシート上の値で設定したいのです。一応以下のようなコードでも大丈夫なようです。
質問は、以下のようにすべてのオプションボタンを列挙しなくとももっと簡単に記述する方法を教えていただきたいのです。また書き方が変だというご指摘があればそれもよろしくお願いします。

Private Sub UserForm_Initialize()
　　Select Case Sheets("Sheet1").Range("L3").Value
　　　　Case 1: Me.OptionButton1.Value = True
　　　　Case 2: Me.OptionButton2.Value = True
　　　　Case 3: Me.OptionButton3.Value = True
　　　　Case 4: Me.OptionButton4.Value = True
　　　　Case 5: Me.OptionButton5.Value = True
　　　　Case 6: Me.OptionButton6.Value = True
　　　　Case Else
　　　　　Me.OptionButton1.Value = False
　　　　　Me.OptionButton2.Value = False
　　　　　Me.OptionButton3.Value = False
　　　　　Me.OptionButton4.Value = False
　　　　　Me.OptionButton5.Value = False
　　　　　Me.OptionButton6.Value = False
　　End Select
End Sub

回答No.1

kkkkkm · ベストアンサー

Private Sub UserForm_Initialize()
Dim OBNum As Integer
Dim i As Integer

OBNum = Sheets("Sheet1").Range("L3").Value
If OBNum >= 1 And OBNum <= 6 Then
Me.Controls("OptionButton" & OBNum).Value = True
Else
For i = 1 To 6
Me.Controls("OptionButton" & i).Value = False
Next
End If
End Sub

とか

Private Sub UserForm_Initialize()
Dim OBNum As Integer, OBNumMax As Integer
Dim i As Integer
Dim c As Object

For Each c In Controls
If InStr(c.Name, "OptionButton") > 0 Then
OBNumMax = OBNumMax + 1
End If
Next c
OBNum = Sheets("Sheet1").Range("L3").Value
If OBNum >= 1 And OBNum <= OBNumMax Then
Me.Controls("OptionButton" & OBNum).Value = True
Else
For i = 1 To OBNumMax
Me.Controls("OptionButton" & i).Value = False
Next
End If
End Sub

でいかがですか。

お礼

kkkkkmさま、早速ありがとうございます。
これでだいぶ効率がよくなります。
助かりました！
これからもご指導のほどよろしくお願いします。