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

½Æ»s¨ì·sªº¤u§@ªí¨Ã¸õ¥Xµøµ¡§ï¦W¦r

½Æ»s¨ì·sªº¤u§@ªí¨Ã¸õ¥Xµøµ¡§ï¦W¦r

¥»©«³Ì«á¥Ñ king0331 ©ó 2017-5-31 00:15 ½s¿è

ªÅ¥Õªº¤u§@ªí¬Osample
§Ú·Q«ö¤U¡§«ö¶s2¡¨®É
¸õ¥X¤@­Óµøµ¡°Ý§Ú¡¨¬O§_¬°772©Î773"
¥i¥HÅý§Ú¿ï¾Ü¬O772©Î773
µM«á½Æ»ssampleªº¤u§@ªí
·s¤u§@ªíªº¦W¦r´N¬O  ¡]¬Ý§Ú¿ï¾Üªº¬O772©Î¬O773¡^   ¤µ¤Ñªº¤é´Á+¡§772¡¨©Î      ¤µ¤Ñªº¤é´Á+¡§773¡¨
¦b¤@­Ó«ö¶s´N§¹¦¨¡A§Ú¥u»Ý«ö¡§772¡¨©Î¡§773¡¨

³Â·Ð¤F¦U¦ì¤j¤j¡A¹ï§Ú¨Ó»¡«Ü­«­n

Sample.png (46.09 KB)

Sample.png

sample.rar (16.62 KB)

¦^´_ 1# king0331

¸õ¥X­¶­±·|¥Î¨ì¦Û¦æ©w¸qªí®æ¡A¥BÁÙ¬O­n¿ï772 or 773
«Øij¬Oª½±µµ¹¨â­Ó«ö¶s¡A¤@­Ó©w¸q¬°772¡A¤@­Ó©w¸q¬°773¡A
À³¸Ó´N¯à¹F¦¨§A­nªº¥\¯à¤F
  1. Sub «ö¶s2_Click()

  2. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
  3. ActiveSheet.Name = Format(Date, "YYYYMMDD") & "-772"

  4. End Sub

  5. Sub «ö¶s3_Click()

  6. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
  7. ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-773"

  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# prin.huang





³o·|¦³¿ù»~
  1. ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-772"
½Æ»s¥N½X
«Øij§ï¤@¤U
  1. ActiveSheet.Name = Format(Date, "yyyy-mm-dd") & "-772"
  2. '©Î¬O
  3. ActiveSheet.Name = Format(Date, "dddddd") & "-772"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤Ó·PÁ¤F¡I¡I¡I¡I
¯u¦n¾A¦X§Ú¥Î
§Ú¤]¾Ç¤F¤@©Û

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD