2

我不做很多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 表达式。

想法？

4

1 回答 1

4

试试这个

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
于 2012-11-16T20:44:14.320 回答