日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

Excel宏(VBA)类模块的创建与调用

發布時間:2023/12/20 编程问答 32 豆豆
生活随笔 收集整理的這篇文章主要介紹了 Excel宏(VBA)类模块的创建与调用 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

Excel宏VBA類模塊的創建與調用

      • 1 類模塊的介紹
      • 2 為什么要使用類模塊
      • 3 如何創建類模塊
      • 4 如何調用類模塊
      • 5 代碼


1 類模塊的介紹


2 為什么要使用類模塊


3 如何創建類模塊

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

新建一個Super類


4 如何調用類模塊

調用類模塊需要在sub過程,或者function函數過程中
1 定義變量
2 實例化對象
3 調用對象方法


當然 定義變量和實例化對象也可以一步完成


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 '定義變量 并 生成對象實例,把引用賦給變量a.Add '調用實例方法End Sub

總結

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

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。