- 一,概述
- 二, 宏
- 三,使用控件设计用户界面
- 四,使用VB编辑器
- 五,VBA语法基础
- 六,VBA对象模型
- 七,模块
- 八,测试与错误处理
- 九,VBA的安全性和保护工具
- 十,VBA程序的部署
- 十一,VBA高级应用
- 参见
一,概述
VBA(Visual Basic For Applications)是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。VBA是Visual Basic的一个子集,VBA不同于VB,原因是VBA要求有一个宿主应用程序才能远行,而且不能用于创建独立应用程序。而VB可用于创建独立的应用程序。VBA可使常用的过程或者进程自动化,可以创建自定义的解决方案,最适用于来定制已有的桌面应用程序。二, 宏
三,使用控件设计用户界面
四,使用VB编辑器
五,VBA语法基础
VBA语法基础六,VBA对象模型
VBA对象模型七,模块
数据类型 短前缀 长前缀 A r r a y a a r y B o o l e a n f b i n B y t e b b i t C u r r e n c y c c u r D a t e / Ti m e d t dtm/d a t D o u b l e d d b l I n t e g e r I i n t L o n g l l n g O b j e c t o o b j S i n g l e ? s n g S t r i n g s s t r Va r i a n t v v a r 八,测试与错误处理
Private sub calcuLate() 0n error goto validate_error iresult = inuml/inum2 Print iresult Exit Sub validate_error: Msgbox "Runtime error - division by zero" End Sub
属性 说明 Number 存储最后一个错误的数字ID。这是默认属性 Description 存储说明错误的有关信息 Source 包含发生了错误的对象名或应用程序名 HelpFile? 包含帮助文件的名字 HelpContextID? 包含错误号对应的帮助上下文ID LastDLLError? 包含最后一次调用DLL的系统错误代码 -
'添加一个模块创建一个函数,命名为HandleErrors
Function HandleErrors(iErrNum) As Integer
Select Case iAction
Case 5
'Invalid procedure call
MsgBox Error(iErrNum) & " Contact Help Desk."
iAction = 2
Case 7
'Out of memory
MsBox "Close all unnecessary applications. "
iAction = 1
Case 11
'Division by zero
MsgBox "Zero is not a valid value. "
iAction = 1
Case 48, 49,51
'Error in loading DLL
MsgBox iErrNum & "Contact Help Desk. "
iAction = 5
Case 57
'Device I/O error
MsgBox "Insert Disk in Drive A."
iAction = 1
Case Else
MsgBox "Unrecoverable Error. "
iAction = 5
End Select
ErrorHandler = iAction
End Function
'在另一模块的ErrorExample过程中使用HandleErrors函数
Private Sub ErrorExample ()
Dim sngValue As Single, sngDivideBy As Single, sngAnswer As Single
Dim iResponse As Integer
On Error GoTo ErrorZone
s n g Value = InputBox("Enter the number you wish to divide: ")
sngDivideBy = InputBox("Enter the number you wish to divide by: ")
sngAnswer = sngValue / sngDivideBy
MsgBox "The answer is " & sngAnswer
Exit Sub
E r r o r Z o n e :
'This Select statement uses the value returned
'from the HandleErrors function for its condition.
Select Case HandleErrors(Err)
'对应于五种处理方法:Resume/Resume Next/Resume “行”/退出该过程/结束整个应用程序。
Case 1
Resume
Case 2
Resume Next
'This procedure doesn't need case 3 which is resuming to a line.
Case 4
Exit Sub
Case 5
End
End Select
End Sub
九,VBA的安全性和保护工具
>Tools菜单上的Digital Signture(数字签名)命令>单击Choose(选择)指定数字证书。>Macro宏>Security安全性。可以指定Security LeveI?(安全级别)和Trusted Source(信任源)>Tools>Project 属性,写人密码锁定代码查看十,VBA程序的部署
十一,VBA高级应用
参见
VBA
最新推荐文章于 2024-03-10 17:15:36 发布
VBA