总计可见单元格

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()