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 に答える