Question

我的宏在第1天（6月1日）按编码进行处理，但是当我已经将“ 2”设置为6月2日时，出现此错误：

“未找到任何单元格”

这是我的代码，试图求和给定日期的所有金额。但是6月2日将没有数据（没有交易，没有金额），所以我希望它返回值0。但是，该错误会弹出。

  ElseIf ws.Cells(R, 2).Value = "SECURITY" And ws.Cells(R, 3).Value = "C/A# 0461-025792-001" Then
ws25.Range("A4").AutoFilter Field:=1, Criteria1:=Day & "-" & Monthw & "-" & Year1
ADD = WorksheetFunction.Sum(ws25.Range("C4:C1500").SpecialCells(xlCellTypeVisible))
ws.Cells(R, 5).Value = ADD
ws25.Range("A4").AutoFilter

ws25.Range("A4").AutoFilter Field:=1, Criteria1:=Day & "-" & Monthw & "-" & Year1
MIN = WorksheetFunction.Sum(ws25.Range("D1:D1500").SpecialCells(xlCellTypeVisible))
ws.Cells(R, 11).Value = -MIN
ws25.Range("A4").AutoFilter

希望您能提供帮助！谢谢！

Excel VBA，自动筛选器错误：找不到单元格

0 个答案: