资源预览内容
第1页 / 共33页
第2页 / 共33页
亲,该文档总共33页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
VBA简易教程 (下)创建过程 创建第一个过程需要两个基本步骤。 首先,需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。 对于创建的每一个应用程序,只需添加一次模块。可以使用多个模块,但这是 不必要的。某些开发者喜欢使用多个模块,以便根据他们的目的或者窗体对过 程进行组织。在本练习中,创建的过程只显示一个消息框。 在本练习中创建 的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例 子,虽然我们还没有介绍过Msgbox语句,但是在本例中将使用它。要创建该 过程,请按如下步骤进行:打开一个新工作簿。选择“工具“-“宏“-“Visual Basic编辑器“,打开VBA编辑器窗口。在VBA编辑器的左面,可以看到“工程资源管理器”窗口。 在工程资源管理器窗口的“Thisworkbook“上单击鼠标右键, 选择“插入”-“模块”,这样就将一个模块添加到应用程序中了。 (如果你没有看见“工程资源管理器”窗口,可以按 Ctrl+R)。选择“插入”“过程”,显示“添加过程”对话框。输入“第一个工程”作为过程名字。 在“类型”分组框中,确认选择了“子程序”。单击“确定”按钮。这样一个新的过程就添加到模块中了。可以在模块中看到以 Public Sub 第一个过程()开始,以End Sub结束的语句结构。6)在过程中插入光标,输入以下语句并回车: Msgbox “这是我的第一个过程“ 在输入Msgbox后,会自动弹出一个消息框告诉你有关这条命令的信息, 称之为自动列表技术。输入完成的过程如下所示:Public Sub 第一个过程() Msgbox “这是我的第一个过程“ End SubVBA对子程序和函数有 如下的命名规则: * 名字中可以包含字 母数字和下划线。 * 名字中不能包含空 格句号惊叹号,也不能 包含字符 & $ #. * 名字最多可以包含 255个字符。 运行宏 l 创建这个过程后,可以运行一下。 l 运行一个过程有几种方法: l 可以直接使用“运行”菜单,“运行子程序/用户窗体”工具栏按钮 或按下F5键。 l 要运行一个过程,可以按照如下步骤: l 1)单击“运行子程序/用户窗体”工具栏按钮,过程执行并显示一个 消息框。 2)单击消息框之中的“确定”按钮,关闭该消息框。 保存对模块所做的改变 要保存新过程,需要保存过程所驻留的工作簿.可以用 VBA编辑器保存工作簿.具体步骤如下: 选择“文件“-“保存工作簿“.因为本工作簿还没有保存过, 所以要给它命名.输入“HOUR4”作为文件名并按回车键,则工作簿和模块与 过程都保存下来了. 变量 l 变量是用于临时保存数值的地方. l 每次应用程序运行时,变量可能包含不同的数值,而在程序运行时,变 量的数值可以改变. l 为了说明为什么需要变量,可以按照如下步骤创建一个简单的过程: l 1)创建一个名为“你叫什么名字“的过程. 2)在过程中输入如下代码: Inputbox “输入你的名字:“ l 3)按下F5键运行过程,这时会显示一个输入框,要求输入你的名字. 4)输入你的名字并按“确定“按钮,则结束该过程. 你输入的名字到那 里去了?如何找到用户在输入框中输入的信息?在这种情况下,需要使 用变量来存储用户输入的结果. 变量的数据类型 使用变量的第一步是了解变量的数据类型.变量的数据类型控制变量允许保存 何种类型的数据.表列出了VBA支持的数据类型,还列出了各种类型的变量所需要 的存储空间和能够存储的数值范围.数据类型存储空间数值范围Byte1字节0 - 255Boolean2字节True或者FalseInteger2字节-32768 - 32767 Long(长整型)4字节-2147483648 - 2147483647Single4字节负值范围: -3.402823E38 -1.401298E-45 正值范围: 1.401298E-45 3.402823E38 Object4字节任何引用对象String(长字符串)10字节+1字节/字符0 - 约20亿变量的数据类型数据类型存储空间数值范围Double8字节负值范围: -1.79769313486232E308 - 494065645841247E-324 正值范围: 4.94065645841247E-324 1.79769313486232E308 Decimal14字不包括小数时: +/-79228162514264337593543950335 包括小数时: +/7.9228162514264337593543950335 Currency8字节-922337203685477 922337203685477Date8字节1000年1月1日 - 9999年12月31日String(固定长度)字符串的长度1 约65400Varient(数字)16字节Double范围内的任何数值Varient(文本)22字节+1字节/字符数据范围和变长字符串相同用Dim语句创建变量(声明变量) 现在,你对变量可以使用的数据类型已经比较熟悉了,以下我们将创建变量. 创建变量可以使用Dim语句,创建变量通常成为“声明变量“。Dim语句的基本语法如下: Dim 变量名 AS 数据类型变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符, 不能包含空格句号惊叹号,也不能包含字符 & $ #. 名字最大长度为255个字符。变量命名的惯例 下表给出了推荐的变量命名惯例 数据类型短前缀长前缀 数据类型短前缀长前缀ArrayaaryBooleanfbinBytebbitCurrencyccurDoubleddblDate/Timedtdtm/ datIntegeriintLongllngObjectoobjSinglesngStringsstrVariantvvar使用数组如果你使用过其他编程序语言,可能对数组已经比较熟悉了.数组是具有 相同数据类型并共同享有一个名字的一组变量的集合.数组中的元素通过 索引数字加以区分,定义数组的方法如下:Dim array_name(n) As type(其中n是 数组元素 的个数)例如,如果要创建保存10个学生名字的数组,可以用以下语句:Dim s学生名字(9) As Integer 使用数组声明数组时的另一种方法是不给定大小。可以在程序运行时定义其大 小。通过创建动态数组就可以做到。例如,你的程序要创建一表格, 可以提示用户输入表格的行和列的数目。 声明动态数组的语法如下:Dim dyn_array() As type对数组声明后可以在程序运行时用ReDim语句指定数组的大小: ReDim dyn_array()(array_size)参数array_size代表数组的新大小。如果要保留数组的数值,请在 ReDim语句后使用保留字Preserve,具体语法如下:ReDim Preserve dyn_array(array_size)变量赋值 l 声明变量后就可以给变量赋值。请注意下列语句中为数组变量赋值时 索引数字的使用。 Dim i人数 As Integer Dim i考试成绩 As Integer Dim i As Integer i人数 = inputbox(“输入学生的人数:“) ReDim Preserve i考试成绩(i数量) For i = 1 to i人数 i考试成绩(i) = inputbox(“输入考试成绩“& i ) Next 使用常量 l 现在,你已经知道变量是存储非静态信息的存储容器.当存储静态信息 时可以创建常量.它可以供程序多次使用而且便于记忆. l 比如圆周率比3.1415926好理解得多. 要声明常量并设置常量的值, 需要使用const语句.常量声明后,不能对它赋一个新的值. l 例如,假设需要声明一个常量来保存销项税率,可以使用以下语句: l 通常常量声明时用全大写字母以区分变量. const 销项税率 As Long = 0.17 作用域 到现在为止,已经学习了如何定义变量和常量,但是还不知道在何处定义.可以在两个地 方定义常量和变量: 过程中定义和在模块顶部一个名为“通用声明”的区域内定义.定义的位置决定租用域.在过程中声明,该变量只能在该过程中使用,其他过程中不能使用这个 变量和常量,这中变量成为局部变量或过程级变量; 在模块顶部声明的变量称为模块级变量,该变量在该模块的所有过程中 都可以使用。作用域还有一种等级的作用域称为公共级。 公共级变量可以在应用程序的任何过程中使用,不论过程和变量是否定义在一个模块。 这就使得公共级变量在使用中十分灵活,但是公共级变量在程序运行时一直保留在 内存中,这样就占用了系统资源。要创建公共级变量,可以用Public语句, 具体语法如下:Public variablename As datatype要创建公共级常量,具体语法如下:Public const CONSTANAME datatype = value公共级变量或常量必须在模块顶部的“通用声明”区域中定义。利用VBA设置工作表使用权限 Excel Home 一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令, 有时这尚嫌不足,比如一些机密文件根本要让某些使用者无法看到, 但又需要他来操作工作簿中的其他表,怎么办? 可以打开VBA编辑器,打开“工程资源管理器”,双击该工作表,现在出现的是 设置该表的属性的编辑窗口,单击窗口左上的下拉列表框,选择 worksheet , 这时再从该窗口右上方的列表框中选择Active(“激活”),这时自动显示 如下的语句块:Private Sub Worksheet_Activate()End Sub 利用VBA设置工作表使用权限在其中加入代码:(假设用“123”作为密码,Sheet“机密文档”为限制 权限文档,sheet“普通文档“为工作簿中你认为任何适合的工作表)If Application.InputBox(“请输入操作权限密码:“) = 123 Then Range(“A1“).Select Else Msgbox “密码错误,即将退出!“ Sheets(“普通文档“).Select End if 利用VBA设置工作表使用权限l 完整的程序如下:Private Sub Worksheet_Activate() If Application. InputBox(“请输入操作权限密码:“) = 123 Then Range(“A1“).Select Else MsgBox “密码错误,即将退出!“ Sheets(“普通文档“).Select End If End Sub利用VBA设置工作表使用权限这样做仍有一个问题,就是越权使用者仍会看到一些文件的片段,即在提示 密码的那段时间。你可以这样做,用上述方法选择工作表的Deactivate事件, 输入以下代码:Sheets(“机密文档“).Cells.Font.ColorIndex = 2 这段程序使得此工作表在不被激活时,所有文字为白色。 然后,在第一个程序中的Range(“A1“).Select后插入一行,写入以下代码:ActiveSheet.Cells.Font.ColorIndex = 56这段程序,在你输入正确密码后,将该表所有文字转变为深灰色。利用VBA设置工作表使用权限完整的程序如下:Private Sub Worksheet_Activate() If Application.InputBox(“请输入操作权限密码:“) = 123 Then Range(“A1“).Select Sheets(“机密文档“).Cells.Font.ColorIndex = 56 Else MsgBox “密码错误,即将退出!“ Sheets(“普通文档“).Select End If提高VBA运行效率由于Microsoft Office办公套件
收藏 下载该资源
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号