スクロールさせる
実行プログラム
| 
					 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  | 
					
結果


