Excel宏VBA類模塊的創(chuàng)建與調(diào)用

• • • 1 類模塊的介紹
    • 2 為什么要使用類模塊
    • 3 如何創(chuàng)建類模塊
    • 4 如何調(diào)用類模塊
    • 5 代碼

---

1 類模塊的介紹

---

2 為什么要使用類模塊

---

3 如何創(chuàng)建類模塊

類模塊的新建只需右鍵選擇插入,類模塊即可

新建一個(gè)Super類

---

4 如何調(diào)用類模塊

調(diào)用類模塊需要在sub過(guò)程,或者function函數(shù)過(guò)程中
1 定義變量
2 實(shí)例化對(duì)象
3 調(diào)用對(duì)象方法

當(dāng)然 定義變量和實(shí)例化對(duì)象也可以一步完成

---

5 代碼

SuperSheets

Sub Sdelete(str As String) Dim sht As WorksheetFor Each sht In SheetsIf sht.Name = str ThenApplication.DisplayAlerts = Falsesht.DeleteApplication.DisplayAlerts = TrueEnd IfNext End SubSub Sadd(str As String) Dim sht, sht1 As WorksheetFor Each sht In SheetsIf sht.Name = str Thenk = k + 1End IfNextIf k = 0 ThenSet sht1 = Sheets.Addsht1.Name = strEnd IfEnd SubSub Add()Sheets.Add after:=Sheets(Sheets.Count)End SubProperty Get Scount()Scount = Sheets.Count 'Get只讀屬性 End Property Sub demo()Dim a As New SuperSheets '定義變量 并 生成對(duì)象實(shí)例，把引用賦給變量a.Add '調(diào)用實(shí)例方法End Sub

總結(jié)

以上是生活随笔為你收集整理的Excel宏(VBA)类模块的创建与调用的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。