13,excel vba 代码的简化和重复使用

作为一个人. 我们知道人具有自己的属性和动作. 比如头发是黑色的. 眼晴是黑的. 牙可能也是黑的. 然后我们也会有做一些动作 , 比如放声歌唱, 或者吃一些东西.

对像就是具有自己属性和可以执行一些动作的事物.

放在编程中, 对像就是一些属性和函数的集合体. 比如人这个对像

person

{

name

sex

funciton eat()

function sing()

}

我们上面简单的描述了一下,我们要创建的人具有两个属性: 名字和性别, 具有两个动作, 吃和唱.

有人这个描述后, 我们就可以开始创建了. 我们随便定一个对像的名字吧. 就叫 xiaoming吧

xiangming = create person

这样我们就有一个对像, 叫xiaoming了. 只是我们还不知道它的姓名和性别是啥. 我们可以在创建了它后, 给它指明下

比如

xiaoming.name =" 小明"

xiaoming.sex ="男"

这样我们电脑中就存在了一个叫xiaoming的对像了. 它的两个属性. name是小明 .sex是男.

上面只是通过一些直白的语句介绍了下对像和对像的创建, 接下来让我们在实际的excel里创建一下吧.

1,点插入 -> 类模块.. 这里vba把对像的描述称为类.

修改类的名字为 person .

接下来我们按vba的语法. 来写一下person这个类

Private aaaa As String

Property Let name(S As String)
aaaa = S
End Property
Property Get name() As String
name = aaaa
End Property
Public Function eat()
MsgBox " i want to eat"
End Function

这里我们按vba的语法, 定义了一个name属性和一个eat函数, 即动作. 最上方的 aaaa 可以随便写, 只是为了保存name这个属性的值的.

有了这个后, 我们就可以开始创建对像了.

我们再插入一个普通的模块, 像以前一样.

Public Sub diandiandidi13()
Dim xiaoming As person
Set xiaoming = New person
xiaoming.name = "aa"
MsgBox xiaoming.name
xiaoming.eat
End Sub

上面代码中, 最上面的两行.

Dim xiaoming As person , 这句是告诉vba, 我定义一了个变量, 它的类型是person,

Set xiaoming = New person ,这句则是创建了一个 person,对像. 前把这个创建的对像附值给xiaoming, 这样变量xiaoming就代表了这个我们刚刚创建的对像了.

最前面的set , 这个是vba的语法. 当一个变量表示的是对像变量时, 需要用到set来标明. 这里我们创建了一个person变量, 所以需要用到set .

第三句就是给name 赋值了. 之前我们的单元格也是一个对像. 我们可以用 "." 号来访问她的属性. 比如单元格的颜色属性.

这里我们刚给person定义了name属性. 因此可以用 xiaoming.name 来赋值和获取.

您可以自己手动写一下 ,当你写完xiaoming后 ,再加个 "." , 马上vba就会弹出我们刚刚定义的属性和函数了

会出现这个, 还有一个原因是我们前面的Dim xiaoming As person, 这句就是告诉了vba,xiaoming的变量是person类. 所以它才会去找这个类定义了什么属性和函数

最后的

xiaoming.eat 就是调用我们写的person类里的函数eat了

运行试试?

13,excel vba 代码的简化和重复使用_初识对像相关推荐

Excel VBA代码学习
艺思网 http://www.edusrc.com 提供中学教学资料下载很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运 ...
编写高效Excel VBA代码的最佳实践(一)
很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...
调试Excel VBA代码
调试Excel VBA代码目录 1编译错误 2运行中出错或者运行结果错误 Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误常见的编译错误有: 错误 ...
经典Excel VBA代码
经典Excel VBA代码 Application(Excel程序)篇 Application.EnableEvents = True / False '启用 / 禁用所有事件 Applic ...
转：经典Excel VBA代码
VBA基础在大家的关注声中即将告一段落了,有许多经典的VBA操作我们只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高.最后我们收集了常见的VBA代码以飨广大 ...
如何调试Excel VBA代码
Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色. 错误的语法结构, ...
Excel VBA代码密码破解
1.查看VBA代码,有密码 2.破解密码: 2.1:修改文件名后缀,修改为压缩包格式 2.2:打开压缩包文件,找到文件:vbaProject.bin 2.3:把这个文件从压缩包中拖出来 2.4:打开 ...
Excel VBA高级编程 -自动去除重复项自动求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
13 excel vba 多个区域选择 union range
一.程序执行结果如下图二.代码如下 Option Explicit Sub MultipleRange() Dim r1, r2, myMultipleRange As Range Set r1 = ...

13,excel vba 代码的简化和重复使用_初识对像

13,excel vba 代码的简化和重复使用_初识对像相关推荐

最新文章

热门文章