|
▼ウッシ さん:
tamachan です。
説明のしかたがよくなっかたようで
ごめんなさい。
Range("E22")にも数値の入力をします。
この数値よりも、Range("I31")の数値が
必ず小さい数値であるようにさせるには、
Sub test()
Sheets("設定").Select
タイトル = "地下の階数が1層です"
メッセージ = "地組の割増設定はできません"
スタイル = vbCritical + vbRetryCancel + vbApplicationModal '※1
値 = InputBox("数値を入れてください")
Range("I31").Value = 値
If a >= 1 Then
Do While Range("E22")= 1 And 値 > 1
応答 = MsgBox(メッセージ, スタイル, タイトル)
If 応答 = vbCancel Then Exit Do
値 = InputBox("数値を入れてください")
Range("I31").Value = 値
Loop
End If
End Sub
をどのように変更したらよいでしょうか。
教えてください。
|
|