hananeko_0回答ポイント 70pt

ExcelVBAです。

ユーザーフォームでカレンダーによる日付入力を指定のセルに行っていますが、作成した時の月が（保存した時の状態）毎回表示されてしまいます。

毎回カレンダーが表示された時に当月のカレンダーが開くようにするにはどうしたらよいですか？

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

ベストアンサー

Mook2008/07/21 00:52:44
満足40pt
カレンダーコントロールのことかと思いますが、ユーザフォームを表示する直前にカレンダーの日付を

設定すればよいと思います。

ユーザフォームが UserForm1、カレンダーコントロールが Calender1 だとすると、

シートモジュールで下記のようにし
```
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UserForm1.Show
    Cancel = True
End Sub
```
ユーザフォームで
```
Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    UserForm1.Calendar1.Year = Year(Date)
    UserForm1.Calendar1.Month = Month(Date)
    UserForm1.Calendar1.Day = Day(Date)
End Sub
```
となっていれば、シートのセルをダブルクリックするたびに、日付入力が起動しますが、

カレンダーは毎回本日にリセットされて表示されます。

http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06_2.htm
スター
- hananeko_0 2008/07/21 22:49:56
  
  いつもありがとうございます。
  
  「ユーザフォームを表示する直前にカレンダーの日付を設定」とのこと。
  
  さっそく明日会社でトライしてみます！

その他の回答

きゃづみぃ2008/07/21 06:15:37
満足30pt

http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm

カレンダーは何を使っているのかわかりませんが、

だいたい、日付をセットする場合は、取得するのとは逆の動作をします。

つまり、日付を入れてあげればいいのです。

今日の日付をセットしてみてください。

スター
- hananeko_0 2008/07/21 22:52:18
  
  明日会社で、どのカレンダーを使っているか確認してみます！
  
  HP参考にさせていただきます！
  
  ありがとうございます！

この質問へのコメント

コメントはありません

この質問への反応（ブックマークコメント）

質問の情報

登録日時: 2008-07-21 00:05:11
終了日時: 2008-07-21 22:53:24
回答条件: 1人2回まで

この質問のカテゴリ

人気の質問