Excel VBA質問箱 IV

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

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


62233 / 76738 ←次へ | 前へ→

【19113】Re:カレンダーコントロールの日付表示について
発言  ichinose  - 04/10/21(木) 22:59 -

引用なし
パスワード
   こんばんは。

>こんばんは。ご回答ありがとうございます。
>早速、ご指摘どおり試してみましたが、やっぱり変わりせん。そこで他の
>記述内容もチェックしていたのですが、下記のところが少しおかしいかなと
>思いましたので、その内容を見ていただけますか。
>カレンダーより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
このコードだけ・・・
これで再度確認してください。
本来なら、カレンダーコントロールは、今日の日付を選択するはずなんです

0 hits

【19093】カレンダーコントロールの日付表示について maya-aaa 04/10/21(木) 14:50 質問
【19095】Re:カレンダーコントロールの日付表示につ... IROC 04/10/21(木) 15:18 回答
【19109】Re:カレンダーコントロールの日付表示につ... maya-aaa 04/10/21(木) 21:50 お礼
【19108】Re:カレンダーコントロールの日付表示につ... ichinose 04/10/21(木) 21:49 発言
【19112】Re:カレンダーコントロールの日付表示につ... maya-aaa 04/10/21(木) 22:27 質問
【19113】Re:カレンダーコントロールの日付表示につ... ichinose 04/10/21(木) 22:59 発言
【19115】Re:カレンダーコントロールの日付表示につ... maya-aaa 04/10/21(木) 23:13 お礼

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