Excel VBA質問箱 IV

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

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


40407 / 76732 ←次へ | 前へ→

【41423】Re:SelectCaseの入れ子について
発言  ponpon  - 06/8/9(水) 21:19 -

引用なし
パスワード
   こんばんは。
これではどうでしょう?
インデントをつけるとわかりやすいですよ。

  Dim kingaku As Currency
  Dim kubun As String
  kubun = Range("D33").Value
  kingaku = Range("C33").Value
 
  Select Case kubun '…Range("D33")
  Case Is = "一般"
    Select Case kingaku '…Range("C33")
       Case Is >= 50000
         MsgBox "15%割引です"
       Case Is >= 30000 And kingaku < 50000
         MsgBox "10%割引です"
       Case Is >= 10000 And kingaku < 30000
         MsgBox "5%割引です"
       Case Else
         MsgBox "割引対象外です"
    End Select
  Case Is = "会員"
    Select Case kingaku
      Case Is >= 50000
        MsgBox "40%割引です"
      Case Is >= 30000 And kingaku < 50000
        MsgBox "30%割引です"
      Case Is >= 10000 And kingaku < 30000
        MsgBox "10%割引です"
      Case Else
        MsgBox "割引対象外です"
    End Select
  End Select

0 hits

【41422】SelectCaseの入れ子について ToShiYo 06/8/9(水) 20:36 質問
【41423】Re:SelectCaseの入れ子について ponpon 06/8/9(水) 21:19 発言
【41427】Re:SelectCaseの入れ子について ToShiYo 06/8/10(木) 6:41 お礼

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