返回列表 上一主題 發帖

巨集寫法?

巨集寫法?

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

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

   Range("A9").Select

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

  1. Sub quest1()
  2. i = [a1].Value
  3. j = [a2].Value
  4. Rows(i & ":" & j).Select
  5. End Sub

  6. Sub quest2()
  7. r = [b1].Value
  8. Range("A" & r).Select
  9. End Sub
複製代碼
回復 1# lp986749

TOP

回復 1# lp986749

應該是像這樣吧

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

參考看看
  1. Sub test1()

  2.     Dim i As Integer
  3.     Dim j As Integer
  4.    
  5.         i = 1
  6.         j = 7
  7.         
  8.         Rows(i & ":" & j).Select
  9.    
  10. End Sub

  11. Sub test2()

  12.     Dim r As Integer
  13.    
  14.         r = 9
  15.         
  16.         Range("A" & r).Select
  17.         
  18. End Sub
複製代碼
用功到世界末日那一天~~~

TOP

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

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題