Question

我在Excel上工作，用户可以将信息输入特定单元格，保存，然后发送。在此工作表中，他们还可以选择粘贴图像（名为“Picture”的.bmp文件）。我有一个宏清除细胞的内容。当图像存在时，它可以正常工作，但是当图像不存在时会失败，但这并不总是如此。我没有编码经验，所以从谷歌到目前为止拼凑了所有东西。如果不在页面上但是继续清除剩余单元格的内容，如何让我的宏跳过查找命名图像？

这是我的代码：

Sub ResetandDelete()
' 
'ResetAndDelete Macro
'Clears cell contents and resets form.

    Range("A44:E60").Select
    Selection.ClearContents
    Activesheet.Shapes.Range(Array("Picture")).Select
    Selection.Delete
    Range("C6:C38").Select
    Selection.ClearContents

End Sub

请帮助!!

Answer 1

试试这个

Sub ResetandDelete()
    With ActiveSheet
        .Range("A44:E60").ClearContents

        On Error Resume Next
        .Shapes.Range(Array("Picture")).Delete
        On Error GoTo 0

        .Range("C6:C38").ClearContents
    End With
End Sub

VBA：如果找不到，则跳过寻找对象

1 个答案: