セルの位置を表示するには？

質問

Dim r As Range
Set r = Application.InputBox(Prompt:="セルを選択", Type:=8)

ここで得た答えを何行目、何列目とMsgboxを用いて表示したいです。ただ何列目は英字で表現したいのですが。よろしくお願いします。

回答No.5

imogasi

>何行目、何列目
セル範囲も指定できるのに、何を考えているの。
ーー
Sub test02()
Dim r As Range
Set r = Application.InputBox(Prompt:="セルを選択", Type:=8)
MsgBox r.Column
MsgBox r.Column + r.Columns.Count - 1
MsgBox r.Row
MsgBox r.Row + r.Rows.Count - 1
End Sub
ーー
＞何列目は英字で表現したいのですが
結構面倒。
素人に見せる以外は、数形式もVBAでは便利ですが。
関数を使うか、Address文字列から採るか。

回答No.4

zap35

意味がよく分かりませんが、こういうことですか？

Sub Macro5()
Dim r As Range
　Set r = Application.InputBox(Prompt:="セルを選択", Type:=8)
　adr = r.Address(1, 0)
　MsgBox Right(adr, InStrRev(adr, "$") - 1) & "行 " & _
　　　　Left(adr, InStr(adr, "$") - 1) & "列"
End Sub

回答No.3

marbin

↓も参考になると思います。

http://security.okwave.jp/qa3876402.html
http://security.okwave.jp/qa3876289.html

回答No.2

marbin

質問の意味を取り違えていました。
↓ではいかがでしょう？

Dim r As Range
Dim sp As Variant
Set r = Application.InputBox(Prompt:="セルを選択", Type:=8)
sp = Split(r.Address, "$")
MsgBox r.Row & vbCrLf & sp(UBound(sp) - 1)

回答No.1

marbin

英語力がないのでMsgBox表示は分かりません。

Dim r As Range
Set r = Application.InputBox(Prompt:="セルを選択", Type:=8)
Application.Speech.Speak r.Row
Application.Speech.Speak r.Column