offsetのエラー回避方法

質問

Set addr1 = ActiveCell.Offset(-2, -2)で
ActiveCellをＢ２にするとエラーとなりますが、
この場合の逃げ方を教えてください。

(1)エラーとしない。
(2)最も近い存在するアドレス（Ａ１）を求める。

宜しくお願いします。

回答No.1

keithin · ベストアンサー

論理的に可能な値を計算するだけのことです。

たとえば：
with activecell
set addr1 = .offset(application.max(-.row+1, -2), application.max(-.column+1, -2))
end with

お礼

早速かつ何時も有り難うございます。

＞論理的に可能な値を計算するだけのことです。
　そうかなと思いましたが、
　どうコーディングしたらいいかが分かりませんでした。

＞.offset(application.max(-.row+1, -2)
　初めて見ました。
　結果は完璧でしたが、内容は全くです。
　勉強して身につけておきます。

お世話になりました。