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

ªí³æÅã¥Ü¤é´Á°ÝÃD

ªí³æÅã¥Ü¤é´Á°ÝÃD

½Ð°Ý¦U¦ì¤j¤jVBA¦Û­qªí¦ý¦p¤U
Private Sub Label1_Click()
Label1.Caption = Mid(Format(Date, "yyyy¦~mm¤ëdd¤é"), 1, 12)
End Sub
¤@¶}©l´N¦Û°Ê¹ïÀ³¨t²Î¤é´Á½Ð°Ý­n¦p¦ó§ïÁÂÁÂ

¦^´_ 1# gca78000


    ¦bTHISWORKBOOK¸Ì·s¼W¡ASHEET2½Ð¦Û¦æ­×§ï¬°LABLE©Ò¦bªí³æ
  1. Private Sub Workbook_Open()
  2. Sheet2.Label1.Caption = Format(Date, "yyyy¦~mm¤ëdd¤é")
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# owen06
¤j¤j§A¦n§Ú©Ò«ü¬OUserForml¸ÌªºLabel1¨Ì°õ¦æ´N¦Û°Ê¹ïÀ³¨t²Î¤é´Á½Ð«ü±ÐÁÂÁÂ

TOP

¦^´_ 3# gca78000
¥H¸Ñ¨MÃøÃDÁÂÁ¤j¤j«ü¾É¤F¥Î¥H¤U¤Þ­z§Y¥i

    Private Sub UserForm_Activate()
sheet1.Label1.Caption = Mid(Format(Date, "yyyy¦~mm¤ëdd¤é"), 1, 12)

End Sub

TOP

¦^´_ 4# gca78000
Mid( XXX ,1,12) ¦n¹³¨SÔ£¥²­n
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 5# stillfish00

UserForm1.Label1.Caption = (Format(Date, "yyyy¦~mm¤ëdd¤é"))
»¡ªº¤]¬O¤p§Ì¤S¨ü±Ð¤F·PÁ¤j¤j«ü¾É½×¾Â¤W¦³§A­Ì¯u¦n·P®¦

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD