|
こんばんは。
>こんばんは。ご回答ありがとうございます。
>早速、ご指摘どおり試してみましたが、やっぱり変わりせん。そこで他の
>記述内容もチェックしていたのですが、下記のところが少しおかしいかなと
>思いましたので、その内容を見ていただけますか。
>カレンダーより4つのテキストボックスに日付を入力していますが、その方法は
>各チェックボックスに連動したオプションボタンを4つ配置して、そのボタンを押したところのチェックボックスに日付を入力できるようにしています。
>そのプログラムは下記の通りです。なにか足りない記述があるのかも知れません。
下記のコードを検証して見ました。
Userform を「入力フォーム」というオブジェクト名にして・・・。
>
>Private Sub 入力フォーム_Initialize()
> Calendar1.Value = Date
>End Sub
>
>Private Sub Calendar1_Click()
> If (OptionButton10.Value = True) Then
> TextBox4.Value = Format(Calendar1.Value, "yyyy/m/d")
> ElseIf (OptionButton11.Value = True) Then
> TextBox5.Value = Format(Calendar1.Value, "yyyy/m/d")
> ElseIf (OptionButton12.Value = True) Then
> TextBox6.Value = Format(Calendar1.Value, "yyyy/m/d")
> ElseIf (OptionButton13.Value = True) Then
> TextBox7.Value = Format(Calendar1.Value, "yyyy/m/d")
> Else
>
> End If
>End Sub
上記のコードでは、
フォーム表示した時点で本日の日付の選択とはなりません。
でも、
前回、投稿とたとおり、
Private Sub userform_Initialize()
Calendar1.Value = Date
End Sub
とすれば、フォームが表示された時点で
カレンダーは本日の日付を選択しています。
新規ブックにUserformを作成し(名前は「入力フォーム」にして)、
このフォームには,カレンダーコントロールだけ配置
フォームモジュールには
Private Sub userform_Initialize()
Calendar1.Value = Date
End Sub
このコードだけ・・・
これで再度確認してください。
本来なら、カレンダーコントロールは、今日の日付を選択するはずなんです
|
|