Range("D1"), Range("A:B"), 2, 0) If ErrNumber <> 0 Then 変数= なし" Err.Clear End If 対応方法.別の関数で確認 件数= .CountIf(Range("A:B"), Range("D1")) If 件数> 0 Then 変数= .VLookupRange("D1"), Range("A:B"), 2, 0) Else = なし" End If ...
If Err.Number <> 0 Then Util.logError MODULE_NAME & ".writeForeCastsToLO", Err.Description End If End Sub ' 天気アイコンを該当行にコピー ' ・「天気アイコン一覧」シートから天気名と同名の画像を取得し、該当行にコピー ' ・コピー後、指定のマージン分移動 ' ' 引数: i Long...