|
お世話になります。
以下のように、InputBoxを繰り返し使うように作ったのですが、キャンセルを押したときに終了する処理はわかったのですが、数値を未入力(もしくは0)の時にOKを押したときに次の処理へ移るようにしたいと思っているのですが、どうしてもできません。
以下で「a」を入力するときに、未入力でOKを押したときに「b」を入力する処理へ移りたいということです。
Sub 掛け金入力()
Dim a As Long
Dim b As Long
a = Application.InputBox(prompt:="金額A", Type:=1)
If a = False Then
MsgBox "キャンセル"
Exit Sub
End If
Range("l6").Select
Range("l6") = a * 0.02
b = Application.InputBox(prompt:="金額B", Type:=1)
If b = False Then
MsgBox "キャンセル"
Exit Sub
End If
Range("l7").Select
Range("l7") = b * 0.02
End Sub
初歩的なことかもしれませんが、どうかよろしくご教示ください。
お願いいたします。
|
|