作者：乔山办公网日期：
返回目录：excel表格制作
Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。e68a84e799bee5baa6332该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言——Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
掌握了VBA，可以发挥以下作用：
1.规范用户的操作，控制用户的操作行为；
2.操作界面人性化，方便用户的操作；
3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；
4.实现一些VB无法实现的功能。
5.用VBA制做EXCEL登录系统。
6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。
VBA是函数的扩充。一个熟练的VBA编程人员，可以用VBA编写所有EXCEL的内部函数或其他任何想完成的工作。
EXCEL的函数包括了大部分常用的函数，合理使用可以节省大量的时间。
当无法用函数来完成你需要的操作时，就只能选择VBA
Function MyGet(Srg As String, Optional n As Integer = False)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z, ,.,_,*,$,/,+,-]"
ElseIf n = 0 Then
Bol = s Like "[0-9,.,-,*,$,/,+,-]"
End If
If Bol Then MyString = MyString & s
Next
MyGet = MyString
End Function
自定义函数，放在模块里面。
提取e799bee5baa6e79fa5e98193e78988e69d83366数字 =MyGet($A1,0)
提取字母 =MyGet($A1,2)
提取汉字 =MyGet($A1,1)