ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: yuanzhuping

VBA常用技巧代码解析

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-4-25 05:12 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程
非常感谢楼主的无私!
没有看到技巧86~技巧88。可以补上吗?

TA的精华主题

TA的得分主题

发表于 2009-4-25 05:22 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
楼主,对不起啊,技巧86~技巧88在504~506楼,不知道为什么之前没看到。

TA的精华主题

TA的得分主题

发表于 2009-4-25 10:09 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-4-25 10:35 | 显示全部楼层

第8部分 控件与用户窗体

技巧128         在工作表中添加窗体控件
       在工作表中添加窗体控件,除了使用手工添加外,还可以使用代码添加,方法如下:
128-1        使用AddFormControl方法
       使用AddFormControl方法在工作表中添加窗体控件,如下面的代码所示。
  1. #001  Sub AddFormControls()
  2. #002      Dim myShape As Shape
  3. #003      On Error Resume Next
  4. #004      Sheet1.Shapes("myButton").Delete
  5. #005      Set myShape = Sheet1.Shapes.AddFormControl(0, 108, 72, 108, 27)
  6. #006      With myShape
  7. #007          .Name = "myButton"
  8. #008          With .TextFrame.Characters
  9. #009              .Font.ColorIndex = 3
  10. #010              .Font.Size = 12
  11. #011              .Text = "新建的按钮"
  12. #012          End With
  13. #013          .OnAction = "myButton"
  14. #014      End With
  15. #015  End Sub
  16. #016  Sub myButton()
  17. #017      MsgBox "这是使用AddFormControl方法新建的按钮!"
  18. #018  End Sub
复制代码
代码解析:
       AddFormControls过程使用AddFormControl方法在工作表中添加窗体控件。
       第3、4行代码为了避免在工作表中重复添加按钮控件,先删除工作表中的“myButton”按钮。
      第5行代码,使用AddFormControl方法在工作表中添加命令按钮控件并设置控件的坐标和大小。应用于Shapes对象的AddFormContl方法创建一个Microsoft Excel控件,返回一个Shape对象,该对象代表新建的控件,语法如下:
expression.AddFormControl(Type, Left, Top, Width, Height)
       参数expression是必需的,一个有效的对象。
       参数Type是必需的,Microsoft Excel控件类型,可以为表格所列XlFormControl 常量之一。
Snap3.jpg
       参数Left是必需的,新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
       参数Top是必需的,新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
       参数Width是必需的,以磅为单位的新对象的初始大小。
       参数Height是必需的,以磅为单位的新对象的初始大小。
       第7行代码将新添加的按钮名称设置为“myButton”。
       第8行到第12行代码设置新添加的按钮文字设置为“新建的按钮”,并设置文字的大小和颜色。
       第13行代码,指定新添加按钮所执行的宏名称。
       myButton过程是单击新添加按钮所执行的过程,显示一个消息框。
       运行AddFormControls过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框,如图所示。
Snap2.jpg

128-2        使用Add方法
       在工作表中添加窗体控件还可以使用Add方法,如下面的代码所示。
  1. #001  Sub AddChartObjects()
  2. #002      Dim myButton As Button
  3. #003      On Error Resume Next
  4. #004      Sheet1.Shapes("myButton").Delete
  5. #005      Set myButton = Sheet1.Buttons.Add(108, 72, 108, 27)
  6. #006      With myButton
  7. #007          .Name = "myButton"
  8. #008          .Font.Size = 12
  9. #009          .Font.ColorIndex = 5
  10. #010          .Characters.Text = "新建的按钮"
  11. #011          .OnAction = "myButton"
  12. #012      End With
  13. #013  End Sub
  14. #014  Sub myButton()
  15. #015      MsgBox "这是使用Add方法新建的按钮!"
  16. #016  End Sub
复制代码
代码解析:
       AddChartObjects过程使用Add方法在工作表中添加窗体控件。
       第3、4行代码为了避免在工作表中重复添加按钮控件,先删除工作表中的“myButton”按钮。
       第5行代码,使用Add方法在工作表中添加命令按钮控件,Add方法适用于ChartObjects对象的语法如下:
expression.Add(Left, Top, Width, Height)
       参数expression是必需的,该表达式返回一个ChartObjects对象。
       如果需要在工作表中添加其他窗体控件,可以将参数expression设置为表格所示的ChartObjects对象之一。
Snap4.jpg
       参数Left和Top是必需的,以磅为单位给出新对象的初始坐标,该坐标是相对于工作表上单元格 A1 的左上角或图表的左上角的坐标。
       参数Width和参数Height是必需的,以磅为单位给出新对象的初始大小。
       第7行代码将新添加的按钮的名称设置为“myButton”。
       第8行到第10代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜色。
       第11行代码,指定新添加命令按钮所执行的宏名称。
       myButton过程是单击新添加按钮所执行的过程,显示一个消息框。
       运行AddChartObjects过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框,如图所示。
Snap5.jpg

技巧128 在工作表中添加窗体控件.rar

18.2 KB, 下载次数: 956

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-4-25 10:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
请哪位朋友帮个忙,上传个Spreadsheet控件的文件给我,我电脑重装系统后,Spreadsheet控件不好用了。谢谢昂。

[ 本帖最后由 yuanzhuping 于 2009-4-26 14:28 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-4-25 15:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
来了就顶……………………楼主辛苦啦

TA的精华主题

TA的得分主题

发表于 2009-4-25 15:55 | 显示全部楼层
楼主辛苦了!我的附加控件中都没有Spreadsheet控件耶!在网上可以下载到吗?
我也没有WebBrowser控件!

TA的精华主题

TA的得分主题

发表于 2009-4-25 16:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-4-25 17:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
看到60楼了,看来是的认真学习学习了!
sheet方面的东东还不是很熟悉呢。

TA的精华主题

TA的得分主题

发表于 2009-4-26 03:08 | 显示全部楼层
原帖由 yuanzhuping 于 2009-4-25 10:43 发表
请哪位朋友帮个忙,上传个Spreadsheet控件的文件给我,我电脑重装系统后,Spreadsheet控件不好用了。谢谢昂。

请参阅http://club.excelhome.net/viewth ... ;page=73#pid2705819


Spreadsheet 控件是OWC的一部分,在Office03安装选项中选择安装“Office Web Component",或者到微软网站下载,下载后运行owc11.exe,安装之后就可以看到该控件了。

http://www.microsoft.com/downloa ... &displaylang=en

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:16 , Processed in 0.053409 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表