[[20030702154939]]　『ＶＢＡ』（ムラタク）　ページの最後に飛ぶ

『ＶＢＡ』（ムラタク）

カレンダーコントロールを使用して日付を入力する方法を伝授願います。（例）セルのＡ２からＡ１０まで日付を入力する箇所があり、Ａ２を押すとカレンダーコントロール画面が出てそこから日付を選択し簡単に入力できる方法。またはその他の機能で何かあればお願いします。ちなみにExcelXPです

 これは2003年7月2日15時49分頃投稿された未解答の過去ログです。

 カレンダーコントロールを使用してとのことですが、Accessがインストールされていない環境ですと不可能です。

 カレンダーコントロール画面を呼び出すとのことですので、そのようなものをユーザーフォームで自作します。
　
以下の仕様で試作しました。
◆A2:A10のいずれかひとつを選択したら、ユーザーフォームを表示。
◆ユーザーフォームにはカレンダーコントロールのみを配置。
◆カレンダーコントロールで日付を選択したら、ユーザーフォームは消す。
　
'ユーザーフォームのモジュールに以下を記載。
'************ここから**************
Private Sub Calendar1_Click()
ActiveCell.Value = Me.Calendar1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Value = Date
End Sub
'************ここまで**************
'シートモジュールに以下を記載。
'************ここから**************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub
'************ここまで**************
　
(ROUGE) 2008年9月4日17時7分頃投稿

コメント返信：

[ 一覧(最新更新順) ]

[[20030702154939]] 『ＶＢＡ』（ムラタク） ページの最後に飛ぶ

[[20030702154939]]　『ＶＢＡ』（ムラタク）　ページの最後に飛ぶ