Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42272 / 76732 ←次へ | 前へ→

【39531】Re:コードの省略
発言  taka  - 06/6/26(月) 11:31 -

引用なし
パスワード
   ▼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

7 hits

【39519】コードの省略 初心者 06/6/26(月) 9:16 質問
【39521】Re:コードの省略 Blue 06/6/26(月) 9:29 発言
【39522】Re:コードの省略 Statis 06/6/26(月) 9:38 発言
【39525】Re:コードの省略 taka 06/6/26(月) 10:37 発言
【39527】Re:コードの省略 Statis 06/6/26(月) 11:02 発言
【39528】Re:コードの省略 taka 06/6/26(月) 11:05 発言
【39529】Re:コードの省略 Statis 06/6/26(月) 11:12 回答
【39531】Re:コードの省略 taka 06/6/26(月) 11:31 発言
【39532】Re:コードの省略 Statis 06/6/26(月) 11:47 発言
【39536】Re:コードの省略 taka 06/6/26(月) 12:01 お礼

42272 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free