如何在一个单元格里面插入可以由自己选择的时间框,就是选中一单元格时出现日期选项,选择日期后日期显示在单元格中,我只需要选择年月日。
请别简单的告诉我“选择插入——对象——日历控件”,我的是office2007,我在插入对象里没找到日历控件。
大概搜了一下,好像VBA能实现这个功能,有没有高手帮助下我啊,谢谢啦,或者别的方法只要能实现我的需要就可以了。
修复了也没找到日历插件,劳驾有过实践经验的朋友给解答,不要理论上应该是的那些答案,回答的稍微详细点,感激不尽
1ãå¨å¼åå·¥å ·æ éæ©æå ¥-å ¶ä»æ§ä»¶ï¼æå¼å ¶ä»æ§ä»¶éæ©æ¡ã
2ãå¨éæ©æ¡ä¸éæ©calendar control8.0ï¼ç¡®å®ã
3ãå¨éå½çä½ç½®ç»å¶æ¥åï¼å¹¶å°é«åº¦å宽度éå½è°æ´ãè¿æ¶çæ¥åæ§ä»¶è¿æ¯è¾åå§ï¼ä¸ä¼ç¹å»æ¥æåèªå¨éèæ¥å并å¨åå æ ¼å å¡«å ¥æ¥æï¼è¿æ¶å°±éè¦æ·»å èªå·±ç代ç ã
4ãå¨è®¾è®¡æ¨¡å¼ä¸åå»æ¥åã
ç¹å»è®¾è®¡æ¨¡å¼ï¼å½å¾è¡¨é¢è²åæ·±åå°±æ¯è®¾è®¡æ¨¡å¼ï¼æå¼ä»£ç ç¼è¾å¨ã
å¨å æ å¤è¾å ¥ä¸æ¹ç代ç ï¼
ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Then
'æ¤å¤ç1å2ä¸ºä½ è¦æ¾ç¤ºæ¥åçååºå·
Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.To If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now( End I Me.Calendar1.Visible = TruElse Me.Calendar1.Visible = FalseEnd If
5ãå ³é代ç ç¼è¾å¨ï¼å°EXCELä¿å为å¯ç¨å®çå·¥ä½èã
6ãå次æå¼è¯¥å·¥ä½èï¼ç¹å»ç¬¬ä¸åæè 第äºåï¼å°±å¯ä»¥å¼¹åºæ¥åéæ©å¨ï¼éæ©æ¥æåï¼å¨åå æ ¼å ä¼æå ¥æ¥æï¼æ¥åéæ©å¨æ¶å¤±ã注æè¿æ¯å¨éç¼è¾æ¨¡å¼ä¸æå¯ä»¥å®ç°çã
7ãEXCELé¤äºè¿ä¸ªæ¥åæ§ä»¶å¤è¿æä¸ä¸ªå¦ä¸ä¸ªæ¯è¾ç®åçæ¥åéæ©å¨Microsoft date and time picker control(SP6)ã
8ãæå ¥è¯¥æ§ä»¶åï¼å¨é设计模å¼ä¸å³å¯ç¹å»å¼¹åºæ¥æéæ©çé¢ãå¦ä¸ï¼