VBA 任意セルに入力した「ユーザ関数」に自身のセル座標を取得させたい

Question

よろしくおねがいします。

例えば下図のようにユーザ定義関数userfunction数式を入力したとします。

このときuserfunctionの数式はセル「B2」に入っていますが、
これをユーザ定義関数自体に認識させたいのですが、方法はありますでしょうか。

Sub sandbox()
    Dim s As String
    r = ActiveCell.Row
    c = ActiveCell.Column
    s = ActiveCell.Address
    userfunction (s)
End Sub
Public Function userfunction(s As String)
    Range(s).Value = 100 + Range(s).Value
End Function

上記のようなプロシージャではアクティブセル（つまりカーソルが指すセル座標）を取得してuserfunctionに引数として与えて処理していますので、プロシージャが座標データを持っているため処理ができます。

しかし実現したいのは、カーソルが例えばA1にあっても、B2に入力した数式（ユーザ定義関数）は自身が置かれた座標を取得して処理をさせたいのです。

よろしくおねがいします。

Answer 1

=userfunction(ADDRESS(ROW(),COLUMN()))

Public Function userfunction(ars As String)
    Debug.peint ars
End Function

Comments

[wkbiz]

引数にExcel関数で座標データを入れれば、ってことですね。それは思いつかなかったです。ありがとうございました。

Answer 2

VBA ユーザ定義関数自身のセルのアドレスを取得する - nKB

上記を参考に。

ただし、自身の値を参照して、変更すると循環参照になるのでエラーになるかと。

何をしたいのかを提示した方かいいでしょう。

---

自身のアドレスを表示するだけなら、セルに下記のように設定すればいいだけ。
=ADDRESS(ROW(),COLUMN())

それをわさわざ、
=userfunction(ADDRESS(ROW(),COLUMN()))
と複雑にすることに何の意味があるのか？

上記のリンク先の関数を使えば、
=GetAddr()
で自身のアドレスを表示できます。

Function GetAddr()
    GetAddr = Application.ThisCell.Address(False, False, xlA1)
End Function

実際に何をしたいのか明示すべきでしょう。

Excel のユーザー定義関数の制限について

上記の宣言が理解できているなら、自身のセルを取得しても、できることには限界があります。
質問のコードを自身のセルに変更したら循環参照エラーです。

Comments

[wkbiz]

ご回答ありがとうございます。
数式を動的に扱いたい、何をしたいか？を説明すると簡易で雑な説明ですがこのようになります。

[hatena19]

何をしたいのか不明ですが、Application.ThisCell を使った方か簡単ではないですか。

[wkbiz]

ご丁寧にありがとうございます。参考にさせて頂きます。