ユーザーに任意の日付を入力させたい
ユーザーライクな開発を心掛けたいです。
InputBoxでユーザーにマウスで日付を入力させたい場合があります。
本来はカレンダーの画面を作成してもよいのですが、
月末日付など取得する場合はそこまでも不要と考えています。
ユーザーに任意の日付を入力させるサンプルコード
'■ユーザーに日付を入力選択してもらう Public Sub sample() fName = InputBox("日付を入力してください", Default:=Format(Now, "yyyy/mm/dd")) End Sub
注意点
- キャンセルを押されたら空白で返されるので、問題あればDoLoopなどの処理が必要です。
コメント