|
If Form1基本.Text重量.Value <> "" Then
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
Else
Sheets("入力シート").Range("Q11").Value = "50k"
End If
としたらどうでしょう?
|
|