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

¤é´ÁÅã¥Ü°ÝÃD

¦^´_ 1# gca78000


    ¦bthisworkbook¸Ì·s¼W¤U¦C¤å¦r¡A¡ysheet1¡z½Ð¦Û¦æ­×§ï
    Private Sub Workbook_Open()
    Sheet1.Label1.Caption = Mid(Format(Date, "yyyy¦~mm¤ëdd¤é"), 1, 12)
    End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD