關於月曆，Excel能否做到這樣的效果？

Question

選擇儲存格後，自動跳出月曆控制項以供點選日期

Excel能做出這種功能嗎？

能不能用Excel內建的月曆控制項呢？
另外希望是點選儲存格後，月曆能自動跳出來
而不是自己去點選工具列

Answer 1

http://excelvba.g-tw.com/plog/post/1/178可下載上面網址的高手做的日曆增益集使用 看看

2006-07-22 11:24:01 補充：
Excel內建的月曆控制項,在那裡?我知道access有月曆控制項,但Excel有嗎?

2006-07-24 00:01:43 補充：
因為我的不死心,我又學到一招,先謝謝你的問題.Private Sub Calendar1_Click()ActiveCell.Value = Calendar1.ValueEnd Sub

2006-07-24 00:01:55 補充：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)T = Target.TopL = Target.LeftW = Target.WidthIf Target.Column = 1 Then With Me.Calendar1 .Top = T .Left = L + W .Visible = True End WithElse Me.Calendar1.Visible = FalseEnd IfEnd Sub

2006-07-24 00:09:23 補充：
先用控制工具箱>其他控制項>月曆控制項,做出一月曆,按右鍵檢視程式碼,到vba視窗,將程式碼貼在該工作表內.我設定當選取A欄的任一格時,月曆才會出現在那格的右邊,在月曆日期按一下則將日期帶進格子.

2006-07-24 00:14:34 補充：
我想不是隨便那一格都要輸入日期吧,所以設定A欄才能使用月曆,若你要修改則改這一句 Target.Column = 1,有問題可再討論.

2006-07-24 00:26:34 補充：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenT = Target.TopL = Target.LeftW = Target.WidthWith Me.Calendar1.Top = T.Left = L + W.Visible = TrueEnd WithElseMe.Calendar1.Visible = FalseEnd IfEnd Sub改這樣比較好

2006-07-24 00:35:19 補充：
ElseMe.Calendar1.Visible = FalseEnd If改ElseIf Me.Calendar1.Visible = True Then Me.Calendar1.Visible = FalseEnd If

2006-07-24 22:41:56 補充：
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub
你的月曆控制項是叫Calendar1嗎?

Answer 2

提供您一個網頁,它是在Excel內建月曆控制項,看看是否能幫上您,
http://vba.com.tw/VBAFILE/general/H0050.htm