🐦‍🔥④シート上の移動・シートの固定

Sub Top移動()
Application.Goto Reference:=Cells(4, 3), Scroll:=True

End Sub


Sub 上移動()
YR = ActiveCell.Row
XR = ActiveCell.Column
YR = Int(YR / 23) * 23
YR = YR - 20
If YR < 4 Then YR = 4
Application.Goto Reference:=Cells(YR, 3), Scroll:=True
End Sub


Sub 下移動()
YR = ActiveCell.Row
XR = ActiveCell.Column

YR = Int(YR / 23) * 23
YR = YR + 26
Application.Goto Reference:=Cells(YR, 3), Scroll:=True

End Sub

競馬のプログラム作成、お疲れ様でした😎