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

Excel·s¼WSheet¦A§R°£¨ÃSaveÁ¼«ä

Excel·s¼WSheet¦A§R°£¨ÃSaveÁ¼«ä

³Ìªñ¦b°µ¤@¨Ç¸ê®Æ¤U¸ü¨Ã¤ÀªR¾ã²zµ{§Ç¡A
¦]¬°¤U¸üªºSheet¯Âºé¥u­n°µ¸ê®Æªº±Æ§Ç¤ÀªR¡A
¤ÀªR§¹²¦¦A±N¥¿½Tµ²ªG¶ñ¤J·s¼WSheet¡A
µ{§Ç§¹²¦«á§R°£¤U¸üSheet¨Ã¦sÀÉ¡C
µM¦Óµo²{¥H¤Uµ{§Ç·|³y¦¨ExcelÀɮפj¤p¤£Â_¼W¤j¡A
¤£ª¾¹D¬O¤°»ò­ì¦]·|¼W¥[Àɮפj¤p¡A
ºô¤Wª¦¤å¬d¤F«Ü¦h¬ÛÃö°T®§¡A
¤j¦h³£¬O¥uMicrosoftªºBug¡A
³o°ÝÃD¤w¦s¦b«Ü¤[¤F¡A
©Î¬O¦U¦ì¥ý¶i¦³¸Ñ¨M¤è¦¡?
  1. Sub ClearSheets()
  2. Application.DisplayAlerts = False
  3. Worksheets.Add Count:=5, Before:=Sheets(1)
  4. Sheets(1).Name = "AAA": Sheets(1).Tab.ColorIndex = 3
  5. Sheets(2).Name = "BBB": Sheets(2).Tab.ColorIndex = 3
  6. Sheets(3).Name = "CCC": Sheets(3).Tab.ColorIndex = 3
  7. Sheets(4).Name = "DDD": Sheets(4).Tab.ColorIndex = 3
  8. Sheets(5).Name = "EEE": Sheets(5).Tab.ColorIndex = 4
  9. Sheets("AAA").Delete
  10. Sheets("BBB").Delete
  11. Sheets("CCC").Delete
  12. Sheets("DDD").Delete
  13. Sheets("EEE").Delete
  14. Application.DisplayAlerts = True
  15. End Sub
½Æ»s¥N½X

Excel·s¼W¨Ã§R°£.rar (15.58 KB)

¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

¦^´_ 1# faye59

¦pªG¬O§Ú¡A
§Ú·|¿ï¾Ü¨Ï¥ÎÁôÂæӤ£¬O§R°£¡A
µ¹§A°Ñ¦Ò¬Ý¬Ý¡C

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD