上下に一セルづつ 動かしたい場合のVBAはどうする

エクセルの画面にマクロボタンを作って　セルを上下に動かしたいが　以下の場合だと　一画面づつ
動いてしまう。
ActiveWindow.LargeScroll up:=1, ToRight:=0
ActiveWindow.LargeScroll Down:=1, ToRight:=0

一セルづつにするには　どう書けばいい。ご教授ください。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2019/10/31 07:20

こういう事でしょうか？

ActiveWindow.ScrollRow = ActiveWindow.VisibleRange.Row - 1 'Up
ActiveWindow.ScrollRow = ActiveWindow.VisibleRange.Row + 1 'Down

No.3 回答者： GooUserラック 回答日時： 2019/10/31 08:09

一層の事、以下の様な物を作ってしまったらいかがでしょうか？

Sub Scroll(Optional Up As Long = 0, Optional ToRight As Long = 0)

　With ActiveWindow
　　If .VisibleRange.Row - Up < 1 Then
　　　.ScrollRow = 1
　　Else
　　　If .VisibleRange.Row - Up > Rows.Count Then
　　　　.ScrollRow = Rows.Count
　　　Else
　　　　.ScrollRow = .VisibleRange.Row - Up
　　　End If
　　End If
　　If .VisibleRange.Column - ToRight < 1 Then
　　　.ScrollColumn = 1
　　Else
　　　If .VisibleRange.Column - ToRight > Columns.Count Then
　　　　.ScrollColumn = Columns.Count
　　　Else
　　　　.ScrollColumn = .VisibleRange.Column - ToRight
　　　End If
　　End If
　End With

End Sub

使い方は以下のような感じです。
※「Call Scroll(10)」か「Call Scroll(Up = 10)」で１０セル上に
※「Call Scroll(,20)」か「Call Scroll(ToRight = 20)」で２０セル右へ
※「Call Scroll(10,20)」か「Call Scroll(Up = 10, ToRight = 20)」で１０セル上２０セル右へ

No.2 回答者： くんこば 回答日時： 2019/10/31 08:07

cells関数使ったら？

rowとcolumnを一つずつ加減算してやればいい。

cells(行、列).select
activateでもいいけど。