EXCEL：ユーザー定義関数で、すぐ上のセルの参照

質問

簡単なユーザー定義関数を作っています。

Function TEST2(ByVal 氏名 As Range, 数 As Range, 累計 As Range)
If 氏名 = 氏名.Offset(-1, 0) Then
TEST2 = 累計 + 数
Else
TEST2 = 数
End If
End Function

氏名が同じなら、累計計算をしたいのですが、累計は、求めたいセルのすぐ上なんで、
指定せずに、関数の中で参照出来るのではないかと思うのですが、良い方法はないで
しょうか？

宜しくお願いします。

回答No.1

keithin · ベストアンサー

＞累計は、求めたいセルのすぐ上なんで、

関数を記入したセルを基準に取得したい，ということですね。

function test2(氏名, 数)
test2 = 数 + iif(氏名=氏名.offset(-1), application.caller.offset(-1), 0)
end function

とかでいいです。
（もちろん，アナタが書いたマクロのようにif then else end ifで組み立てても全然OKです）

＃参考
「一つ上」に足し算できない内容が入っていたら，などの状況を想定して適宜ご自分で応用して更にブラッシュアップしてみてください。

＃余談
ついでに「数」も引数から省略したいと思いつくかもしれませんが，それをすると「数を更新したときに再計算されない」原因になります。
毎度再計算させるように仕込んで回避する手もありますが，あまり合理的とは言えません。マクロの勉強中のご様子なので，どちらが特か，状況に応じて検討してみてください。

お礼

application.callerと言うのを使って１行で書いてしまうなんて、素晴らしいです。有難うございます。
参考も余談も図星です。また、考えてみたいと思います。わからなかったら、また、ここで聞くことになるかと思いますけれども・・。
ご丁寧に感謝感謝です。

回答No.2

okormazd

質問者のコードほぼそのまま。

Function test2(ByVal 氏名 As Range, 数 As Range)
If 氏名 = 氏名.Offset(-1, 0) Then
test2 = Application.ThisCell.Offset(-1, 0).Value + 数
Else
test2 = 数
End If
End Function

お礼

Application.ThisCellと言うのを使えばいいのですか！
私の拙いコードを尊重し、添削して下さり有難うございます！