主要参考资料VBA_for_Office_简单教程.pdf（网上搜的）.docVIP

主要参考资料VBA_for_Office_简单教程.pdf（网上搜的） VBA帮助文档 本想着自己学习过VC，也写个简单的VB例子，VBA应该是一点就通的，结果用了整整一天的时间，才搞定一个VBA的例子。主要是对语法和对象都不熟悉。 新建一个Excel文档，选择：工具--宏--Visual Basic编辑器 打开VBA编辑器，环境和VB6.0相似 在左边可以看到Sheet1和ThisWorkbook分别代表一个Excel表格和一个Excel文档 1.小测试一下。插入”--“过程”插入一个MySub（注意过程不属于特定的Sheet或者ThisWorkbook，它是用来调用的，对比一下函数） Public Sub MySub() MsgBox 显示测试 End Sub 直接在VB编辑器中运行 可以看到效果。但如果想在Excel中看到，就要Call Sub了 2.在Excel文档中，添加一个命令栏（工具栏、菜单栏和快捷（用鼠标右键单击）菜单合并为一种功能，这就是用户界面中的“工具栏”和 VBA 中的“命令栏”。命令栏为下列三种类型之一：菜单栏、工具栏或弹出菜单）。 选中ThisWorkbook，右击，选择“查看代码”。在编辑区上方选择WorkBook和Open。这样就在Excel打开时产生了一个事件处理 Dim customBar As CommandBar Dim cntEdit As CommandBarControl Set customBar = Application.CommandBars.Add(Name:=Custom1, Position:=msoBarBottom) customBar.Visible = True cntEdit = customBar.Controls.Add(msoControlEdit) 其中Application指当前文档，CommandBars是当前文档的“命令栏”集合,Add即在当前集合中在添加一个命令栏 customBar.Controls.Add在创建的命令栏中新建一个Edit控件。 在Excel文档左下方看到效果了,多了一个东西 但执行一次成功，再次执行错误提示“运行时错误5，无效的过程调用或参数”。找个几个小时啊，才知道原因。是因为第一个执行后，已经添加过一个Custom1命令栏了，再次执行时，当然不能创建同一个Name的命令栏了。 于是修改代码为 Dim Flag As Boolean Dim cb As CommandBar Dim customBar As CommandBar Dim cntEdit As CommandBarControl Flag = False For Each cb In Application.CommandBars If cb.Name = Custom1 Then Flag = True Exit For End If Next If Flag Then Else Set customBar = Application.CommandBars.Add(Name:=Custom1, Position:=msoBarBottom) customBar.Visible = True cntEdit = customBar.Controls.Add(msoControlEdit) With cntEdit .Tag = cntEdit .Width = 50 End With End If 这样先检查Custom1是否已经创建过了，如果没有在创建 3：利用2中创建的Edit编辑框，选择BeforeSave事件， Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim str As String str = Application.CommandBars(Custom1).Controls(1).Text If str msk Then Cancel = True End If End Sub 其中Application.CommandBars(Custom1).Controls(1).Text这句话得到编辑框中输入的信息，我刚开始用的是Application.CommandBars(Custom1).Controls(1).Cation，结果没得到输入的信息 Cancel = True时，保存的信息就不会被保存了。 如果在编辑框中写的是msk，则会保存Excel的改变。如果不是，那就不会保存，这样也可以其他保护作用。别人修改你的文档，如果他没在编辑框中写入msk，那就不会保存啦