|
ひろ さん、こんばんわ。
>希望として、[キャンセル]をクリックすると、直前の操作をキャンセル(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
|
|