Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27966 / 76732

←次へ　｜　前へ→


	【54079】Re:実行時エラー1004について

りん

- 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

1 hits

▼

【54077】実行時エラー1004について ひろ 08/2/23(土) 17:49