日付の選択方法

[ぽにょ子]

Excel2003を使用しています。
日付を入力する際、入力するセルをアクティブにしたとき、
横に小さなカレンダーを表示して、それをクリックしたら
その日付がセルに入力される・・・
ということがしたいのですが、できますか？
できるとしたらその方法を教えていただきたいのですが。

[TAKAHASHI Hisanori]

"ぽにょ子" <????@discussions.microsoft.com> wrote in message news:4211B478-6829-4647...@microsoft.com...

まずコントロールツールボックス(ツールバーを右クリック)を出し
金槌がX字になったボタン(コントロールの選択)を押して
Microsoftカレンダーコントロール11.0を選択し
画面上にカレンダーを表示します。

カレンダーを右クリックしプロパティでVisibleを Falseにします

その後VBEを開き(ALT+F11)左側のSheet1の部分をダブルクリック
(カレンダーを作ったシートと同じ名前の部分)
右の白い画面の部分に以下のコードをコピーします

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim m_ClickColumn As Integer

m_ClickColumn = 1 'A列は1　B列は2　C列は3　以降同様に

If Target.Column = m_ClickColumn Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If

End Sub

Private Sub Calendar1_AfterUpdate()

Range(ActiveCell.Address) = Calendar1.Value

End Sub

以上

m_ClickColumn = 1 の部分はA列に日付を入れる場合です、A列でない場合数値を変更してください。
Calendar1は作成したカレンダーのプロパティでオブジェクト名となっている名前と同じにしてください。

--
TAKAHASHI Hisanori