运行使用公式计算单元格时出现时间错误 1004

Question

我已经为我的 excel 文件编写了 VBA 代码。在 VBA 代码中，我必须删除具有公式的单元格。如果我的代码找到至少一个具有公式的单元格，那么我的代码工作正常，但如果没有这样的单元格，那么它会显示错误 - 运行时间错误“1004”。

我的密码是

Dim n As Integer
n = Sheets("Pay_Slip").Range("B11:AO510").SpecialCells(xlCellTypeFormulas, 23).Count

If n > 0 Then
    Sheets("Pay_Slip").Range("B11:AO510").Select
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.ClearContents
End If

请帮我找出错误。

Answer 1

您可以捕获无公式单元格条件：

Sub qwerty()
    Dim n As Long
    On Error Resume Next
        n = Sheets("Pay_Slip").Range("B11:AO510").SpecialCells(xlCellTypeFormulas, 23).Count
        If Err.Number > 0 Then
            MsgBox "no formula cells"
            Exit Sub
        End If
    On Error GoTo 0
    
    If n > 0 Then
        Sheets("Pay_Slip").Range("B11:AO510").Select
        Selection.SpecialCells(xlCellTypeFormulas, 23).Select
        Selection.ClearContents
    End If
End Sub

Answer 2

为了解决没有公式的可能性，并添加其他改进机会

Sub Demo()
    Dim rFormula as Range

    On Error Resume Next
        Set rFormula = Workheets("Pay_Slip").Range("B11:AO510").SpecialCells(xlCellTypeFormulas, 23)
    On Error GoTo 0
    
    If Not rFormula Is Nothing Then
        rFormula.ClearContents
    End If
End Sub

运行使用公式计算单元格时出现时间错误 1004

run time error 1004 while counting cell with formula

excel

vba

excel-2016

运行 使用公式计算单元格时出现时间错误 1004

run time error 1004 while counting cell with formula

excel

vba

excel-2016

运行使用公式计算单元格时出现时间错误 1004