Excel宏VBA类模块的创建与调用
1 类模块的介绍
2 为什么要使用类模块
3 如何创建类模块
类模块的新建只需右键选择插入,类模块即可
新建一个Super类
4 如何调用类模块
调用类模块需要在sub过程,或者function函数过程中
1 定义变量
2 实例化对象
3 调用对象方法
当然 定义变量和实例化对象也可以一步完成
5 代码
SuperSheets
Sub Sdelete(str As String)
Dim sht As Worksheet
For Each sht In Sheets
If sht.Name = str Then
Application.DisplayAlerts = False
sht.Delete
Application.DisplayAlerts = True
End If
Next
End Sub
Sub Sadd(str As String)
Dim sht, sht1 As Worksheet
For Each sht In Sheets
If sht.Name = str Then
k = k + 1
End If
Next
If k = 0 Then
Set sht1 = Sheets.Add
sht1.Name = str
End If
End Sub
Sub Add()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub
Property Get Scount()
Scount = Sheets.Count 'Get只读属性
End Property
Sub demo()
Dim a As New SuperSheets '定义变量 并 生成对象实例,把引用赋给变量
a.Add '调用实例方法
End Sub