返回列表 上一主題 發帖

請問2010輸入日期

calendar 11.0
是2003用的,2010怎麼來的這個東西?
在設計模式,雙擊月曆控件
會出來如下:
Private Sub Calendar1_Click()

End Sub
改成如下:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Calendar1.Visible = True
End If
End Sub

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題