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

[µo°Ý] (¤w¸Ñ¨M)¦b¤£¬Û¾Fªº¤u§@ªí°µ¦P¼Ë°Ê§@

¥»©«³Ì«á¥Ñ 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

­Y­n°ÊºA·s¼W¤u§@ªí¦WºÙ¨ì°}¦C¤º½Ð¨Ï¥Î¥H¤U¤è¦¡ :
ReDim Preserve vSheetName(UBound(vSheetName) + 1)
vSheetName(UBound(vSheetName)) = "¼Ï¯ÃªíG"

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD