VBATips

ユーザーにInputBoxで任意の日付を入力してもらう

ユーザーに任意の日付を入力させたい

ユーザーライクな開発を心掛けたいです。
InputBoxでユーザーにマウスで日付を入力させたい場合があります。
本来はカレンダーの画面を作成してもよいのですが、
月末日付など取得する場合はそこまでも不要と考えています。

ユーザーに任意の日付を入力させるサンプルコード

'■ユーザーに日付を入力選択してもらう
Public Sub sample()

    fName = InputBox("日付を入力してください", Default:=Format(Now, "yyyy/mm/dd"))

End Sub

注意点

  • キャンセルを押されたら空白で返されるので、問題あればDoLoopなどの処理が必要です。

関連記事

コメント

タイトルとURLをコピーしました