|
▼Statis さん:
>こんにちは
>
>こんな感じかな?
>
>
>With Worksheets(MyS)
> Me.OLEObjects("OptionButton" & .Range("BB2").Value).Object.Value = True
> Me.OLEObjects("OptionButton" & .Range("AZ65").Value + 5).Object.Value = True
> Me.OLEObjects("OptionButton" & .Range("AZ66").Value + 7).Object.Value = True
> Me.OLEObjects("OptionButton" & .Range("AZ68").Value + 9).Object.Value = True
>End With
ありがとうございました。できました。
もし、上記コードでsheetのセルの選択部分を下記の様に順番にした場合はさらに省略できますか?
With Worksheets(MyS)
Me.OLEObjects("OptionButton" & .Range("BG31").Value).Object.Value = True
Me.OLEObjects("OptionButton" & .Range("BG32").Value + 5).Object.Value = True
Me.OLEObjects("OptionButton" & .Range("BG33").Value + 7).Object.Value = True
Me.OLEObjects("OptionButton" & .Range("BG34").Value + 9).Object.Value = True
End With
|
|