æ¹æ³/æ¥éª¤
å¨å¼åå·¥å
·æ éæ©æå
¥-å
¶ä»æ§ä»¶ï¼æå¼å
¶ä»æ§ä»¶éæ©æ¡ã
å¨éæ©æ¡ä¸éæ©calendar control8.0ï¼ç¡®å®ã
å¨éå½çä½ç½®ç»å¶æ¥åï¼å¹¶å°é«åº¦å宽度éå½è°æ´ãè¿æ¶çæ¥åæ§ä»¶è¿æ¯è¾åå§ï¼ä¸ä¼ç¹å»æ¥æåèªå¨éèæ¥å并å¨åå
æ ¼å
å¡«å
¥æ¥æï¼è¿æ¶å°±éè¦æ·»å èªå·±ç代ç ã
å¨
设计模å¼ä¸åå»æ¥åã
ç¹å»è®¾è®¡æ¨¡å¼ï¼å½å¾è¡¨é¢è²åæ·±åå°±æ¯è®¾è®¡æ¨¡å¼ï¼æå¼ä»£ç ç¼è¾å¨ã
å¨å
æ å¤è¾å
¥ä¸æ¹ç代ç ï¼
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
å
³é代ç ç¼è¾å¨ï¼å°EXCELä¿å为å¯ç¨å®çå·¥ä½èã
å次æå¼è¯¥å·¥ä½èï¼ç¹å»ç¬¬ä¸åæè
第äºåï¼å°±å¯ä»¥å¼¹åºæ¥åéæ©å¨ï¼éæ©æ¥æåï¼å¨åå
æ ¼å
ä¼æå
¥æ¥æï¼æ¥åéæ©å¨æ¶å¤±ã注æè¿æ¯å¨éç¼è¾æ¨¡å¼ä¸æå¯ä»¥å®ç°çã
EXCELé¤äºè¿ä¸ªæ¥åæ§ä»¶å¤è¿æä¸ä¸ªå¦ä¸ä¸ªæ¯è¾ç®åçæ¥åéæ©å¨Microsoft date and time picker control(SP6)ã
æå
¥è¯¥æ§ä»¶åï¼å¨é设计模å¼ä¸å³å¯ç¹å»å¼¹åºæ¥æéæ©çé¢ã
æé纳