エクセルＶＢＡ フォームの日付を指定

質問

データ登録フォームの日付を指定したいのですがどうすればよいでしょうか？

まず、userform5を開きます。規定値は当日にしていますが、過去のものも入れられるようクリアして任意の日付を入力します。
その後、実行ボタンを押すとuserform2を開き、入力開始するのですが、その時の撮影日textboxの値にさきほど入力した値を入れたいです。
変数はPrivate torokudate As Dateこのような形でよいと思いましたが、どこに書けば他のフォームでも利用できるのでしょうか？
うまくいってるのかどうかわかりませんが、表示が0：00とされました。
撮影日textboxのプロパティ設定がわるいのかどうかもよくわかりません。
初歩的なＶＢＡですが、よろしくお願いします。

回答No.3

kkkkkm · ベストアンサー

> userform5は閉じて変数で取得したかったのですが

標準モジュールに
Public torokudate As Date

userform2を開くコマンドボタンのクリック時に
torokudate = Me.登録日textbox.Value

userform2のUserForm_Initialize()に
Me.撮影日textbox = torokudate

それぞれ追加してください。

変数ではなく空いてるセルに一時的にいれてもいいかもしれません。

もしくはuserform2のUserForm_Initialize()が
Me.撮影日textbox = UserForm5.登録日textbox
の状態で
Unload UserForm5
を後ろに追加して値を取得してからUserForm5を閉じるようにするとかでしょうか。

お礼

返信遅くなりました。
ありがとうございます。
勉強になりました。

回答No.2

kkkkkm

UserForm5のテキストボックス名が「登録日textbox」としたら
userform2のUserForm_Initialize()を以下のようにしてください。

Private Sub UserForm_Initialize()
Me.撮影日textbox = UserForm5.登録日textbox
End Sub

お礼

ありがとうございました。
userform5は閉じて変数で取得したかったのですが、急ぎなのでとりあえずこれでできました。

回答No.1

okwavey3

まずはやろうとしている事の説明と、それぞれのフォームの役割を説明してください。

質問の話はそれからです。

補足

早速ありがとうございます。
書いてある通り、別のフォームの値を拾得したいのですが、わかりにくかったらすみません。