Excel工作表中怎样使表不断自动翻页（一次翻61行）直到最后一行（第20000行）？

发布网友发布时间：2022-05-01 16:15

共3个回答

热心网友时间：2023-10-22 18:23

键盘Poge Down是往下翻页，Poge Up是往上翻页
也可以用菜单栏、编辑里的定位，翻到具体的位置，比如在引用位置栏里输入A61

热心网友时间：2023-10-22 18:24

不知道61行是什么意思
如果没有特殊意义
按下PAGE DOWN就会自动翻页的

热心网友时间：2023-10-22 18:24

多久翻一页？很好实现的。用VBA追问0.1秒翻一页，球代码

追答新建一个按钮，输入以下代码：
Private Sub CommandButton1_Click()
For i = 1 To 328
start = Timer
PauseTime = 1
Do While Timer < start + PauseTime
DoEvents
Loop
ActiveWindow.SmallScroll Down:=61
Next
rows("20000").select
End Sub
如果是想翻页时间快点或慢点 PauseTime = 1 把1改大或改小点就行了。我这里是设置每一秒种翻一页的。

热心网友时间：2023-10-22 18:23

键盘Poge Down是往下翻页，Poge Up是往上翻页
也可以用菜单栏、编辑里的定位，翻到具体的位置，比如在引用位置栏里输入A61

热心网友时间：2023-10-22 18:24

不知道61行是什么意思
如果没有特殊意义
按下PAGE DOWN就会自动翻页的

热心网友时间：2023-10-22 18:24

多久翻一页？很好实现的。用VBA追问0.1秒翻一页，球代码

追答新建一个按钮，输入以下代码：
Private Sub CommandButton1_Click()
For i = 1 To 328
start = Timer
PauseTime = 1
Do While Timer < start + PauseTime
DoEvents
Loop
ActiveWindow.SmallScroll Down:=61
Next
rows("20000").select
End Sub
如果是想翻页时间快点或慢点 PauseTime = 1 把1改大或改小点就行了。我这里是设置每一秒种翻一页的。

热心网友时间：2023-10-22 18:23

键盘Poge Down是往下翻页，Poge Up是往上翻页
也可以用菜单栏、编辑里的定位，翻到具体的位置，比如在引用位置栏里输入A61

热心网友时间：2023-10-22 18:24

不知道61行是什么意思
如果没有特殊意义
按下PAGE DOWN就会自动翻页的

热心网友时间：2023-10-22 18:24

多久翻一页？很好实现的。用VBA追问0.1秒翻一页，球代码

追答新建一个按钮，输入以下代码：
Private Sub CommandButton1_Click()
For i = 1 To 328
start = Timer
PauseTime = 1
Do While Timer < start + PauseTime
DoEvents
Loop
ActiveWindow.SmallScroll Down:=61
Next
rows("20000").select
End Sub
如果是想翻页时间快点或慢点 PauseTime = 1 把1改大或改小点就行了。我这里是设置每一秒种翻一页的。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

懂视IT 51dongshi.com 版权所有
Copyright © 2019-2024