入力フォームで、テキストボックスに今日の日付が入っているようにしたい

Question

前提・実現したいこと

入力フォームに、日付を入力するテキストボックスがあります。
このテキストボックスにはデフォルトで今日の日付が入っているようにしたいのです。

発生している問題・エラーメッセージ

テキストボックスに今日の日付が入りません。

該当のソースコード

Private Sub UserForm1_Initialize()
    txtDate.Text = Date
    txtDate.Format = "Long Date"
End Sub

試したこと

以前も別の入力フォームを作ったときに、同様の実装をしているのですが、その際は

txtDate.Text = Format(Date, "YYYY/MM/DD")

で実装できているので、このようにもしてみましたが、だめでした。

補足情報

Excel2010、Win7 64bit版で操作しています。
初心者ですので初歩的なところで躓いている気がしますが、どうぞ皆様ご教示くださいませ・・・。

Comments

[firedfly]

どううまくいかないのか書いていただけると幸いです。
（〇〇というエラーが起きる、ユーザーフォームは表示されるがなにも入らないなど）

[jimunomado]

記載が足らず失礼いたしました。上記コードを入力しても、テキストボックスの中に今日の日付が自動的に入ってくれないのです。入らないだけで入力はできる状態です。

[firedfly]

了解です。回答の方法を試してみてください。

Answer 1

解決済みですが、前回の質問でも同じようなところで躓いていたようですので補足させていただきます。

VBEditor画面でフォームのコードを表示すると、上図①のドロップダウンリストに「フォームに含まれるコントロールの一覧」が表示されます。
そして②のドロップダウンリストには、①で選択したコントロールで使用可能な「イベントの一覧」が表示されます。

例えば、フォームの初期化イベントを作成したい場合は①でUserForm、②でInitializeを選択します。
例えば、テキスト１にフォーカスが当たった時の処理を作成したい場合は、①でTextbox1、②でEnterを選択します。

こうすると、そのイベントが作成済みならそのコードが表示されますし、なければ自動で空のイベント関数を作成してくれます。

提示いただいたコードに関して

余談ではありますが提示いただいたコードについても少しアドバイスさせて下さい。

まず、VBAのtextboxにフォーマットプロパティは存在しません。
このためtxtDate.Format = "Long Date"という記述はエラーになるかと思います。

その他のコードで日付が入らないのは、イベント関数名が正しくなかったからということで解決済みかと思いますが、型の意識が少し薄いように思いました。

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = Date    'この１行だけでも日付が表示されます。日付の表示形式はシステム設定依存になると思います。
    Me.TextBox1.Text = Date     'この１行だけでも日付が表示されますが、Date型の値をString型のプロパティに暗黙変換して代入しているのでお作法的にはイマイチです。
    Me.TextBox1.Text = Format(Date, "YYYY/MM/DD") 'この１行だけでも日付が表示されます。型の暗黙変換を回避するため明示的にDate型⇒String型変換を行っています。
End Sub

上記のとおりFormat関数で明示的に文字列型にしてからTextプロパティに代入するのが一番確実です。

参考になれば幸いです。

Comments

[jawa]

イベント関数の作成方法についてはfiredflyさんの参考リンクで紹介済みのようでした。
重複した内容になってしまいすみません。

[jimunomado]

わかりやすい解説をありがとうございます！ご指摘の通りで、型ほかの意識が薄いです、、、。(だから初歩的なところで躓くのですよね(^_^;))

[jawa]

初心者さんですので、最初はそんなものだと思いますし、最初から何でもできてしまう方が問題解決能力が育たないような気がします。

こうやって最初のうちにちゃんと躓いて、躓いた原因を考えて、苦労した結果が経験になっていきますので、これからもがんばって躓いてください(^-^)b

[jimunomado]

有難うございますm(_ _)m　頑張って躓いて、また皆様のお世話になります……( ；∀；)

Answer 2

フォームの名前は、オブジェクト名にかかわらず
UserForm のようでした。

Private Sub UserForm1_Initialize()
　　　　　　　　↓
Private Sub UserForm_Initialize()

Comments

[jimunomado]

ありがとうございました！こちらの回答で間違いを把握できましたので、こちらをベストアンサーとさせていただきました。

Answer 3

こんにちは。

UserFormのコードはUserFormごとに分かれていて
初期化イベントはUserForm名に関係なく**UserForm_Initialize()**のようです。
慣れるまでは参考リンクの方法でエディタから挿入するといいですね。

Private Sub UserForm_Initialize()
    txtDate.Text = Date
End Sub

参考：ユーザーフォームのイベント - Excel VBA

Comments

[jimunomado]

初期化イベントの名前はこうだったのですね＞＜！ありがとうございました！