- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-24 22:41 ½s¿è
Ãþ¦ü³oºØ¤£¨Ì·Ó¶¶§Ç¥u°w¹ï¤u§@ªí¦WºÙ°µ³B²zªº»Ý¨D¨ä¹ê³Ì¾A¦X¥Î°}¦C¨Ó³B²z¤F.
Sub nn()
Dim vSheetName
Dim iI%
vSheetName = Array("¼Ï¯ÃªíA", "¼Ï¯ÃªíC", "¼Ï¯ÃªíE", "¼Ï¯ÃªíF")
For iI = 0 To UBound(vSheetName)
Debug.Print vSheetName(iI)
Next iI
End Sub
Yn°ÊºA·s¼W¤u§@ªí¦WºÙ¨ì°}¦C¤º½Ð¨Ï¥Î¥H¤U¤è¦¡ :
ReDim Preserve vSheetName(UBound(vSheetName) + 1)
vSheetName(UBound(vSheetName)) = "¼Ï¯ÃªíG" |
|