ÂsÄý³æ­Ó¤å³¹
eniacwoo
New Member
 

¥[¤J¤é´Á: Nov 2003
±zªº¦í§}: Kaoshiung
¤å³¹: 7
¤Þ¥Î:
§@ªÌdodorabbit
Â÷ÃD¤@¤U
=====================
½Ð°Ý¤@¤U,§Ú¦³¤@­ÓEXCELÀÉ
ùØ­±¬O1¸¹¨ì31¸¹¦@31­Ó¤À­¶,¤º®e³£¤@¼Ë¥u¦³¤é´Á¤£¤@¼Ë
¨C­Ó¤À­¶¤W­±³£­n³]©w¦P¼Ëªº«ö¶s,
¨Ò¦p,,«ö¤F´N·|¸õ¨ì¦P¤@­¶ªº²ÄE70®æ...³o¼Ëªº«ö¶s¨C¤@¤À­¶¦³15­Ó
¦]¬°¨C¤@­¶ªº«ö¶s³£¤@¼Ë,©Ò¥H§Ú¥Î´_»sªº¨ì¨C¤@­Ó¤À­¶,µ²ªG³£¬O¸õ¨ì²Ä¤@­¶
..........
½Ð°Ý¦pªG¥Î¤½¦¡³]©w¦Û°ÊŪ¨ú¤é´Á¥hÅܦ¨¤À­¶¦WÅý«ö¶s¥i¥H¨C­¶¦Û°Ê³]©w¦n
³o­n¥Î¤°»ò¤½¦¡©O
ÁÂÁÂ


«ö¶sªº¥¨¶°¬O¿ý»sªº¶Ü? ³o­Ó»Ý­n¥Î¨ì VBA,
ALT-F11 ¥i¥H¥´¶} VBA ½s¿è¾¹, ½s¿è¹ïÀ³ªº¼Ò²Õ

DATE «ü¥O¥i¥H¨ú±o¤é´Á, FORMAT «ü¥O¥i¥H®æ¦¡¤Æ¦r¦ê,
¨Ò¦p:

sSheetname = Format(Date, "yyyymmdd")
Worksheets(sSheetname).Activate
Range("E70").Select
ÂÂ 2014-05-02, 01:16 PM #27
¦^À³®É¤Þ¥Î¦¹¤å³¹
eniacwooÂ÷½u¤¤