ＥＸＣＥＬ VBA でウインドウの左上のアドレスを取得するには

お世話になります。

ActiveSheetの左上のセルの座標を取得したいのですが
何かいい方法はないでしょうか。

よろしくお願いします。

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/10/03 10:07

MsgBox ActiveWindow.VisibleRange.Cells(1).Address

この回答へのお礼

出来ました。
以前どこかで見た記憶があったので探したけど見つけることが出来ませんでした。
ありがとうございました。
今後ともよろしくお願いします。

お礼日時：2007/10/03 16:07

No.2 回答者： hijirisei 回答日時： 2007/10/03 10:37

現在選択しているセルから左上ということでしょうか？

（Ｃ５を選んでいるときに、Ｂ４という結果を出す）

現在の座標ならば、次で取得できます。

（行）MsgBox ActiveCell.Row　　　
（列）MsgBox ActiveCell.Column

この値をそれぞれ－１すれば、左上のセルの座標となりますが、Ａ列や１行目を選んだ場合は０になってしまいますので、注意してくだい。

選択中のセルより左上のセルの座標。
Cells(ActiveCell.Row - 1, ActiveCell.Column - 1)

この回答へのお礼

ありがとうございます。

ウインドウの左上のセルです。
ＮＯ１の方の回答でやりたい事ができました。

今後ともよろしくお願いします

お礼日時：2007/10/03 16:01