luhpro

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

§ï³o¼Ë¤]¥i¥H:
Set A1 = rng.Areas(1)
Set A2 = rng.Areas(2)
Set A3 = rng.Areas(3)
Set A4 = rng.Areas(4)

luhpro

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

§Ú·Q¨ìªº¦³¨âºØ¤èªk¥i¥H¹ê²{,
¤£¹L­n¬Ý§A«áÄòªº»Ý¨D¨M©w­n¥Î­þºØ:
1. »Ý­n§ì©Ò¿ï¨úÀx¦s®æªº¦ì§}¦r¦ê:

1. Sub MA3333()
   
2.     Dim rng, a$(), i%
   
3. On Error Resume Next
   
4.     Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type:=8)
   
5.     ReDim a(0)
   
6.     For i = 1 To rng.Count
   
7.       ReDim Preserve a(i)
   
8.       a(i) = rng.Areas(i).Address
   
9.       MsgBox "§A¿ï¾Üªº²Ä " & i & "­ÓÀx¦s®æ¦ì§}¬° :  " & a(i)
   
10.     Next
    
11. On Error GoTo 0
    
12. End Sub

½Æ»s¥N½X

2. »Ý­n§ì©Ò¿ï¨úªºÀx¦s®æª«¥ó:

1. Sub MA3333()
   
2.     Dim rng, i%
   
3. On Error Resume Next
   
4.     Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type:=8)
   
5.     For i = 1 To rng.Count
   
6.       MsgBox "§A¿ï¾Üªº²Ä " & i & "­ÓÀx¦s®æ¦ì§}¬° :  " & rng.Areas(i).Address
   
7.     Next
   
8. On Error GoTo 0
   
9. End Sub

½Æ»s¥N½X

·|¥[ On Error Resume Next ¬O¦]¬°­Y¨Ï¥ÎªÌ¤@¦¸¿ï¤F¶W¹L¤@­ÓÀx¦s®æ®É,
«á­±·|µo¥Í¿ù»~.

¦]¬°­Y¦ì§}¬° $A$1:$B$1 ¦¹Ãþ®æ¦¡®É,
count ·|ºâ¨â­Ó¦ì§},
¦ý areas «h¥uºâ¤@­Ó¦ì§},
³Ì«á i ·|¤j©ó°}¦C³Ì¤j¯Á¤Þ­È.