|
▼ウッシ さん:
こんにちは tamachan です。
>
>>説明のしかたがよくなっかたようで
>更にひどくなったような気が・・・*_*;
ごめんなさい。
>
>> If a >= 1 Then
>の「a」ってなんでしょうか?
間違いです。
>
>>Range("E22")よりも、Range("I31")の数値が必ず小さい
>という条件だけなら、
Range("E22")に対しRange("I31")が以下の場合でも
このままでよろしいでしょうか。
>
>Sub test1()
> With Sheets("設定").Select
> タイトル = "地下の階数が1層です"
> メッセージ = "地組の割増設定はできません"
> スタイル = vbCritical + vbRetryCancel + vbApplicationModal
>
> 値 = InputBox("数値を入れてください")
> Range("I31").Value = 値
>
> Do While Range("I31") >= Range("E22")
>=ですと同じ数値の場合再試行のメッセージボックスが
出てくるのですが?
> 応答 = MsgBox(メッセージ, スタイル, タイトル)
> If 応答 = vbCancel Then Exit Do
> 値 = InputBox("数値を入れてください")
> Range("I31").Value = 値
> Loop
> End With
>End Sub
|
|