excel - vba可见总过滤器

Question

我有以下代码：

.AutoFilter Field:=3, Criteria1:=docnum
    .AutoFilter Field:=6, Criteria1:=pmtdate

  
    Range("H1").Select
    Selection.Offset(1, 0).Select
     Range(Selection, Selection.End(xlDown)).Select
     visibleTotal = Application.WorksheetFunction.Sum(Selection.SpecialCells(xlCellTypeVisible))
     
     
     
     If visibleTotal = pmtamt Then
     

     MsgBox visibleTotal

所以，我的问题是我希望它接受范围为 (最多 +-10) 的可见总数。

例如，如果我的变量是 = 10，我希望我的代码匹配从 0 到 20 的所有内容，并且我的变量的边距为 + 或 - 10 个数字

所以 0 到 20 之间的所有内容都应该匹配，包括 10.001 和 10.569 ... ETC ..

我这样做是为了匹配金额，无论货币差异可能会增加或减少金额，并且我的允许范围是 + 或 - 10 $

如果我的问题不清楚，请告诉我。

标签： excelvbamatching