excel如何设置上下滚动(Excel表格一键自动循环上下滚屏)
曾经在BBS看到有人求助,大致的意思是:
现在我有一个Excel表格,要放在车间展示,需要他自动往下翻行或者翻页,并且翻到底后再回到第一行继续翻,24小时无人值守那种展示,请问如何实现?
实借用VBA是很容易实现的,可以自定义上下滚动的起止行,一次滚动的行数,滚动间隔时间,看看效果。
Excel自动循环滚屏
1、按Alt F11进入VBA代码编辑界面,加入自定义的模块:
Public gundong As Boolean
Public Sub 滚屏(ByVal row As Long)
If gundong = True Then
ActiveWindow.ScrollRow = row
Else
End
End If
End Sub
2、开发工具——设计模式中插入按钮,并添加相应的单击代码:
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "滚屏" Then
CommandButton1.Caption = "停止滚屏"
gundong = True
flag:
Dim irow As Integer '定义一共需要处理的行号
irow = Range("A:A").Find("*", , xlValues, , , xlPrevious).row '通过A列计算表格最末行行号
For i = 3 To irow Step 1 '设置需要滚动的起止行及一次滚动的行数
Start = Timer
PauseTime = 1
Do While Timer < Start PauseTime
DoEvents
Loop
If gundong = True Then
Call 滚屏(i)
End If
Next
GoTo flag
Else
CommandButton1.Caption = "滚屏"
gundong = False
End If
End Sub
退出设计模式,保存OK。
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com