vba类模块浅显学习之二，最简单的类模块

wbzxz · 发表于 2011-3-18 22:53

本帖最后由 wbzxz 于 2011-3-20 09:20 编辑

开始觉得类模块很难，类模块也确实难，但是在学习的过程中才发现，如果你要想写一个简单的类模块，其实很简单。
举一个简单的类模块例子，为了说明问题，我都使用了中文变量，但是在实际编写过程中，大家尽量不要用中文变量。

下面的操作和代码就定义了一个简单的类模块

1.插入类模块：在VBE中选择 “插入”--“类模块”。（ok，类模块已经插入啦）
2.类模块改名：在"属性“窗口中修改类的名称为 ”雇员“。（现在我们就有个叫做”雇员“的类模块）
3.在类模块中写入代码

Option Explicit
Public 姓名 As String
Public 工资 As Double
Public 每周工作时间 As Double

复制代码

哈哈，我们的第一个可以用的类模块就这样完成啦。

我们看到，上面代码只是变量定义语句，定义的变量就是类模块的属性，用来存储类模块的属性值，可以进行读取和赋值。就是这样简单，只要你需要你的类模块有多少个属性，你就定义多少个变量。

不过非常重要的一点，是定义变量的时候，一定要用Public才行，因为其他模块要要访问这个变量，必须保证这个变量的作用域是工程级的，这是一定要注意的。Dim Private Static定义的变量都不行，切记，至于为什么，请看下面链接
http://www.excelpx.com/thread-168436-1-2.html（vba类模块浅显学习之一，定义变量与作用域）

4.类模块如何应用：其实就和平常我们使用excel预定义好的对象一样的。
代码如下：

Option Explicit
Sub EmployeePay()
Dim 新雇员 As New 雇员 '创建“雇员”类模块对象的单个实例——新雇员
'给“新雇员”的各个属性赋值
新雇员.姓名 = "张三"
新雇员.工资 = 15
新雇员.每周工作时间 = 35
'读取“新雇员”的各个属性的值
MsgBox "雇员姓名:" & 新雇员.姓名 & Chr(13) & _
"雇员每小时工资:" & 新雇员.工资 & Chr(13) & _
"雇员每周工作时间:" & 新雇员.每周工作时间 & Chr(13)
End Sub

复制代码

前面的几个帖子链接地址

vba类模块浅显学习之一，定义变量与作用域

本文代码的源文件

类模块基本示例1.rar (9.07 KB, 下载次数: 362)

兰色幻想 · 发表于 2011-3-18 23:29

本帖最后由兰色幻想于 2011-3-18 23:30 编辑

你试试在类模块中插入一个sub语句，就成了类模块成员的方法了。

wbzxz · 发表于 2011-3-20 09:35

嘿嘿，兰版类模块的方法，我还没有太搞懂呢。

panzixuan · 发表于 2011-4-8 22:54

谢谢楼主分享

yiyiyicz · 发表于 2011-4-16 18:51

正在学习类模块
谢谢

放浪形骸 · 发表于 2011-4-16 19:13

可以试着将输入数据的SUB和显示数据的SUB分开来写

		自动登录	找回密码
密码			注册

[分享] vba类模块浅显学习之二，最简单的类模块

评分