Excel VBAでセル番号の取得の仕方を教えて下さい。

質問

Excel VBAのFunction procedureで選択したファイルセルのセルの番地を列と行を表示するものを作りたいのですが、
記述を教えて下さい。
何卒よろしくお願い致します。

回答No.2

imogasi · ベストアンサー

#1です。
関数ではなくて
Sub test03()
For i = 1 To 10 Step 3 '3は質問者の言っているXの１例
MsgBox Cells(i, "B")
Next i
End Sub
のようなことを考えれば良いケースではないですか。
＝＝
または質問の路線では
Function ab(a)
ab = a.Row * 3
End Function
ーーー
Sub test04()
MsgBox ab(Selection)
End Sub
test04を実行するとC20が選択されているとき、２０と表示されますが
こんなことかな？

回答No.1

imogasi

質問をする理由や事態がわからない。
実例を挙げて、また操作の説明をして、何を得たいか書いてもらえませんか。
Function aa()
aa = Selection.Address
End Function
を考えたが
範囲指定はどうするの？とか（式を入れる１セルだけを問題にするのか？）、
引数はどのよう」に考えているのか？
結果はどういう内容になるべきなのか？
ーーー
内容によっては、ＲＯＷやＣＯＬＵＭＮ関係の関数やプロパティが有るのにと思うので。
ーー
http://blog.livedoor.jp/akf0/archives/51114613.html
のようなことを聞いているのか？。
ーーー
これならＦｕｎｃｔｉｏｎにしてないが
Sub test02()
MsgBox Selection.Address
b = Selection.Address
a = Split(b, "$")
MsgBox a(1) '列記号（列番号）
MsgBox a(2) '行番号
End Sub
というやり方も有る。これならＦｕｎｃｔｉｏｎ化してください。

お礼

ありがとうございます。

具体的には
Function aa(x)
aa = (xセルの行番号) * x
End Function
みたいなことをしたいのですが。

よろしくお願い致します。