2015-12-13 108 views
0

我試圖循環訪問我的Excel電子表格中的某些行。對於第一組即時嘗試循環通過每3行,以查看其隱藏和第二循環,我正在逐步通過每2個。我基本上想通過兩個循環添加什麼是真正的,並返回該值。 「Return y」部分給我一個錯誤。從宏返回整數

Function FindHiddenRows() As Integer 

Dim x As Integer 
Dim y As Integer 
y = 0 

For x = 23 To 38 Step 3 
    If Rows("x:x").EntireRow.Hidden = False Then 
    y = y + 1 
    End If 
    Next x 

For x = 40 To 46 Step 2 
    If Rows("x:x").EntireRow.Hidden = False Then 
    y = y + 1 
    End If 
    Next x 

Return y 

End Function 
+1

變化'行( 「X:X」)''到行(X)' –

+1

和'返回y'爲'FindHiddenRows = y' –

+3

這不是VB.Net請使用正確的標籤:) –

回答

1

,使其快速/短/簡單:

Function FindHiddenRows() As Byte 

    Dim x As Byte, y As Byte 

    For x = 22 To 46 Step 2 
    If x < 38 Then x = x + 1 
    If Not Rows(x).Hidden Then y = y + 1 
    Next 

    FindHiddenRows = y 

End Function