¦p¦ó¨ú¥X«ü©w°£¥~ªº¨ä¥L¤u§@ªí¦WºÙ©O¡H
- ©«¤l
- 128
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥|¤t¦¨³£ÊT崃
- µù¥U®É¶¡
- 2010-9-13
- ³Ì«áµn¿ý
- 2017-5-12
|
¥»©«³Ì«á¥Ñ et5323 ©ó 2010-10-17 11:12 ½s¿è
Sub aa()
Dim mSht As Worksheet
Dim ar, ar1()
Dim s%, s1%
Dim mStr$
On Error Resume Next
ar = Array("aa", "cc", "ff")
For Each mSht In Worksheets
mStr = mSht.Name
s = Application.WorksheetFunction.Match(mStr, ar, 0)
If Err.Number <> 0 Then
ReDim Preserve ar1(s1)
ar1(s1) = mSht.Name
s1 = s1 + 1
Err.Clear
End If
Next
End Sub |
|
|
|
|
|
|