- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 8# t591nm - Sub §R°£¦h¾l¤u§@ªí()
- Dim ts As Integer, aList$
- ' aList$ ³o¬O¦r¦ê«Å§i¡A µ¥©ó«Å§i¦¨ aList As String
-
- Data = Array("¸ê®Æ1", "¸ê®Æ2", "¸ê®Æ3", "¸ê®Æ4", "¸ê®Æ5", "¸ê®Æ6", "¸ê®Æ7", "¸ê®Æ8", "³sµ²0", "³sµ²1", "³sµ²2", _
- "³sµ²3", "³sµ²4", "³sµ²5", "³sµ²6", "³sµ²7", "³sµ²8", "³sµ²9", "SERIES¤ÎPF¤ñ¸û¥i¦C¦L", "SERIES ¤ñ¸û¶K¤W", _
- "°O¿ýªíÂà´«¼ÐÅÒ", "¨Ó¦~¬ö¿ý¥i¶K¤W")
- ' Example : Data °}¦CÅÜ¼Æ Data(0) ~ Data(21) ªº¦s©ñ¤º®eÈ¡C
- ' Data : : Variant/Variant(0 to 21)
- ' Data(0) : "¸ê®Æ1" : Variant/String
- ' Data(1) : "¸ê®Æ2" : Variant/String
- ' Data(2) : "¸ê®Æ3" : Variant/String
- ' .
- ' .
- ' .
- ' Data(20) : "°O¿ýªíÂà´«¼ÐÅÒ" : Variant/String
- ' Data(21) : "¨Ó¦~¬ö¿ý¥i¶K¤W" : Variant/String
-
- aList = Join(Data, ",") ' ¶°¦X°}¦C Data ¤º®e¡A¨Ã¥H "," §@¬°¤À¹j²Å¸¹¡Cµ²ªG¦p¤U¡G
- ' aList = "¸ê®Æ1,¸ê®Æ2,¸ê®Æ3,¸ê®Æ4,¸ê®Æ5,¸ê®Æ6,¸ê®Æ7,¸ê®Æ8,³sµ²0,³sµ²1,³sµ²2,³sµ²3,³sµ²4,³sµ²5,³sµ²6,³sµ²7,³sµ²8,³sµ²9,SERIES¤ÎPF¤ñ¸û¥i¦C¦L,SERIES ¤ñ¸û¶K¤W,°O¿ýªíÂà´«¼ÐÅÒ,¨Ó¦~¬ö¿ý¥i¶K¤W" : String
-
- Application.DisplayAlerts = False
-
- For ts = Sheets.Count To 1 Step -1
- ' ¦pªG aList ¦r¦ê¤¤¦³²Å¦X¸Óªí³æ¦WºÙªÌ¡A«h¤©¥H§R°£¡C
- ' Ä´¦p¡G¸Óªí³æ¦WºÙ¬° "°O¿ýªíÂà´«¼ÐÅÒ"¡A«h¤ñ¹ïµ²ªGµo²{¸Ó aList ¦r¦ê¤¤¦³¦¹¦r¦ê¦WºÙ¡C
- ' «hª½±µ³w¦æ§R°£¡F§_«h¤ñ¹ï¤£¦¨¥\«h¤£³B²z¡C
- If InStr(aList, Sheets(ts).Name) Then
- Sheets(ts).Delete ' §R°£±ý§R°£ªº¤u§@ªí
- End If
- Next
-
- Application.DisplayAlerts = True
- End Sub
½Æ»s¥N½X |
|