Excel VBA質問箱 IV

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

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


42287 / 76735 ←次へ | 前へ→

【39519】コードの省略
質問  初心者  - 06/6/26(月) 9:16 -

引用なし
パスワード
   下記コードを省略したいのですが教えていただけますか?
初心者なものでコードの意味がまだまだ理解できていません。
よろしくおねがい致します。

  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

0 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 お礼

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