CELLの座標取得方法

質問

CELLの座標取得方法

A1 はCellで指定すると(1,1)になります。

変数にA1を代入して、Cellの座標をxとyを別々の変数に入れる方法を教えてください。

イメージは

インプットボックスにA1と入力すると、

　A1は、cellだと
　x座標1
　y座標1
　になります。

という結果Msgboxに表示させたいのです。

回答No.1

mu2011 · ベストアンサー

一例です。

key = InputBox("セルを入力して下さい。", "セルの入力")
MsgBox (key & "　cellだと" & Chr(13) & _
"x座標＝" & Range(key).Row & Chr(13) & _
"y座標＝" & Range(key).Column)

回答No.3

layy

ＶＢＡでのセルの操作、表現について、
１パターンだけ回答もらうのはもったいないですから、
サイトで探すと良いです。

（下記の３番目リンクなど参考）

エクセルでお仕事
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu01.html

すぐに使えるＥＸＣＥＬＶＢＡマクロ集
http://www.asahi-net.or.jp/~zn3y-ngi/

ＥＸＣＥＬ　ＶＢＡへの道
http://www.voicechatjapan.com/excelvba/VBArei2.htm

回答No.2

Wendy02

一体、何のためにこんなことをするのでしょうか。もう少し、説明をしたほうがよいですね。これだけでは、実用度も低いと思うのですし、回答者を試しているだけになってしまいます。なお、以下、x軸は、横。y軸は縦軸です。

Sub Test1()
　Dim ret As Variant
　Dim r As Range
　ret = Application.InputBox("アドレスを入れてください", "行と列", Type:=2)
　If VarType(ret) = vbBoolean Then Exit Sub　'キャンセルを押したとき
　On Error Resume Next
　Set r = Range(ret).Cells(1)
　If Err.Number = 0 Then
　　MsgBox ret & "は、CELLSだと" & vbCrLf & _
　　"x座標1: " & r.Column & vbCrLf & _
　　"y座標1: " & r.Row
　Else
　　MsgBox "入力されたものは、アドレスではありません。", vbExclamation
　End If
　On Error GoTo 0
End Sub