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