VBA常用技巧代码解析

黄河之爱

来到一个知识广阔的天地……
excel我正在学习！

唱歌的蚂蚁

很高兴的看完，感谢斑竹的无私奉献和忘我教诲的精神，鲜花和掌声送给你！！！

ykx042907

您每天更新，我每天感谢您！

tiandi100

来到EH不久，看到了EH的非凡，是一个值得留恋的地方，我会常来，我会提高。

yuanzhuping

技巧122         在框架中使用滚动条
       如果需要在窗体中显示较多的内容，比如使用标签显示一段很长的文本内容，而又不希望窗体很大的话，可以在窗体中使用框架放置标签，设置框架可滚动区域的高度，使标签可以进行上下移动以查看全部区域。
       在VBE窗口中单击菜单“插入”→“用户窗体”，在窗体中添加一个框架控件，在框架中添加一个标签控件。根据需要显示的内容调整好标签的大小，再将框架和窗体调整为合适的大小。
       在VBE中双击窗体，写入下面的代码。

1. #001  Private Sub UserForm_Initialize()
   
2. #002      Dim sLab As String
   
3. #003      sLab = Space(4) & "欢迎来到ExcelHome技术论坛，全球最领先的Excel技术论坛之一。" & vbLf _
   
4. #004          & Space(4) & "在这里，我们讨论Microsoft Office系列产品的应用技术，重点讨论Microsoft Excel。本论坛从属于Excel Home这一全球最大的华语Excel技术门户，目前是个人、非营利性质的网站学习平台。各行各业的Excel使用者都活跃在此，各种形式的学习资源也汇聚于在此，所以，只要您愿意花时间，并使用正确的方法，我们有理由相信您的绝大部分应用问题和学习愿望都在这里被满足。无数已经取得了非凡进步的人，也可以证明这一点。" & vbLf _
   
5. #005          & Space(4) & "Let’s do it better!这是Excel Home的口号，我们的宗旨是帮助大家解决在使用Office软件中的问题，提升自己的应用技能。" & vbLf _
   
6. #006          & Space(4) & "鉴于许多人在此之前没有正确使用网络学习资源的经验，或者对Excel Home的行为规则缺乏了解，我们特别准备了这样一篇文章，送给每一位有志与我们一起成长的朋友。本文将重点叙述学习方法和论坛的规则，对于如何使用论坛的各项功能，请阅读论坛的帮助系统（http://club.excelhome.net/boardhelp.asp ）"
   
7. #007      Label1.Caption = sLab
   
8. #008      With Frame1
   
9. #009          .ScrollBars = 2
   
10. #010          .ScrollHeight = Label1.Height
    
11. #011      End With
    
12. #012  End Sub

复制代码

代码解析：
       窗体的初始化事件，在窗体加载时使用标签显示文本内容。
       第3行到第6行代码，变量sLab为要显示的文本，使用Space函数在每段的首字前插入4个空格，使首字缩进。在需要换行的地方插入常数vbLf进行换行。
       第9行代码，设置框架的ScrollBars属性为显示垂直滚动条。ScrollBars属性指定一个控件、窗体或页面是否有垂直或水平滚动条，或两者都有，语法如下：
object.ScrollBars [= fmScrollBars]
       参数object是必需的，一个有效的对象。
       参数fmScrollBars是可选的，滚动条的显示位置，设置值如所示。

       第10行代码，设置框架的ScrollHeight属性为标签的高度。ScrollHeight属性指定通过移动控件、窗体或页面中的滚动条，可以查看的全部区域的高度，语法如下：
object.ScrollHeight [= Single]
       参数object是必需的，一个有效的对象。
       参数Single是可选的，可滚动区域的高度。
       如果框架具有水平滚动条，可以设置框架的ScrollWidth属性来设置可以查看的全部区域的宽度。
       运行窗体，使用标签显示文本内容，可通过框架的滚动条查看全部内容，如图所示。

215386

非常感谢，版主留下的分享，

我收藏、学习中，，，，，，，，，

215386

谢谢，开始学习了

wolf412

非常的感谢的，但是我的空间注册不了的

wangwentao006

好久没来了，资料整理的这么全，难为几位版主了，收藏了

suyan2468

好人啊，谢谢了