[µo°Ý] (¤w¸Ñ¨M)§R°£¤u§@ªí¸Ì­±©Ò¦³ªº©w¸q¦WºÙ

freeffly

¦pªG§ÚªºÀɮ׸̭±¦³¨Ç¤u§@ªí¸Ì­±¡A¦³±Mªùµ¹¸Ó¤u§@ªí¨Ï¥Îªº©w¸q¦WºÙ
¦³¤°»ò¤è¦¡¥i¥H¤@¦¸§R°£³o¨Ç±Mªù«ü©w¤u§@ªíªº©w¸q¦WºÙ¶Ü?

voyageellen

ÁÂÁÂfreefflyªº¸Ñ»¡
¤w¸g¥i¥H¨Ì·Ó§Ú·Q­nªºµ²ªG°õ¦æ

freeffly

¦^´_ 11# voyageellen


    ¦]¬°§A³]©wªº©w¸q¦WºÙ¤£¬O±MÄÝ©ósheet3ªº
   §A¦AÀH«K¥h³]¦U©w¸q¦WºÙ¦p¤U­±µM«á¦b¦WºÙ«e­±¥[¤W¤u§@ªí¦WºÙ¦A¥h¸Õ§Aªº¥N½X¬Ý¬ÝÅܤÆ
   
   ­n§R©w¸q¦WºÙ!A

voyageellen

½Ð°Ý§Ú¥u·Q§R°£¯S©w¤u§@ªíªº©w¸q¦WºÙ®É(¦pªþÀÉ)
·Ó¤W­z»¡©ú½s¼gªºµ{¦¡½X«o¨S¦³¤ÏÀ³(±NSheet1§ï¬°Sheet3)
À³¸Ó­n¦p¦ó­×§ï©O?

freeffly

¦^´_ 8# chin15


    §Ú¥D­n¬O­n§R°£¬Y¨Ç¤u§@ªíªº©w¸q¦WºÙ
    ¥i¯à¬O²Ä4¦U¤u§@ªí¥H«áªº
     ¦]¬°«e­±´X¦U¤u§@ªíªº¦WºÙÁÙ­n«O¯d
     ¦U¦ì³£´£¨Ñ¤F§Ú¾Ç²ßªº¦a¤è
      ÁÂÁ³á

GBKEE

¦^´_ 8# chin15
³o´N­n½Ð±Ð¼Ó¥Dªº»Ý¨D¬O¤°»ò

chin15

¦b¨C­Ó¤u§@ªí¤W´`Àô¡A§R°£¨C­Óªíªº©w¸q¦WºÙ
¸ò¤@¦¸§R°£¬¡­¶Ã¯¤º¤w©w¸qªº¦WºÙ
®t§O¦b­þ¸Ì¡H

freeffly

¦^´_ 6# GBKEE


    ·PÁ¤j¤jÀ°¦£Â²¤Æ
     §Ú¥H¬°«ü©w¤u§@ªí­nÅý¥LÅã¥Ü¤~¯à§@·~
      ¨S·Q¨ìÁÙ¥i¥H³o¼Ë°µ

GBKEE

¦^´_ 5# freeffly
²¤Æ¤@¤U

1. Sub §R°£¦WºÙ()
   
2.     For I = 4 To Sheets.Count
   
3.         For Each c In Sheets(I).Names
   
4.             c.Delete
   
5.         Next
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

freeffly

¦^´_ 4# GBKEE


  ¤j¤jªGµM²´¦y   §Ú¤]¦³µo²{ ©Ò¥H§Ú§ï¦¨§Ú­nªº¤è¦¡
  §Úªº¤èªk¦p¤U

    Sub §R°£¦WºÙ()
    For i = 4 To Sheets.Count
    Sheets(i).Visible = True
    Sheets(i).Select
    For Each c In ActiveSheet.Names
     c.Delete
   Next
    Sheets(i).Visible = False
    Next
End Sub