Excel VBA質問箱 IV

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

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


10933 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

【19093】カレンダーコントロールの日付表示につい...
質問  maya-aaa  - 04/10/21(木) 14:50 -

引用なし
パスワード
   ユーザーフォーム上のカレンダーコントロールを利用して、テキストボックスに
日付を入力しています。日付は入力できているのですが、ユーザーフォームを
開いた時にカレンダーコントロールの日付表示を今日の日付にしたいのですが、
できません。現在は下記の様なプログラムを記述しています。

Private Sub 入力フォーム_Initialize() *「入力フォーム」はユーザーフォーム
  Calendar1.Value = Date        の名前です。
End Sub

どのように記述すればいいのか、教えていただきたいのです。
よろしくお願いいたします。

【19095】Re:カレンダーコントロールの日付表示に...
回答  IROC  - 04/10/21(木) 15:18 -

引用なし
パスワード
   >Private Sub 入力フォーム_Initialize() 
>  Calendar1.Value = Date       
>End Sub

こちらでは、これで問題ないですけど・・

【19108】Re:カレンダーコントロールの日付表示に...
発言  ichinose  - 04/10/21(木) 21:49 -

引用なし
パスワード
   ▼maya-aaa さん
こんばんは。

>ユーザーフォーム上のカレンダーコントロールを利用して、テキストボックスに
>日付を入力しています。日付は入力できているのですが、ユーザーフォームを
>開いた時にカレンダーコントロールの日付表示を今日の日付にしたいのですが、
>できません。現在は下記の様なプログラムを記述しています。


Private Sub UserForm_Initialize() *「入力フォーム」はユーザーフォーム
'        ↑に変更して下さい
'  フォームの名前を変更してもこれは変わりません
>  Calendar1.Value = Date        の名前です。
>End Sub
>
>どのように記述すればいいのか、教えていただきたいのです。
>よろしくお願いいたします。

【19109】Re:カレンダーコントロールの日付表示に...
お礼  maya-aaa  - 04/10/21(木) 21:50 -

引用なし
パスワード
   ▼IROC さん:
早速、回答をいただきありがとうございます。
このプログラムの内容で問題ないとの事ですので、他に問題があるのですね。
プログラムの内容にばかり気をとられていたので、他を見過ごしていたのかも
知れません。焦点が絞れてきますので他の原因をチェックしてみます。
とりあえず、プログラムは問題ないとの事で安心しました。
感謝いたします。

【19112】Re:カレンダーコントロールの日付表示に...
質問  maya-aaa  - 04/10/21(木) 22:27 -

引用なし
パスワード
   ▼ichinose さん:
こんばんは。ご回答ありがとうございます。
早速、ご指摘どおり試してみましたが、やっぱり変わりせん。そこで他の
記述内容もチェックしていたのですが、下記のところが少しおかしいかなと
思いましたので、その内容を見ていただけますか。
カレンダーより4つのテキストボックスに日付を入力していますが、その方法は
各チェックボックスに連動したオプションボタンを4つ配置して、そのボタンを押したところのチェックボックスに日付を入力できるようにしています。
そのプログラムは下記の通りです。なにか足りない記述があるのかも知れません。

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

一度チェックをしていただけますか。よろしくお願いいたします。

【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
このコードだけ・・・
これで再度確認してください。
本来なら、カレンダーコントロールは、今日の日付を選択するはずなんです

【19115】Re:カレンダーコントロールの日付表示に...
お礼  maya-aaa  - 04/10/21(木) 23:13 -

引用なし
パスワード
   ▼ichinose さん:
何度もすみません。
ご指摘の方法で新しいブックで試してみましたら、きれいに今日の日付が
表示されています。
ということは、他に何か原因があるのでしょうね。
もう少し、他もチェックしてみます。
遅い時間なのにありがとうございました。

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