Excel VBA質問箱 IV

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

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


7393 / 13644 ツリー ←次へ | 前へ→

【39427】コードを省略したい パート3 初心者 06/6/23(金) 17:13 質問[未読]
【39429】Re:コードを省略したい パート3 Statis 06/6/23(金) 17:17 発言[未読]

【39427】コードを省略したい パート3
質問  初心者  - 06/6/23(金) 17:13 -

引用なし
パスワード
   以前も似たようなことをお聞きしたのですが
下記コードを省略することができますか?

 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


 CheckBox1.Value = Worksheets(MyS).Range("BB66").Value
 CheckBox2.Value = Worksheets(MyS).Range("BC66").Value
 CheckBox3.Value = Worksheets(MyS).Range("BD66").Value
 CheckBox4.Value = Worksheets(MyS).Range("BE66").Value

【39429】Re:コードを省略したい パート3
発言  Statis  - 06/6/23(金) 17:17 -

引用なし
パスワード
   こんにちは
コード内容がわかれば以前ので応用出来ると思いますが?

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