Excel VBA インプットボックス空文字を入力

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

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

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

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

No.1 ベストアンサー 回答者： samtomsan 回答日時： 2011/07/23 13:37

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

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

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

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

If 勤務先 <> "" Then ActiveCell.Value = 勤務先
If 氏名 <> "" Then ActiveCell.Value = 氏名

この回答へのお礼

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

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