• ベストアンサー

CELLの座標取得方法

CELLの座標取得方法 A1 はCellで指定すると(1,1)になります。 変数にA1を代入して、Cellの座標をxとyを別々の変数に入れる方法を教えてください。 イメージは インプットボックスにA1と入力すると、  A1は、cellだと  x座標1  y座標1  になります。 という結果Msgboxに表示させたいのです。

  • rezon
  • お礼率25% (10/39)

質問者が選んだベストアンサー

  • ベストアンサー
  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.1

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

その他の回答 (2)

  • layy
  • ベストアンサー率23% (292/1222)
回答No.3

VBAでのセルの操作、表現について、 1パターンだけ回答もらうのはもったいないですから、 サイトで探すと良いです。 (下記の3番目リンクなど参考) エクセルでお仕事 http://www.asahi-net.or.jp/~ef2o-inue/menu/menu01.html すぐに使えるEXCELVBAマクロ集 http://www.asahi-net.or.jp/~zn3y-ngi/ EXCEL VBAへの道 http://www.voicechatjapan.com/excelvba/VBArei2.htm

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

一体、何のためにこんなことをするのでしょうか。もう少し、説明をしたほうがよいですね。これだけでは、実用度も低いと思うのですし、回答者を試しているだけになってしまいます。なお、以下、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

関連するQ&A

  • UWSC画像認識で座標の位置がずれてしまいます。

    ifb CHKIMG( "XXX", -1, 0, 0, 0, 0, -1,  ) x=G_IMG_X // 画像の座標をxへ代入 y=G_IMG_Y // 画像の座標をyへ代入 endif パソコンを変えた途端にこの症状は発生しました。 x,yの変数をメッセージボックスで出しているのですが、実際の画像と異なった座標を指定していまいます。 他の座標ツールとは座標が異なっているのです。 画像をクリックしてみても、実際の画像の位置とは違う場所をクリックしてしまいます。 画像の座標は一番左上が表示されることは存じております。 グラフィックボードを実装しています。OSのバージョンは8.1です。 原因は何が考えられるでしょうか。ご教授お願いいたします。

  • 画像の座標取得

    VBのPictureBoxでピクチャーを表示し、指定したカラーの座標(X,Y)を配列で取得する方法はありますか? 例えば、真っ黒の中に白い点が散りばめられている画像を読み込んだとして、ピクチャー上に白で表示されている部分のXY軸を取得し、座標計算等を行おうとしています。 上記方法以外でも良い方法があればお願いします。 画像自体が大きいので、出来るだけ早い処理で取得出来るものをと考えています。

  • 座標データを取得する方法について

    画面から文字などの軌跡データ(x座標とy座標)を一定の間隔で取得し、取得したデータを文字列として用意したいです。 座標を取得するAPIなどはあるのでしょうか。 できればサンプルコードを記載していただけるとたすかります。

  • ピクチャボックスの座標取得

    Microsoft Visual Studio 2008のスマートデバイス用で、PDA用のプログラミングを開発しています。 フォーム上にピクチャボックスを貼りつけ、画像表示をできるようにしています で、やりたいことは・・ Private Sub PictureBox1_MouseUp(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles PictureBox1.MouseUp 'ピクチャボックスの座標を表示させる     End Sub Private pos As Pointで宣言しておき、 pos.X = e.X pos.Y = e.Y でやると、どうも、フォームの座標が取得されてしまうようです ピクチャの画像は拡大・縮小をできるようにしてあるため、フォーム座標=ピクチャ座標にはなりません ピクチャボックスの座標を取得するにはどのようにしたらよいのか、ご教授願います

  • 抽出した特徴点の座標を取得したいのですが…

    OpenCVの特徴点を抽出するサンプルプログラム http://opencv.jp/sample/gradient_edge_corner.html#goodfeaturesを使用して, 特徴点の座標をx,y座標として取得したいと思っているのですが, 関数cvFindCornerSubPix()の2番目の引数cornersに, 「コーナーの初期座標が入力され,高精度化された座標が出力される」 とあったので,出力してみたところ,5~6桁の数字がズラーッと表示されました. この数字が高精度化された座標なのでしょうが, 特徴点座標をx,y座標として取得する方法はないのでしょうか? ご存知の方がいらっしゃれば,ご教授いただけると幸いです. よろしくお願いいたします.

  • 座標の問題

    放物線A:y=2x^2+6x-8と直線B:y=5x+13がある。放物線AとY軸との交点をa、直線BとY軸の交点をb、放物線Aと直線Bとの交点でx座標、y座標とも正である点をcとし、a、b、cを頂点にした三角形を三角形abcとする。このとき、点bを通り三角形abcの面積を2等分する直線とX軸の交点のx座標はいくらか。 という問題があるのですが、AとBにそれぞれx=0を代入し、aとbを出すとこまでは出来たのですが、cを出すのがわかりません。 cの出し方とその後の計算方法を教えてください。

  • 画像ボタンをクリックした時の座標値

    <input type="image" name="hoge"> をphpにpostした場合、hoge_x, hoge_yの値(座標)が得られますが、 <input type="image" name="hoge[0]"> <input type="image" name="hoge[1]"> <input type="image" name="hoge[2]"> をphpにpostした場合、hoge_x[0], hoge_y[0]には何も入らないようです。 どうやったら座標を得られるのでしょう???

    • ベストアンサー
    • PHP
  • 自動的に高さ指定していないtdの高さを取得したいのですが

    こんにちわ初心者です。 すいませんが、可変なtdの高さを自動的に取得したいのですが・・tdにheightで高さを指定してあげれば取得できるのですが、指定しない状態で取得したいのですが・・・・教えてください。 function cell(id, x, y) { table = document.all(id); row = table.rows.item(y); cell = row.cells.item(x); document.write("cell(" + x + ", " + y + ") is " + cell.width); } これで取得はできました・・・でも指定してる状態です・・・。 すいませんがよろしくお願いいたします。

  • 画像をクリックしてその地点の座標を変数x、yに代入したいのですが

    画像をクリックしてそのクリック地点の座標を変数x、yに代入したいのですがどのように書けばいいのでしょうか?

  • テキストボックスに入力された値を取得する方法

    よろしくお願いします。 フォームにテキストボックスを配置し、ユーザーに文字を入力してもらいます。 OKボタンを押すと、その文字を取得できるようにしたいです。 VBだと・・・ Textbox1.value = a (aは変数) みたいな感じで変数に代入するだけでよかったと思うんですが・・・ どのように書いたら良いでしょうか?

    • ベストアンサー
    • Java

専門家に質問してみよう