Question

我没有做很多VBA。我有一些代码：

If Target.Address = "$H$1" Then
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
End If

简单。根据单元格A13中的条件更改注释BG图像，插入由H2生成的文件/路径。然而...

有时文件/路径不存在H2中的内容（因为H2是根据用户输入/选择创建的）。

我试过这个：

If Target.Address = "$H$1" Then
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
Else
    Range("A13").Comment.Shape.Fill.UserPicture Range("H6").Value
End If

其中H6是“NOIMAGE.jpg”的另一个生成文件/路径，对于没有关联图像的任何条目，它都是常量。它也不喜欢。

在方法尝试运行/查找H2中的内容之前，我找不到能够执行其所需操作的else表达式。

想法？

Answer 1

试试这个

If Target.Address = "$H$1" Then
    On Error Resume Next
    Range("A13").Comment.Shape.Fill.UserPicture Range("H2").Value
    If Err.Number <> 0 Then
        Range("A13").Comment.Shape.Fill.UserPicture Range("H6").Value
    End If
    On Error GoTo 0

End If

VBA如果找不到文件

1 个答案: