久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

分享

Excel【VBA教程】WorkBook工作簿對(duì)象基本用法

 冷茶視界 2023-11-15 發(fā)布于江蘇

快速瀏覽

往期合集:【2023年3月】【2023年4月】【2023年5月】【2023年6月2023年7月2023年8月2023年9月

實(shí)用案例

|日期控件||簡(jiǎn)單的收發(fā)存||收費(fèi)管理系(Access改進(jìn)版)|

|電子發(fā)票管理助手||電子發(fā)票登記系統(tǒng)(Access版)|

|文件合并||表格拆分||審計(jì)憑證抽查底稿|

|中醫(yī)診所收費(fèi)系統(tǒng)(Excel版)||中醫(yī)診所收費(fèi)系統(tǒng)(Access版)|

收費(fèi)使用項(xiàng)目

|財(cái)務(wù)管理系統(tǒng)||工資薪金和年終獎(jiǎng)個(gè)稅籌劃|

內(nèi)容提要

  • WorkBook對(duì)象用法
大家好,,我是冷水泡茶,,今天我們一起來了解一下WorkBook對(duì)象,。
可能初涉VBA的朋友有點(diǎn)不太理解什么是對(duì)象,那么我們就先了解一下VBA的幾個(gè)重要概念,,對(duì)象,、屬性、方法,、事件,。

1、對(duì)象:我們可以操作的目標(biāo),,比如工作簿,、工作表、單元格,、用戶窗體,、控件等等。

2,、屬性:對(duì)象的特征或狀態(tài),。比如工作表的Name,單元格的顏色等,。

3、方法:對(duì)象可以執(zhí)行的動(dòng)作,,比如工作簿的Save,。

4、事件:對(duì)象可以響應(yīng)的動(dòng)作或狀態(tài)變化,,比如工作表的Change事件,,命令按鈕的Click事件。如果某事件發(fā)生,,對(duì)象會(huì)做出哪些反應(yīng),?實(shí)際上也就是執(zhí)行指定的代碼。

以上概念,,稍微了解即可,。我們舉個(gè)現(xiàn)實(shí)生活中的例子,比如我們住的房子,,可以當(dāng)作一個(gè)對(duì)象,,房子的面積大小就是它的屬性關(guān)門上鎖可以看做一種方法,。下面進(jìn)入正題:
一,、什么是WorkBook對(duì)象?
WorkBook,,中文名稱叫“工作簿”,,簡(jiǎn)單理解,,也就是一個(gè)Excel文檔。
二,、常用的屬性,、方法

這兩個(gè)放在一起說,我就不用考慮某個(gè)代碼使用的到底是屬性還是方法,。我們這里僅介紹常用的,,或者說我們使用過的,沒使用過的就不亂講了,,也沒有必要說得那么細(xì),,若有需要,我們?cè)偃パ芯恳膊贿t,,反正資源都是觸手可及的,。

1、定義一個(gè)WorkBook對(duì)象

Dim wb As Workbook

這里的wb,,就是一個(gè)WorkBook對(duì)象,,wb只是一個(gè)代號(hào),什么其他字符串都可以,,只要符合VBA的命名規(guī)范,。但我們建議還是要定義一個(gè)有一定意義的對(duì)象、變量,,并且盡量保持慣性,。這樣做好處是顯而易見的,一是加快你寫代碼的速度,,二是復(fù)制代碼的時(shí)候,,改動(dòng)的地方會(huì)比較少,時(shí)候甚至都不用改,。

2,、輸入

我們接下來寫代碼的時(shí)候,輸入“wb.”(注意后面的小點(diǎn)點(diǎn)),,后面會(huì)給出很多屬性,、方法的提示記得的,,我們直接輸入,,只記得前面幾個(gè)字母我們就輸入幾個(gè)字母,,顯示的列表中尋找,。

3、Add:新建工作簿

 Set wb = Application.Workbooks.Add

4,、Activate:激活工作簿,,使其成為活動(dòng)工作簿

wb.Activate  

5,、Name:獲取或設(shè)置工作簿的名稱;FullName:完整名稱

 strName=wb.Name strName=wb.FullName

6,、Sheets.Add:插入工作表,,并放在最后

Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))

7、Saveas:另存為

'SaveAs方法,屏蔽復(fù)蓋文件提示Application.DisplayAlerts = Falsewb.SaveAs fileName  Application.DisplayAlerts = True

8,、Sheets:返回工作簿中的所有工作表的集合,;循環(huán)工作簿中所有工作表的方法

For Each ws In wb.Sheets  ......Next

9、Save:保存工作簿

wb.Save

10,、Close:關(guān)閉工作簿

wb.Close savechanges:=False

11,、Open:打開另一個(gè)工作簿

Set wb = Workbooks.Open(path)

12、PrintOut:打印工作簿中所有工作表(有參數(shù)可選)

13,、Protect::保護(hù)工作簿,,可選擇設(shè)置密碼。

14,、Unprotect:取消保護(hù)工作簿,。

三、事件

工作簿的事件也很多,,在ThisWorkbook對(duì)象中,。

我們點(diǎn)中所需要的事件名稱,相應(yīng)過程的基本代碼就會(huì)自動(dòng)填充到代碼框,。

我們舉兩個(gè)經(jīng)常用到的例子

1,、BeforeClose:當(dāng)工作簿即將關(guān)閉之前觸發(fā),執(zhí)行相應(yīng)代碼,。

Private Sub Workbook_BeforeClose(Cancel As Boolean)    Me.Save    MsgBox "你關(guān)閉了文件:" & Chr(10) & Me.Name & Chr(10) & "歡迎下次再來!"End Sub

2,、Open事件:當(dāng)工作簿被打開時(shí)觸發(fā),,執(zhí)行相應(yīng)代碼。

Private Sub Workbook_Open()    MsgBox "歡迎打開:" & Chr(10) & ThisWorkbook.NameEnd Sub

四,、總結(jié)

對(duì)象的屬性,、方法、事件,,是非常重要的,,建議想學(xué)習(xí)VBA的朋友多多了解并運(yùn)用。

另外,,為了更好地理解WorkBook對(duì)象的有關(guān)內(nèi)容,,我寫了一段大雜燴代碼,基本包括了上述內(nèi)容,,由于篇幅的關(guān)系,,我放到第二條文章,。

好,今天就到這吧,。


~~~~~~End~~~~~~

喜歡就點(diǎn)個(gè),、點(diǎn)在看留言評(píng)論,、分享一下唄,!感謝支持!

    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多