Excel2007のカレンダーコントロール

質問

Excel2007のカレンダーコントロールで質問します。

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
ActiveSheet.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4" Then
ActiveSheet.Calendar1.Visible = True
End If
End Sub

この状態ですと、セルA4をクリックしたときだけカレンダーコントロールが表示されます。
A列をどこでもクリックしたときにカレンダーコントロールが表示されるようにするには
どこを、どう変更すればよいのでしょうか？
教えてください。

回答No.1

KURUMITO · ベストアンサー

次のようにすればよいでしょう。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ActiveSheet.Calendar1.Visible = True
End If
End Sub

お礼

あっさりできました
ありがとうございます<(_ _)>