Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19356 / 76732 ←次へ | 前へ→

【62809】InputBox で未入力時に次の処理へ移りたい
質問  ノサップ  - 09/9/4(金) 18:53 -

引用なし
パスワード
   お世話になります。

以下のように、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

初歩的なことかもしれませんが、どうかよろしくご教示ください。
お願いいたします。
0 hits

【62809】InputBox で未入力時に次の処理へ移りたい ノサップ 09/9/4(金) 18:53 質問
【62810】Re:InputBox で未入力時に次の処理へ移りた... kanabun 09/9/4(金) 19:03 発言
【62811】Re:InputBox で未入力時に次の処理へ移りた... kanabun 09/9/4(金) 19:10 発言
【62816】Re:InputBox で未入力時に次の処理へ移りた... ノサップ 09/9/5(土) 11:39 お礼

19356 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free