¥¨¶°¼gªk?

lp986749

·s¤â¼gVB¦³¿³½ì¬O§_¯à§i¦Ü¤U¦C°ÝÃDÁÂÁÂ!
   Rows("1:7").Select

    ("1:7") ¦pªG¥ÎVB©w¸qÅܼƦp i , j ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

   Range("A9").Select

    ("A9") ¦pªG¥ÎVBÅܼƦp r  ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

owen06

1. Sub quest1()
   
2. i = [a1].Value
   
3. j = [a2].Value
   
4. Rows(i & ":" & j).Select
   
5. End Sub
   
6. 
   
7. Sub quest2()
   
8. r = [b1].Value
   
9. Range("A" & r).Select
   
10. End Sub

½Æ»s¥N½X

¦^´_ 1# lp986749

li_hsien

¦^´_ 1# lp986749

À³¸Ó¬O¹³³o¼Ë§a

§Ú¤À¨â³¡¤À
test1¬O§A¤W¥b³¡¨º­Ó
test2¬O¤U­±¨º­Ó

°Ñ¦Ò¬Ý¬Ý

1. Sub test1()
   
2. 
   
3.     Dim i As Integer
   
4.     Dim j As Integer
   
5.    
   
6.         i = 1
   
7.         j = 7
   
8.         
   
9.         Rows(i & ":" & j).Select
   
10.    
    
11. End Sub
    
12. 
    
13. Sub test2()
    
14. 
    
15.     Dim r As Integer
    
16.    
    
17.         r = 9
    
18.         
    
19.         Range("A" & r).Select
    
20.         
    
21. End Sub

½Æ»s¥N½X

lp986749

·PÁ¦p¦¹¸Ô²Ó¸Ñµª§Ú§â¥¦¥Î©ó¤U¤è²×©ó¥i°õ¦æ,¤À¨Éµ¹¨ä¥L¦³»Ý­n·s¤â.ÁÂÁ±z!
Dim C As Integer

       C = 2
      
   For C = 2 To 96 Step 4         
      
     Rows(C + 4 & ":" & C + 6).Select
     Selection.EntireRow.Hidden = True

   Next

====================
Dim H As Integer
       H = 5
   For H = 5 To 100 Step 4         
        
     Range("AV" & H & ":" & "BZ" & H).Select     
     Selection.ClearContents
   Next