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

¤£¬Û¾F³æ¤¸®æ,¦p¦óÅܬ°¯x°}¨Ï¥Î

¦^´_ 1# b31978
  1. Sub Ex()
  2.     Dim AR
  3.     AR = Array(Range("A1").Value, Range("B3").Value, Range("B2").Value)
  4.     MsgBox AR(0)
  5. End Sub
  6. Sub Ex1()
  7.     Dim AR
  8.     AR = Array("A1", "B3", "B2")
  9.     MsgBox Range(AR(0))
  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD