表示されている画面の中央の行番号をマクロで知りたい

質問

エクセルのＶＢＡで、
縦に長いワークシートがあり、適当にスクロールを縦方向にした状態で
見ている画面の中央にあたる行が、そのワークシートのどの行番号が
現在表示されているのかを知りたいのですが、マクロでどのように
プログラムを書けばいいのかを教えてください

よろしくお願いします

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

ActiveWindow.VisibleRange

で、ウィンドウに表示されているセル範囲を取得できます。
表示されている範囲の左上のアドレスを取得するには

ActiveWindow.VisibleRange.Cells(1, 1).Address

としてください。

補足

早速のご回答ありがとうございました
返事がおそくなりすいませんでした

大変役に立ちました

回答No.2

imogasi

http://officetanaka.net/excel/vba/tips/tips79.htm
を見てください。
ーー
＞画面の中央にあたる行が
Sub test02()
MsgBox ActiveWindow.VisibleRange.Rows.Count
MsgBox ActiveWindow.VisibleRange.Cells(1, 1).Row + ActiveWindow.VisibleRange.Rows.Count / 2
End Sub
ーーー
左上隅セルは
Sub test03()
MsgBox ActiveWindow.VisibleRange.Offset(0, 0).Row
End Sub
でも求められる。

補足

田中セミナー大変参考になりました
ありがとうございました