Excel VBA質問箱 IV

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

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


8770 / 13644 ツリー ←次へ | 前へ→

【31280】ユーザフォームへ日付を自動挿入 ripara 05/11/16(水) 15:47 質問[未読]
【31282】Re:ユーザフォームへ日付を自動挿入 ちくたく 05/11/16(水) 15:57 回答[未読]
【31283】Re:ユーザフォームへ日付を自動挿入 Blue 05/11/16(水) 16:00 発言[未読]
【31290】Re:ユーザフォームへ日付を自動挿入 ripara 05/11/16(水) 16:53 お礼[未読]
【31306】Re:ユーザフォームへ日付を自動挿入 ripara 05/11/16(水) 23:45 発言[未読]

【31280】ユーザフォームへ日付を自動挿入
質問  ripara  - 05/11/16(水) 15:47 -

引用なし
パスワード
   こんにちは。
Mainformの[入力]ボタンをクリックすると、dataformが出てきて必要事項を入力して
[完了]ボタンを押すとセルへ値が挿入されるというマクロを組んでいます。

その中の入力欄に「データ入力日」というのがあり、
データを入力する度に手入力で「11/15」(今日の日付)と入力しています。
これをdataformを表示したときにすでに今日の日付が入っているようにはできないでしょうか。

よろしくお願いします。

【31282】Re:ユーザフォームへ日付を自動挿入
回答  ちくたく  - 05/11/16(水) 15:57 -

引用なし
パスワード
   ripara さん。
こんにちは。

Date関数を使ってみてください」。

【31283】Re:ユーザフォームへ日付を自動挿入
発言  Blue  - 05/11/16(水) 16:00 -

引用なし
パスワード
   > dataformを表示したとき
ということは、UserFormのInitializeイベントですね。
その関数の中で、データ入力日のテキストに今日の日付を入れてあげればいいです。

今日の日付は Date関数、「11/15」という文字列にするにはFormat関数を使えばいいですね。

【31290】Re:ユーザフォームへ日付を自動挿入
お礼  ripara  - 05/11/16(水) 16:53 -

引用なし
パスワード
   ちくたくさん、Blueさん、
ありがとうございました。

問題解決できました。
また何かありましたらよろしくお願いします。

【31306】Re:ユーザフォームへ日付を自動挿入
発言  ripara  - 05/11/16(水) 23:45 -

引用なし
パスワード
   書いたコード一応書いておきます。

Private Sub UserForm_Initialize()
 TextBox1.Value = Format(Date, "mm/dd")
End Sub

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