|
おはようございます。
optionbuttonを使いコードを下記(以前)のように作成していましたが、
皆様のご指導で(現在)のようにコードを省略することができました。
本当にありがとうございます。
ここで、オプションボタンが2つで1グループ、3つで1グループというのが
複数あるのですが、これ以上の省略は可能ですか?
超初心者の為、まだまだ理解できていません・・・。
よろしくお願いします。
’以前
If OptionButton14 = True Then
Worksheets(MyS).Range("AZ69").Value = "1"
ElseIf OptionButton15 = True Then
Worksheets(MyS).Range("AZ69").Value = "2"
End If
If OptionButton16 = True Then
Worksheets(MyS).Range("BA69").Value = "1"
ElseIf OptionButton17 = True Then
Worksheets(MyS).Range("BA69").Value = "2"
End If
’現在
For i = 14 To 15
If Me.OLEObjects("OptionButton" & i).Object = True Then
Worksheets(MyS).Range("AZ69").Value = i - 13
End If
Next
For i = 16 To 17
If Me.OLEObjects("OptionButton" & i).Object = True Then
Worksheets(MyS).Range("BA69").Value = i - 15
End If
Next
|
|