bobomi

Set A1 = rng(1)
Set A2 = rng(2)
Set A3 = rng(3)

bobomi

Sub MA3333()
    Dim rng, A1, A2, A3, A4
    Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type ...
t8899 µoªí©ó 2014-11-1 06:37

¨Sª`·N¨ìÁÙ¦³¸õµÛ¿ïªº


   Dim rng
   Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type:=8)

ReDim A1(1 To rng.Count)
Dim k As Long
For Each r In rng
    k = k + 1
    Set A1(k) = r
    Msgbox A1(k).Address
Next

bobomi

§ï³o¼Ë¤]¥i¥H:
Set A1 = rng.Areas(1)
Set A2 = rng.Areas(2)
Set A3 = rng.Areas(3)
Set A4 = rng.A ...
luhpro µoªí©ó 2014-11-1 22:53

thanks

bobomi

§Ú¸Õ¹L  ¤U­±¤]·|·Ó§A©Ò¿ïªº¶¶§Ç¨Ì§Ç³B²z,¥u¬OµLªkª¾¹D­Ó§OÅܼƪº¦WºÙ  
   Dim ZZ, rng
    Set rng = ...
t8899 µoªí©ó 2014-11-2 08:38

§A¥Î luhpro ¼gªº³o­Ó§a
Set A1 = rng.Areas(1)
Set A2 = rng.Areas(2)
Set A3 = rng.Areas(3)
¤ñ¸û¤è«K