本文目录
- excel表格，一直自动循环滚动，不要说滚轮，我要的是VBA语句，求详细教程
- 如何通过VBA代码来滚动Excel的窗口
- Excel 如何让VBA的代码环境支持鼠标滚轮
- 请教，Excel VBA中的Image控件，能否实现图片在该控件中的上下滚动也就是，能否添加上下滚动条谢谢
- vba如何让选择的行滚动到可见区域
- 在excel里如何用vba实现利用鼠标滑轮给选中单元格或区域的数字进行微调（调增、调减）
- 请教，Excel VBA 窗体如何上下滚动也就是窗体的控件很多，能否通过滚动条上下移动看到所有控件谢谢
- excel vba ，请问如何为组合框设置垂直滚动条
- 求vba在指定的excel表格内，循环滚到
excel表格，一直自动循环滚动，不要说滚轮，我要的是VBA语句，求详细教程
是这样的效果么？
Option ExplicitSub test() Dim i As Integer For i = 1 To 100 DoEvents Application.Wait Now() + TimeValue("00:00:01") ActiveSheet.Rows(i).Select Next iEnd Sub
如何通过VBA代码来滚动Excel的窗口
Window.SmallScroll 方法或者Window.ScrollColumn 属性横向滚动，Window.ScrollRow 属性纵向滚动
Excel 如何让VBA的代码环境支持鼠标滚轮
VBE界面是支持鼠标滚轮的
上下滚动表格：在Excel工作表中，选择某个单元格，然后上下滚动滚轮，表格将上下滚动。这有点类似点击滚动条的上下箭头。但点击滚动条的上下箭头每次只能滚动一行， 而滚动鼠标滚轮可以滚动一行或多行。在Windows XP或Windows Vista中，可以在控制面板中设置每次滚动的行数。以Vista为例，方法是：单击“开始→控制面板→鼠标”，弹出“鼠标属性”对话框，选择“滑轮”选 项卡，在“垂直滚动”区域中，选择“一次滚动下列行数”，并设置所需的数量。如果选择“一次滚动一个屏幕”，则每滚动一次滚轮，Excel表格将滚动屏幕 所显示的行数，相当于按PageUp或PageDown键。这种方法同样适用于Word或在浏览器中浏览网页。
请教，Excel VBA中的Image控件，能否实现图片在该控件中的上下滚动也就是，能否添加上下滚动条谢谢
原始图片
第一步：打开VBA，插入窗体，调整合适的窗体大小
第二步：添加一个Frame控件，在Frame控件里添加一个Image控件，在Frame控件右边添加一个ScrollBar控件，改名为VScrollBar，在Frame控件下边添加一个ScrollBar控件，改名为HScrollBar。
第三步：把Image控件的AutoSize属性设置为True，Picture属性选择你要载入的图片
第四步：填写控件代码。
’* 窗体初始化事件Private Sub UserForm_Initialize() ’* 赋值竖向滚动条最大值 VScrollBar.Max = (Image1.Height - Frame1.Height) / 50 ’如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了 / 50 ’* 赋值横向滚动条最大值 HScrollBar.Max = (Image1.Width - Frame1.Width) / 50 ’如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留/50。滑块就变大了 / 50End Sub’* 竖向滚动条滚动事件Private Sub VScrollBar_Scroll() ’* 通过调整图像控件的Top值来实现图片滚动 Image1.Top = 0 - VScrollBar.Value * 50 ’如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了 * 50End Sub’* 横向滚动条滚动事件Private Sub HScrollBar_Scroll() ’* 通过调整图像控件的Left值来实现图片滚动 Image1.Left = 0 - HScrollBar.Value * 50 ’如果嫌滚动条滑块小的话可以把这段中文注释删掉，只留*50。滑块就变大了 * 50End Sub
第五步：运行测试效果图（滚动条滑块初始状态）
第六步：运行测试效果图（滚动条滑块增大状态）
本教程为原创作品，有什么问题请及时追问，满意请及时采纳。
不知道为什么知道里回答的图片这么模糊，刚为你写了条百度经验，正在审核中，如果看不清不能用的话追问我，明天给你补上百度经验的链接。
vba如何让选择的行滚动到可见区域
【答案】控件中有left和top属性设置相对屏幕的位置，或者在显示窗体中userform1.show 0 以无模式显示，窗体让出交点。【扩展】如何通过VBA代码来滚动Excel的窗口 ①滚动行 Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 14 代码解释：上述代码的功能是，先激活Sheet1，将其作为活动工作表，然后，自动拖动垂直滚动条，将第14行拖到第一行的位置，即第一行至第13行将被拖到窗口中的上面，并看不到，而第14行则显示在可视窗口的最上面(在可视范围的第一行位置)。
在excel里如何用vba实现利用鼠标滑轮给选中单元格或区域的数字进行微调（调增、调减）
1、VBA必须要装那个控件。而你发给别人必须带那个控件一起发。而且要求控件一起安装。所以建议不弄鼠标滚轮触发。2、微调的话，可以用滚动条控件。拉小把中间的方块隐藏掉。如果是每次调整1和-1，max 和min属性设置为max:1，min：-1,smallchang:1。这样通过每一次点击来监视SpinButton的值来反应用户点击的是上/下按钮。3、通过SpinButton的值的变化来设置相应的触发。以上为用户界面的方法。单元格没用过。应该类似。
请教，Excel VBA 窗体如何上下滚动也就是窗体的控件很多，能否通过滚动条上下移动看到所有控件谢谢
你在窗体属性里将scrollbars设为3 再设定合适的scrollheifht和scrollwidth即可
excel vba ，请问如何为组合框设置垂直滚动条
这个组合框本身就有的啊，当COMBOBOX的列表项多于你设定的LISTROWS ，自动会添加垂直滚动条
求vba在指定的excel表格内，循环滚到
Sub 宏1()
Dim i&, n&
n = ActiveSheet.UsedRange.Rows.Count
While True
Cells(1, 1).Activate
For i = 1 To n - 10
Application.Wait Now() + 1 / 24 / 3600
DoEvents
ActiveWindow.SmallScroll Down:=1
Next i
Wend
End Sub
着是1秒滚动一行的代码，如果需要慢一点修改wait行的1为其它数，如果需要一次滚动多行修改down后面的数值
程序没有设置终止，一天都滚动，滚完又从头开始，下班的时候按CTRL+BREAK
