|
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未満と表示させたいのですがどうすればいいでしょうか?
|
|