ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ÝÀx¦s®æ®É¶¡®æ¦¡°ÝÃD

[µo°Ý] ½Ð°ÝÀx¦s®æ®É¶¡®æ¦¡°ÝÃD

¤j¤j¦n¡G

¤p§Ì¥Îtextbox­n°µ®É¶¡ªºkeyin¨ìÀx¦s®æ¡Aµo²{¤F¤@­Ó°ÝÃD¡A

·í§ÚtexboxÅã¥Ü¬°11:25(®É:¤À)¡Akeyin¦ÜÀx¦s®æ«áÅã¬O¬°¡i11:25¡j

¦]¬°§Ú­n°µ®É¶¡²Ö¥[ªº°Ê§@¡A»Ý­n¬°¡i11:25:00 AM¡jªº®æ¦¡

*§ÚÂI¿ïÀx¦s®æ«á«ö¤UENTER«á®æ¦¡´N·|Åܦ¨¡i11:25:00 AM¡j

¤£ª¾¹Dªí¹Fªº¦n¤£¦n¡A½Ð°Ñ¦Òªþ¥ó¡AÁÂÁ¡C

®É¶¡¥[Á`®æ¦¡.rar (15.33 KB)

¦^´_ 1# lifedidi
  1. Private Sub CommandButton1_Click()
  2. With Sheet1
  3. Set a = .[A65536].End(xlUp).Offset(1, 0)
  4.    With a.Resize(, 3)
  5.      .Value = Array(TimeValue(TextBox1), TimeValue(TextBox2), TimeValue(TextBox3))
  6. End With
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


   ·PÁ¤j¤j¡I¨¯­W¤F¡I

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD