セルのx(カラム番号) y(行番号)からレンジアドレスを取得する

＜分類：値取得＞
＜使用例：x座標 y座標からレンジアドレスを取得する＞
＜プログラム例＞

Sub 呼び出し()
   Dim s As String
   Dim x As Long
   Dim y As Long
   
   x = 2
   y = 3
   
   s = 共通_conv_yxA(y, x)
   MsgBox ("X座標:" & x & " Y座標:" & y & "のレンジアドレスは" & s & "です")

End Sub

Function 共通_conv_yxA(p1, p2)
   
  共通_conv_yxA = Cells(p1, p2).Address(False, False)

End Function