標題: 巨集寫法? [打印本頁]

---

作者: lp986749    時間: 2014-3-13 14:20     標題: 巨集寫法?

新手寫VB有興趣是否能告至下列問題謝謝!
   Rows("1:7").Select

    ("1:7") 如果用VB定義變數如 i , j 來表示應如何巨集程式如何表示?

   Range("A9").Select

    ("A9") 如果用VB變數如 r  來表示應如何巨集程式如何表示?

---

作者: owen06    時間: 2014-3-13 14:55

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

複製代碼

回復 1# lp986749

---

作者: li_hsien    時間: 2014-3-13 14:58

回復 1# lp986749

應該是像這樣吧

我分兩部分
test1是你上半部那個
test2是下面那個

參考看看

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

複製代碼

---

作者: lp986749    時間: 2014-3-13 22:42

感謝如此詳細解答我把它用於下方終於可執行,分享給其他有需要新手.謝謝您!
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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)