怎样使用VBA利用滚动条控制文本框数字?
来源:网络收集 点击: 时间:2024-03-01首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码,然后运行
Private Sub CommandButton1_Click() ActiveWindow.LargeScroll Down:=Me.TextBox1.Value 窗体下滚,屏数为文本框值End SubPrivate Sub CommandButton2_Click() ActiveWindow.LargeScroll Down:=-Me.TextBox1.Value 窗体上滚,屏数为文本框值End SubPrivate Sub ScrollBar1_Change() Me.TextBox1=Me.ScrollBar1.Value 当滚动条改变时将滚动条的值输入到文本框End SubPrivate Sub UserForm_Initialize() Me.TextBox1=1 将默认值设为1 Me.ScrollBar1.Min=1 滚动条最小值为1 Me.ScrollBar1.Max=11 最大值为11 Me.ScrollBar1.SmallChange=2 每次微调数为2End Sub

用快捷键F5运行窗体,拉动滚动条,可以改变文本框中的值。若单击滚动条两边的箭头,则可增加或者减少一个设定的长度

智能手机助理给我们的生活带来了极大的便利!
版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_191269.html