nKB

nKB

シンプルにいこうよ

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

ユーザー定義関数が入力されているセルのアドレスを取得する方法は2つ

●ThisCellプロパティで取得する
Function GetAddr()
  GetAddr = Application.ThisCell.Address(False, False, xlA1)
End Function
●Callerプロパティで取得する
Function GetAddr2()
  GetAddr2 = Application.Caller.Address(False, False, xlA1)
End Function

※.AddressはRangeオブジェクトのAddressプロパティ
取得する値の形式を変えたい場合はAddressプロパティで指定する。