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

[µo°Ý] ¦n©_¡A§R¤£±¼ªºªÅsheetsµ{¦¡µ¡

[µo°Ý] ¦n©_¡A§R¤£±¼ªºªÅsheetsµ{¦¡µ¡

¥»©«³Ì«á¥Ñ ui123 ©ó 2017-8-31 13:46 ½s¿è

¦U¦ì¦³¹J¹L³o­Ó°ÝÃD¶Ü? §Ú§R±¼sheet«á ¡AVBA µ{¦¡µ¡«o¯d¤U¤@°ïªÅsheet¡A¦³¬Ý¨ì¤§«e¤@½g(http://forum.twbts.com/viewthread.php?tid=4369)¡A¦ý¬O§ä¤£¨ì"½s¿è>¨ì>¯S®í>ª«¥ó---->½T©w"
¤£ª¾¹D­n«ç»ò¥Î¥¨¶°§R±¼¡A©Î§Ú­ì¥»§Rsheetªºµ{¦¡¥i¥Hª½±µ§R°£

­ì¥»§Rsheetªºµ{¦¡¦p¤U:

    Dim xWs As Worksheet
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If  xWs.Name <> "Template" And xWs.Name <> "Template journal"  Then
            xWs.Delete
        End If
    Next
javascript:;

javascript:;

§R¤£±¼ªºsheet

qqq.JPG

§ä¤£¨ì

old.JPG

¤£µ¹§Ú§R
javascript:;
nodelete.JPG

TOP

¦^´_ 3# GBKEE

¶W¯Åª©¥DGBKEE¡AÁÂÁ±zªº¦^µª
³o´N¬O§Ú§R¤£±¼ªºVBAªÅsheetÀÉ®×...."¦n¦h­ÓªÅsheet¦bVBA±M®×¸Ì"¡A¦n©Ç¡A§¹¥þ¨S§@¥Î¡A¦ý§Ú¨S¿ìªk§R°£¡A¦Ó¥BÀHªÌ§Ú¶]¥¨¶°¶V¨Ó¶V¦h¡A¦n®£©Æ°Ú~
¦³¿ìªk§R±¼¶Ü? ¥Î¥¨¶°°j°é±±¨îª«¥ó¥h§R¡A¦hÁ«üÂI©ú¿O :dizzy:

javascript:;
javascript:;

WantdeleteVBAsheets

¹Ï¤ù 1.jpg
¹Ï¤ù 1.jpg

WantdeleteVBAsheets.zip (36.42 KB)

WantdeleteVBAsheets

TOP

¦^´_ 3# GBKEE


    ¦n®£©Æ........

javascript:;
¹Ï¤ù 2.jpg

TOP

¦^´_ 6# HUNGCHILIN

HUNGCHILIN¤j¤j¡A·PÁ±z
¤µ¤Ñ¸Õ¤F¤@¤U¡A¥u¯à§âexcel¸Ìªº¥¨¶°³£§R±¼³s¼Ò²Õ¤@°_§R±¼«á¦sÀÉ¡AÀx¦s«á­«¶}´N·|®ø¥¢¡A
¦ü¥GµLªkª½±µ¥Îµ{¦¡§R±¼

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD