總可見細胞

Question

應用高級過濾器后，我使用下面的代碼僅對可見單元進行求和，並且運行良好。 但是，當過濾器后面沒有可見的單元格時，它將顯示錯誤。 關於如何掩蓋錯誤的任何想法？

Sub sum ()
    Sheets("Sheet1").Select
    x = cells(Rows.Count, 8).End(xlUp).Row

    Sheets("Tax Invoice").Range("M55") = WorksheetFunction.Sum(Range("H7:H" & x).SpecialCells(xlCellTypeVisible))
End sub

Answer 1

在嘗試計算總和之前，計算可見行的數量：

Option Explicit

Public Sub sumTaxInvRng()
    Dim x As Long, vRng As Range

    With Sheets("Sheet1")
        x = .Cells(.Rows.Count, 8).End(xlUp).Row
        Set vRng = .Range("H7:H" & x).SpecialCells(xlCellTypeVisible)
    End With

    If vRng.Count > vRng.Columns.Count Then
        Sheets("Tax Invoice").Range("M55") = WorksheetFunction.Sum(vRng)
    End If
End Sub

---

另外，您不應為函數使用本機函數名稱： Sub sum()