¤Þ¥Î:
§@ªÌ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
³on¥Î¤°»ò¤½¦¡©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