VBA常用技巧代码解析

jnbb

非常感谢楼主的无私！
没有看到技巧86~技巧88。可以补上吗？

jnbb

楼主，对不起啊，技巧86~技巧88在504~506楼，不知道为什么之前没看到。

radio8028

谢谢楼主的分享!,永远支持你!!!!

yuanzhuping

技巧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 常量之一。

       参数Left是必需的，新对象的初始坐标（以磅为单位）相对于工作表 A1 单元格的左上角或图表的左上角。
       参数Top是必需的，新对象的初始坐标（以磅为单位）相对于工作表 A1 单元格的左上角或图表的左上角。
       参数Width是必需的，以磅为单位的新对象的初始大小。
       参数Height是必需的，以磅为单位的新对象的初始大小。
       第7行代码将新添加的按钮名称设置为“myButton”。
       第8行到第12行代码设置新添加的按钮文字设置为“新建的按钮”，并设置文字的大小和颜色。
       第13行代码，指定新添加按钮所执行的宏名称。
       myButton过程是单击新添加按钮所执行的过程，显示一个消息框。
       运行AddFormControls过程将在工作表中添加一个命令按钮，单击按钮显示一个消息框，如图所示。


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对象之一。

       参数Left和Top是必需的，以磅为单位给出新对象的初始坐标，该坐标是相对于工作表上单元格 A1 的左上角或图表的左上角的坐标。
       参数Width和参数Height是必需的，以磅为单位给出新对象的初始大小。
       第7行代码将新添加的按钮的名称设置为“myButton”。
       第8行到第10代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜色。
       第11行代码，指定新添加命令按钮所执行的宏名称。
       myButton过程是单击新添加按钮所执行的过程，显示一个消息框。
       运行AddChartObjects过程将在工作表中添加一个命令按钮，单击按钮显示一个消息框，如图所示。

yuanzhuping

请哪位朋友帮个忙，上传个Spreadsheet控件的文件给我，我电脑重装系统后，Spreadsheet控件不好用了。谢谢昂。

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

tclgb

来了就顶……………………楼主辛苦啦

ykx042907

楼主辛苦了！我的附加控件中都没有Spreadsheet控件耶！在网上可以下载到吗？
我也没有WebBrowser控件！

papapa1001

看到49楼了，很是受益，非常感谢版主！

papapa1001

看到60楼了，看来是的认真学习学习了！
sheet方面的东东还不是很熟悉呢。

taller

原帖由 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