翻页VBA优化

goodlaugh

如下是一段翻页的VBA代码，我需要每次翻25列，这个代码要修改哪个地方呢？我把代码里的25+1改成25，但运行有问题，谢谢！

Private Sub ComboBox1_Change()

End Sub
Private Sub SpinButton1_Change()
    Dim x As Long
    x = Val(Replace(Range("A4"), "第", "")) + 1

End Sub

Private Sub SpinButton1_SpinDown()
    Dim x As Long
    Range("A4") = "第" & Application.Max(Val(Replace(Range("A4"), "第", "")) - 1, 1) & "页"
    x = Val(Replace(Range("A4"), "第", ""))
    ActiveWindow.ScrollColumn = (x - 1) * 25 + 1
End Sub

Private Sub SpinButton1_SpinUp()
    Dim x As Long
    Range("A4") = "第" & Val(Replace(Range("A4"), "第", "")) + 1 & "页"
     x = Val(Replace(Range("A4"), "第", ""))
    ActiveWindow.ScrollColumn = (x - 1) * 25 + 1
End Sub

longwin

现在应该就是25列一页啊

边缘码农

没有附件，不好模拟。
看代码，应该是上下翻页，是要改成左右翻页？

边缘码农

好像是看错了。

goodlaugh

longwin 发表于 2024-7-30 15:51
现在应该就是25列一页啊

您好！那第一页是到25，第二页应从26开始啊，但依旧是从25列开始。

边缘码农

红框中的2句，应该不一样吧？

goodlaugh

边缘码农 发表于 2024-7-30 15:54
没有附件，不好模拟。
看代码，应该是上下翻页，是要改成左右翻页？

如附件，谢谢！

goodlaugh

边缘码农 发表于 2024-7-30 15:58
红框中的2句，应该不一样吧？

别人设置时就是这样，要改成什么么？

longwin

看字面意思应该是一个上翻，一个下翻，所以应该有一个是（x+1）*25+1,另一个是(x-1)*25+1

goodlaugh

longwin 发表于 2024-7-30 16:44
看字面意思应该是一个上翻，一个下翻，所以应该有一个是（x+1）*25+1,另一个是(x-1)*25+1

不是呢，改一下就会翻到其它地方去了