Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
42376 / 76732 ←次へ　｜　前へ→
【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
0 hits
▼ 【39427】コードを省略したい　ﾊﾟｰﾄ3 初心者 06/6/23(金) 17:13 質問≪
【39429】Re:コードを省略したい　ﾊﾟｰﾄ3 Statis 06/6/23(金) 17:17 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
42376 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free