Excel VBA質問箱 IV

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

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


8418 / 76732 ←次へ | 前へ→

【73888】セレクト関数
質問  ぴぐもん  - 13/3/6(水) 0:03 -

引用なし
パスワード
   Select Case Form1基本.Text重量.Value
    Case 0 To 49
      Sheets("入力シート").Range("Q11").Value = "50k未満"
      Sheets("入力シート").Range("L13").Value = "1"
    Case 50 To 99
      Sheets("入力シート").Range("Q11").Value = "100k未満"
      Sheets("入力シート").Range("L13").Value = "2"
    Case 100 To 299
      Sheets("入力シート").Range("Q11").Value = "300k未満"
      Sheets("入力シート").Range("L13").Value = "3"
    Case 300 To 499
      Sheets("入力シート").Range("Q11").Value = "500k未満"
      Sheets("入力シート").Range("L13").Value = "4"
    Case Is >= 500
      Sheets("入力シート").Range("Q11").Value = "500k以上"
      Sheets("入力シート").Range("L13").Value = "5"
    Case ""
      Sheets("入力シート").Range("Q11").Value = "50k未満"
      Sheets("入力シート").Range("L13").Value = "0"
  End Select

とした時に、入力シートにブランクで通知すると500K以上となってしまいます
ブランクの場合は50k未満と表示させたいのですがどうすればいいでしょうか?
262 hits

【73888】セレクト関数 ぴぐもん 13/3/6(水) 0:03 質問
【73889】Re:セレクト関数 ponpon 13/3/6(水) 13:40 発言
【73890】Re:セレクト関数 kanabun 13/3/10(日) 11:14 発言

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