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

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

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

½Ð¦U¦ì°ª¤â,°ª°ª¤â,¤p§Ì·Q¯}¤FÀY,¤]µLªk·Q¥X¦p¦ó¨Ï¥Î,
¨Ò¦p§âA1,B3,B2µ¥¤£¬Û¾F³æ¤¸®æ,·Q­nÅܬ°¯x°},¥H§Q«á­±µ{¦¡ªº¨ú¥Î,
¥i¬O§Ú­n¦p¦ó¤~¯à¨ú¥Î¨ì©O?
¨Ò¦p:ar(0)=a1ªº¸ê®Æ,ar(1)=b3¸ê®Æ..µ¥µ¥
ÁÂÁ¦U¦ìªº¨ó§U,Orz
   
Dim ar As Variant
        ar = Array(Range("a1, b3, b2").Select)

¦^´_ 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

¦^´_ 2# GBKEE


ÁÂÁ±z,À°¤F¤j¦£¤F,VBA¯u¬O³Õ¤jºë²`...Ä~Äò¬ãŪ!!!
¦A¦¸·PÁÂ...:D

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD