我看到代码了:
是这个吧,怎么添加进去呢?不会是手动单个写吧。。。
private Sub Calender1_AfterUpdate()
Selection.Value = Calender1.Value
End Sub
Private Sub Calender1_Db1Click()
Calender1.Visable = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Calender1.Top = Target.Top + Target.Height
Calender1.Left = Target.Left
Calender1.Visible = True
Else
Calender1.Visible = False
End If
End Sub