|
下記コードを省略したいのですが教えていただけますか?
初心者なものでコードの意味がまだまだ理解できていません。
よろしくおねがい致します。
If Worksheets(MyS).Range("BB8") = "1" Then
OptionButton1 = True
ElseIf Worksheets(MyS).Range("BB8") = "2" Then
OptionButton2 = True
ElseIf Worksheets(MyS).Range("BB8") = "3" Then
OptionButton3 = True
ElseIf Worksheets(MyS).Range("BB8") = "4" Then
OptionButton4 = True
ElseIf Worksheets(MyS).Range("BB8") = "5" Then
OptionButton5 = True
End If
If Worksheets(MyS).Range("AZ65") = "1" Then
OptionButton6 = True
ElseIf Worksheets(MyS).Range("AZ65") = "2" Then
OptionButton7 = True
End If
If Worksheets(MyS).Range("AZ66") = "1" Then
OptionButton8 = True
ElseIf Worksheets(MyS).Range("AZ66") = "2" Then
OptionButton9 = True
End If
If Worksheets(MyS).Range("AZ68") = "1" Then
OptionButton10 = True
ElseIf Worksheets(MyS).Range("AZ68") = "2" Then
OptionButton11 = True
End If
|
|