スクロールさせる
実行プログラム
1 2 3 4 5 6 |
Sub Sample6_15_1() ActiveWindow.ScrollRow = 3 ' 行の設定 ActiveWindow.ScrollColumn = 4 ' 列の設定 End Sub |
表示されている一番上の行番号、一番左の列番号を取得する
実行プログラム
1 2 3 4 5 6 |
Sub Sample6_15_2() MsgBox "行:" & CStr(ActiveWindow.ScrollRow) & vbCrLf & _ "列:" & CStr(ActiveWindow.ScrollColumn) End Sub |
結果