![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
座標のアドレス取得を思いつかなかったので、一旦、その座標にダミーのオブジェクトを置いて、その場所のセルアドレスを取得してみました。
もちろんダミーは取得後削除してます。
Sub TEST()
x = 100
y = 100
Set dmy = ActiveSheet.Shapes.AddShape(msoShapeRectangle, y, x, 10#, 10#)
MsgBox dmy.TopLeftCell.Address
dmy.Delete
Set dmy = Nothing
End Sub
No.5
- 回答日時:
#4の追記です。
> For i = BClm To BClm + 15
> For j = BRow To BRow + 30
この部分は、表示画面内の列数と行数が、せいぜい15列・30行という
前提でのものです。
また、表示画面を超えるような座標が指定された場合のエラー処理は
行なっていませんので、悪しからずご了承願います。 (^^ゞ
No.4
- 回答日時:
ユーザー関数を試みてみました。
=PNT(100,100) または =PNT(A1,A2) の形式で使用します。
なお、座標数値はシートの絶対座標ではなく、表示画面の左上端セルの
左上角を 0,0 とした相対座標です。
Function PNT(myX, myY)
Dim BRow, BClm, BTop, BLft, i, j
BRow = ActiveWindow.VisibleRange.Cells(1, 1).Row
BClm = ActiveWindow.VisibleRange.Cells(1, 1).Column
BLft = ActiveWindow.VisibleRange.Cells(1, 1).Left
BTop = ActiveWindow.VisibleRange.Cells(1, 1).Top
For i = BClm To BClm + 15
If Columns(i).Left > myX + BLft Then Exit For
Next
For j = BRow To BRow + 30
If Rows(j).Top > myY + BTop Then Exit For
Next
PNT = Cells(j - 1, i - 1).Address
End Function
No.3
- 回答日時:
邪道ですが(^^;
Sub Macro2()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 10, 10).Select
MsgBox Selection.TopLeftCell.Address
Selection.Delete
End Sub
No.1
- 回答日時:
CurrentRegion
を使ってみてください。
参考です。
Sub test()
Dim r As Range
Set r = Range("C5").CurrentRegion
If Intersect(ActiveCell, r) Is Nothing Then
MsgBox "含まれない"
Else
MsgBox "含まれる"
End If
End Sub
この回答への補足
早速のお返事ありがとうございます。
すると任意の座標だとすべてのセル範囲をEachでループ掛ける必要があるのでしょうか?宜しくお願いいたします。
この回答へのお礼
お礼日時:2007/08/24 16:34
すみません!!早合点してしまいました。
あるセルが、任意のセル範囲に含まれるかどうかではなくって、ある座標が、どのセルに含まれるか?が知りたいんですが?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) substitute関数についての質問です 3 2023/06/21 11:57
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excelでなぜこのような式をつかっているのでしょうか、行に1,2,3と連番を振るだけなのに 5 2023/04/08 20:00
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) G/標準;-G/標準;""; に例外をつける 3 2023/05/10 08:08
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
座標(x,y)間(=2点)の...
-
重分積分の極座標変換について
-
なぜベクトルの外積の向きが右...
-
距離、方位角から座標を求める方法
-
座標値 世界測地系と日本測地系...
-
「原点に返る」と「原点に戻る...
-
複素数平面についてです ①xy平...
-
エクセルのセルの座標の取得
-
Excelで、任意の座標が属するセ...
-
一般共変性原理 → テンソル形...
-
2点を通る半径rの円の中心の座標
-
測量座標と算数座標の違い
-
N点間の中心と重心の求め方
-
「0でない2つのVのベクトルu,v...
-
線形代数の問題について教えて...
-
【中点の座標を求める公式】に...
-
距離と方向角から座標を求める...
-
座標の回転
-
座標平面上の点(a,b)って問題で...
-
楕円の円周上の座標を求める計...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
座標(x,y)間(=2点)の...
-
重分積分の極座標変換について
-
「原点に返る」と「原点に戻る...
-
距離と方向角から座標を求める...
-
右下の小さい数字について
-
測量座標と算数座標の違い
-
なぜベクトルの外積の向きが右...
-
三角関数 範囲が-πからπのとき...
-
距離、方位角から座標を求める方法
-
「0でない2つのVのベクトルu,v...
-
高校1年の数学なのですが 因数...
-
エクセルでグラフの作り方 軌...
-
楕円の円周上の座標を求める計...
-
座標のS/I方向について
-
二点の座標から角度を求めるには?
-
三点を通る円の中心座標と半径...
-
大学の複素数の問題なんですが...
-
「通常の平面上の座標に三角形...
-
宝探し
-
空間上の測定された点群から最...
おすすめ情報