Excel VBA質問箱 IV

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

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


27966 / 76732 ←次へ | 前へ→

【54079】Re:実行時エラー1004について
回答  りん E-MAIL  - 08/2/23(土) 18:11 -

引用なし
パスワード
   ひろ さん、こんばんわ。

>希望として、[キャンセル]をクリックすると、直前の操作をキャンセル(InputBoxが消えるように)したいと考えています。

VB(A)のヘルプより引用します。
============================
InputBox 関数はテキスト ボックスの内容を返します。[キャンセル] ボタンをクリックすると、InputBox 関数は長さ 0 の文字列 ("") を返します。
============================

なので、

>Sub clear()
>  Dim fn
>fn = InputBox("翌月分ファイル名は既定の場所に保存されます。", "翌月分の新規作成・保存", Worksheets("勤務表").Range("K5") & Format(DateAdd("m", 1, Date), "yyyymm"))
 '戻り値が""でない場合は保存する
 If fn <> "" Then

>ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fn & ".xls"
>End If
>End Sub

こんな感じです。
なお、(Application.)InputBoxメソッドの場合は、Falseを返します。
(参考)
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=53199;id=excel
2 hits

【54077】実行時エラー1004について ひろ 08/2/23(土) 17:49 質問
【54079】Re:実行時エラー1004について りん 08/2/23(土) 18:11 回答
【54083】Re:実行時エラー1004について ひろ 08/2/23(土) 21:44 質問
【54084】Re:実行時エラー1004について りん 08/2/23(土) 22:00 回答
【54096】Re:実行時エラー1004について ひろ 08/2/24(日) 13:08 お礼

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