Hsieh

¦^´_ 5# Jared


    ³o¼Ëªº°ÝÃD¡A¨S¦³Àɮ׬O±o¤£¨ìµª®×ªº

Jared

ÁÂÁ¤j¤jªº¨ó§U
²×©ó¥i¥H¦^¶Ç¤U©Ô¦¡¿ï³æªº°T®§
¦ý¬O¤£¾å±o¬°¤°»ò
­ì¥»©R¦Wªº¤U©Ô¦¡¿ï³æ¬°¡yBox1¡z
Sheet1.[A100] = DateSerial(Box1, Box2, Box3)
·|¥X²{§ä¤£¨ì¦¨­ûªºÄµ§iµøµ¡
­n§ï¬°ComboBox3 ªº¦WºÙ¤~¨S¦³¥X¿ù
¦ý¬O§Ú­ì¥»³]©w­n±N³o¤T­ÓÄæ¦ìªº¼Æ­È
¤À§O¬°¦~¤ë¤é
³£¶Ç¨ìÄæ¦ì®ÉÅܦ¨§¹¾ã¤é´Á[¨Ò¦p¡G2013/02/28]
¦ý¶Ç¨ìA1®É¡A¤@«ßÅã¥Ü1999/11/30(¦p¹Ï)
¤£¾å±o¬°¤°»ò
§Æ±æ¯à¸Ñµª§ÚªººÃ´b
·P¿E¤£ºÉ!!

Hsieh

¦^´_ 3# Jared

1. Private Sub CommandButton1_Click()
   
2. Dim A As Range
   
3. If Application.CountBlank(Sheet1.Range("A5:A99")) = 0 Then
   
4. Sheet1.[A100] = DateSerial(ComboBox1, ComboBox2, ComboBox3)
   
5. Else
   
6. Set A = [A5]
   
7. Do Until A = ""
   
8.   Set A = A.Offset(1, 0)
   
9. Loop
   
10. A.Value = DateSerial(ComboBox1, ComboBox2, ComboBox3)
    
11. End If
    
12. End Sub

½Æ»s¥N½X

Jared

·PÁ¤j¤jÀ°¦£
¦ý¬O³o¼Ëªº¼gªk
X = a1&"." & a2 & "." & a3
""¤@©w­n¥[¤W()
¤£µM·|§PÂ_³o¬O«D³¯­z¦¡¥X²{¿ù»~

§Ú¥D­nªº°ÝÃD¬O
­n«ç»ò³]©w
¤~¯à±N¤U©Ô¦¡¿ï³æªºªF¦è¦bÂI¿ïBottom«á
±N¸ê®Æ¶Ç¨ì«ü©wÄæ¦ì¤W

·P¿E¤£ºÉ>"<

kimbal

¦U¦ì¤j¤j¦n
¤p§Ì§Ú¤é«e¬ã¨s¢ä¢Ð¢Ï¥Îªk
¦ýµ{¦¡¼gªkÁÙ¬O¦³¨Ç¤£©ú¥Õ

¥Ø«e¹J¨ìªº°ÝÃD¬O
¥Î·N¬O­nªí³æ¥Î¤U ...
Jared µoªí©ó 2013-2-25 16:25

¤£¤Ó²M·¡­¶­±¤Wªº±¡ªp,
¦ý¬O³o¥y¬O¦³°ÝÃDªº
X = ("a1") & (".") & "a2" & (".") & "a3"
À³¸Ó¬O³o¼Ë
X = a1&"." & a2 & "." & a3
¤£µM­¶­±¤W¥u·|¥[¤W¼g¦º¤Fªº "a1.a2.a3"