|
VBA初心者ですが、どうか教えて下さい。
EXCELのSheet1に、日付を入力する欄が7つあります。
(例: A1, B2, C3, D4, E5,F6,G8)
それぞれ別の日付で入力していく事になるものです。
UserForm1にカレンダーコントロールを作成し、以下のコードまで出来ました。
目的の場所でカレンダー表示させる事は出来たのですが、肝心な入力ができないのです。
これで、カレンダーの日をクリックした時、日付を表示させたいのですが教えて頂けないでしょうか?
例:A1をWクリック後、カレンダーから10月15日を選ぶと、
A1には、「2007/10/15」と表示される。
次にB2をWクリック後、カレンダーから10月20日を選ぶと、
A1には、「2007/10/20」と表示される。(A1は、「2007/10/15」のまま)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim adr As String
adr = Target.Address
If adr = "$A$1" Or adr = "$B$2" Or adr = "$C$3" Or _
adr = "$D$4" Or adr = "$E$5" Or adr = "$F$6" Or _
adr = "$G$8" Then
UserForm1.Show
End If
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
UserForm1.Hide
End Sub
|
|