中小企業の働き方改革をサポート>>

いつもお世話になっています。

下記のような入力処理をインプットボックスで行いたいと考えています。
勤務先は場合によっては不要なのでパスして次に移りたいのですが
空文字だとOKをクリックしても、キャンセルをクリックしても処理が終わってしまいます。

勤務先 = InputBox("勤務先を入力")
If 勤務先 = "" Then Exit Sub
ActiveCell.Value = 勤務先
ActiveCell.Offset(0, 1).Select
氏名 = InputBox("氏名を入力")
If 氏名 = "" Then Exit Sub
ActiveCell.Value = 氏名

空文字のままOKもしくはキャンセルでも次の処理に移るにはどうしたらよいでしょうか。
お力添えをお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

> 空文字だとOKをクリックしても、キャンセルをクリックしても処理が終わってしまいます



その様にプログラムしてありますね。

> If 勤務先 = "" Then Exit Sub
> If 氏名 = "" Then Exit Sub

この二行を消すか、変更されたらいかがでしょうか

If 勤務先 <> "" Then ActiveCell.Value = 勤務先
If 氏名 <> "" Then ActiveCell.Value = 氏名
    • good
    • 0
この回答へのお礼

早々に回答いただきありがとうございます。
おかげさまで出来ました。
また機会がありましたら、どうぞよろしくお願いいたします。

お礼日時:2011/07/23 15:07

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング