精华内容
下载资源
问答
  • ms word vba 滚动条

    2017-11-14 17:23:00
    ActiveWindow.ScrollIntoView ActiveDocument.InlineShapes.Item(0).Range, True 本文转自 h2appy 51CTO博客,原文链接:http://blog.51cto.com/h2appy/135356,如需转载请自行联系原作者 ... ...
    ActiveWindow.ScrollIntoView ActiveDocument.InlineShapes.Item(0).Range, True









    本文转自 h2appy  51CTO博客,原文链接:http://blog.51cto.com/h2appy/135356,如需转载请自行联系原作者
    展开全文
  • 文/江觅滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。效果演示滚动条控制文本框内数字从0到100的变化情况...

    文/江觅

    滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。

    效果演示

    9f7d2ba7c797b10d7a00412b460cbb52.gif

    滚动条控制文本框内数字从0到100的变化情况。

    321dd2b74cde2015b09e444cafb80433.png

    在一些特定情况用滚动条来实现数据输入,或者进行数值选择也可以,不过此类方法用得还是比较少,也可以关联字符或图片来进行选择显示。

    6596ff3411b165a7dec983e495cf06f2.png

    窗体代码

    Private Sub UserForm_Initialize()Dim srObj As Object, NewS As ObjectSet srObj = Me.Controls.Add("Forms.ScrollBar.1", "sr1") '''添加滚动条With srObj.Width = 300.Height = 25.Top = 150.Left = 20.Max = 100.Min = 0.LargeChange =50.SmallChange = 1.BackColor = RGB(210, 121, 122)End WithSet NewS = New NewScr ''' 添加滚动条事件NewS.init srObjnewSc.Add NewSEnd Sub
    8d026d3d2fcdd70e9f3bb19f3fe46273.png

    添加代码

    object.Controls.Add("Forms.ScrollBar.1", "ControlName")

    解释一下就是在object对象里添加一个名字为ControlName的ScroolBar对象

    可以用set Sobj= objec.Controls.Add("Forms.ScrollBar.1", "ControlName") 语句对象赋值到Sobj,进行属性设置

    with Sobj.top=20.left=20.width=150.height=25.max=100'最大值.min=0'最小值.LargeChange = 50'滚动条宽度.SmallChange = 10'滚动步长end with
    展开全文
  • 文/江觅滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。效果演示滚动条控制文本框内数字从0到100的变化情况...

    文/江觅

    滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。

    效果演示

    073b7179e68213d68c153c47594c61a4.gif

    滚动条控制文本框内数字从0到100的变化情况。

    48b9b7ba9635c9c1af1a32820cd54995.png

    在一些特定情况用滚动条来实现数据输入,或者进行数值选择也可以,不过此类方法用得还是比较少,也可以关联字符或图片来进行选择显示。

    e366c464e6b935976078603bdc1a795d.png

    窗体代码

    Private Sub UserForm_Initialize()Dim srObj As Object, NewS As ObjectSet srObj = Me.Controls.Add("Forms.ScrollBar.1", "sr1") '''添加滚动条With srObj.Width = 300.Height = 25.Top = 150.Left = 20.Max = 100.Min = 0.LargeChange =50.SmallChange = 1.BackColor = RGB(210, 121, 122)End WithSet NewS = New NewScr ''' 添加滚动条事件NewS.init srObjnewSc.Add NewSEnd Sub
    084a6a64bfbc5c5447d432a1f70732b2.png

    添加代码

    object.Controls.Add("Forms.ScrollBar.1", "ControlName")

    解释一下就是在object对象里添加一个名字为ControlName的ScroolBar对象

    可以用set Sobj= objec.Controls.Add("Forms.ScrollBar.1", "ControlName") 语句对象赋值到Sobj,进行属性设置

    with Sobj.top=20.left=20.width=150.height=25.max=100'最大值.min=0'最小值.LargeChange = 50'滚动条宽度.SmallChange = 10'滚动步长end with
    展开全文
  • 问题:Excel中Textbox控件以及Form里的Textbox控件,当直接填充的内容很长时,滚动条不能实时刷新。 现象: 修改后: 原因: 虽然已经向Textbox的Text里设置了内容,但此时Textbox并没有被激活,焦点...

    问题:Excel中Textbox控件以及Form里的Textbox控件,当直接填充的内容很长时,滚动条不能实时刷新。

    现象:

     

    修改后:

     

     

    原因:

    虽然已经向Textbox的Text里设置了内容,但此时Textbox并没有被激活,焦点也没有变化,所以,Textbox的滚动条没有被刷新出来。

     

    修改后的VBA程序:

    -----------------------ActiveX Textbox--------------------------

    Private Sub CommandButton1_Click()
        
        TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _
                        & Chr(10) _
                        & "1234567890" _
                        & Chr(10)
    
    '    IF the text length is long enough, ENABLE the Textbox's scroll bar
        TextBox1.Activate
    '    Set the current select line: 0
        TextBox1.CurLine = 0
        
    End Sub

     

    -----------------------Form Textbox--------------------------

    Private Sub CommandButton1_Click()
        
        TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _
                        & Chr(10) _
                        & "1234567890" _
                        & Chr(10)
        
    '    IF the text length is long enough, ENABLE the Textbox's scroll bar
        TextBox1.SetFocus
    '    Set the current select line: 0
        TextBox1.SelStart = 0
        
    End Sub

     

    知识点:

    ActiveX Textbox中的 TextBox1.Activate 和 Form Textbox的 TextBox1.SetFocus功能相同

    转载于:https://www.cnblogs.com/iluzhiyong/p/4586107.html

    展开全文
  • VB6(VBA)代码编辑器窗口滚动条补丁,通过“外接程序管理器”加载进去即可使用
  • 这是我平常总结工作的时候,会运用到一些VBA知识解决的小案例。 通常,我们接收到一些工作...A-ZZ..),垂直水平滚动条没有隐藏等等。本章总结了以下的知识点: 1# Application 对象(Excel界面)上的用法 2# Activ...
  • 类似于数据库ACCESS中的数据追加,但是今天小编在实际操作的时候,忽然突发奇想,我们有时候好像需要用到横向合并数据的,尤其是在统一一个人的多个不同学科成绩,产品销售的时候非常有用那么问题来了,VBA还可以...
  • 工业过程控制一般有专门的工业监控软件,如何用VBA来模拟实现这些动态...通过自定义上下限来控制这个值,增加一个滚动条实现压力变化。示例中,分别有两个按钮,一个实现自动运行状态,一个停止运行,以实现自动运行...
  • 学习资源:《Excel VBA从入门到进阶》第58集 by兰色幻想一、控件简介关于本节所讲的所有控件,可以在工具箱找到,或右键点击“附加控件”去添加。复选框 可以同时选取多个。红色框或者圈住的地方写一段程序,在...
  • VBA制作软件原型应该也不错,有机会可以尝试一下。'************单选和复选框************* Private Sub CommandButton1_Click() Dim sr As String If CheckBox1.Value = True Then sr = sr & " &...
  • 类似于数据库ACCESS中的数据追加,但是今天小编在实际操作的时候,忽然突发奇想,我们有时候好像需要用到横向合并数据的,尤其是在统一一个人的多个不同学科成绩,产品销售的时候非常有用那么问题来了,VBA还可以...
  • 学习资源:《Excel VBA从入门到进阶》第58集 by兰色幻想一、控件简介关于本节所讲的所有控件,可以在工具箱找到,或右键点击“附加控件”去添加。复选框 可以同时选取多个。红色框或者圈住的地方写一段程序,在...
  • 当我们在 VBE(Visual Basic Editor) 中编码的时候,有时候会碰到特别长的一条语句,一个屏幕显示不下来,要不停的拉滚动条来看完整条语句,特别不方便。这时我们就需要把这样的长语句分成好几行来写。在 VBA 里(VB ...
  • 最终效果图:我们最终要实现的效果就是:1,滚动条控制开始与结束时间2,随着滚动条时间的改变,图表区域自动更新为选择时间内的数据3,下拉菜单字段改变时,数据区域自动改变为选中字段数据第一步,选择数据源一个...
  • 在查看拥有较多数据的Excel工作表时,可以通过按“PageUp”或“PageDown”键(或拖动程序窗口左侧滚动条上的滑块)来进行翻页操作。实际上,用户还可以通过编写简单的VBA程序来实现这种操作,下面介绍通过VBA程序来...
  • 1.下载 VB 6.0 鼠标 Wheel.exe 文件...解压后有一个VBA Mouse Wheel Fix文件,双击。有一个VB6IDEMouseWheelAddin.dll 文件,复制到系统文...
  • 在查看有较多数据的EXCEL文件时,可以通过键盘上的“PageUp”或“PageDown”键或者拖动窗口的滚动条来进行翻页操作。实际上,还可以通过编写一行简单的VBA代码实现这种功能。下面我们来看看具体操作。1、启动Excel并...
  • Excel_VBA教程

    2014-09-22 11:36:34
    13.滚动条 201 14.旋转按钮 201 15.图像 201 16.多页控件 202 17.TABSTRIP控件 202 18.REFEDIT控件 202 19.在窗体上放置控件 202 20.应用程序示例1:信息调查 202 21.在窗体上添加按钮、选项框和其它控件 204 22....
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧122 在框架中使用滚动条 12 技巧123 使用多页控件 12 技巧124 标签文字垂直居中对齐 12 技巧125 使用TabStrip控件 12 技巧126 显示GIF动画图片 12 技巧127 播放Flash文件 12 技巧128 在工作表中添加窗体控件 12 ...
  • VBA精华代码50例

    2010-06-09 13:51:26
    1、MsgBox “以使用中窗口为来源建立一个新的窗口副本” ...4、显示、隐藏水平滚动条及垂直滚动条 5、如果大量操作单元格,用这种方法可以提速。下面例子,数组方法约0.04 秒,而非数组方法却至少要4 秒。。。。。。
  • vba/vb6 鼠标滑轮补丁

    2010-04-29 14:57:29
    每次想看其它页的代码时,习惯性的滚动鼠标滚轮,居然没有半点反应——最好只好把鼠标移动到滚动条上去拖……这样操作对于习惯了使用鼠标滚轮的来说实在太痛苦了;虽然在某些系统下安装某些鼠标的驱动程序也可以滚动...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧122 在框架中使用滚动条 289 技巧123 使用多页控件 291 技巧124 标签文字垂直居中对齐 293 技巧125 使用TabStrip控件 295 技巧126 显示GIF动画图片 297 技巧127 播放Flash文件 300 技巧128 在工作表中添加窗体...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    13.滚动条 201 14.旋转按钮 201 15.图像 201 16.多页控件 202 17.TABSTRIP控件 202 18.REFEDIT控件 202 19.在窗体上放置控件 202 20.应用程序示例1:信息调查 202 21.在窗体上添加按钮、选项框和其它控件 204 22....
  • 每次想看其它页的代码时,习惯性的滚动鼠标滚轮,居然没有半点反应——最好只好把鼠标移动到滚动条上去拖……这样操作对于习惯了使用鼠标滚轮的我来说实在太痛苦了;虽然在某些系统下安装某些鼠标的驱动程序也可以...
  • VB6鼠标滚动

    2012-11-06 10:34:07
    每次想看其它页的代码时,习惯性的滚动鼠标滚轮,居然没有半点反应——最好只好把鼠标移动到滚动条上去拖……这样操作对于习惯了使用鼠标滚轮的我来说实在太痛苦了;虽然在某些系统下安装某些鼠标的驱动程序也可以...
  • 第56集 文字框 263、 显示相关设置 一 显示 1、多行显示 MultiLine 属性值为true时,可以多行显示文本 ...4、行列超过宽度或高度时添加滚动条 ScrollBars 属性可以设置垂直和水平滚动条 5、强制换行符号 EnterKey...

空空如也

空空如也

1 2 3 4
收藏数 77
精华内容 30
关键字:

vba滚动条