工作簿對象介紹完了,接下來(lái)我們講講Sheets對象。
Sheets對象是指定的或者活動(dòng)工作簿中所有工作表的集合。
Sheets集合可以合包含工作簿中的所有工作表(圖表工作表和工作表)。
今天先講講Sheets對象的屬性。
Count屬性
返回一個(gè) Long 值,它代表集合中對象的數量。
示例:
MsgBox '當前Sheets對象中成員數量:' & Sheets.Count
Sheets.Add Type:=xlWorksheet
MsgBox '插入一個(gè)工作表后,集合中成員數量為:' & Sheets.Count
Sheets.Add Type:=xlChart
MsgBox '插入一個(gè)圖表工作表后,集合中成員數量為:' & Sheets.Count
代碼先顯示當前Sheets對象中成員數量,然后再分別插入工作表,圖表工作表并在插入完成后顯示成員數量。
Parent屬性
返回指定對象的父對象,只讀。
Sheets對象隸屬于工作簿對象,so,Parent屬性返回的是包含該Sheets對象的工作簿
示例:
MsgBox Sheets.Parent.Name
Item 屬性
從集合中返回一個(gè)對象。
語(yǔ)法:Item(Index)
Index可為對象的名稱(chēng)或索引號。
之前在講Workbooks時(shí)有提到1和”1”的區別,這里同樣適用。
由于這個(gè)是缺省屬性,所以可以省略。
Sheets(1)與Sheets.item(1)是等價(jià)的。
示例:
Dim sht As Object
Dim str As String
If Sheets.Count > 0 Then
str = '當前工作簿中有以下工作表:' & vbCrLf
For Each sht In Sheets
str = str & sht.Name & vbCrLf
Next
MsgBox str
End If
通過(guò)對話(huà)框顯示當前工作簿中Sheets集合中所有成員的名稱(chēng)
Visible 屬性
通過(guò)設置True或False,確定對象是否可見(jiàn)。
隱藏工作表時(shí)需要注意的是,一個(gè)工作簿中,必須有一個(gè)工作表可見(jiàn)。
除非設置工作簿的isAddin屬性,這樣不光工作表不可見(jiàn),就連工作簿也不可見(jiàn)。
在使用這個(gè)屬性設置隱藏時(shí),可以批量(注意保留一個(gè)可見(jiàn))
Sheets(Array( 2, 3, 4)).Visible = False
如果想逆向再操作,批量取消隱藏,估計會(huì )想當然的用Sheets(Array( 2, 3, 4)).Visible = True。這樣就是萬(wàn)萬(wàn)不能的呢。
取消就挨個(gè)來(lái)實(shí)現,為什么呢?
有興趣的童鞋可以動(dòng)手試試,你可以一次選中二個(gè)工作表(假設當前工作簿中有3個(gè)工作表),右鍵隱藏。
然后你再試試右鍵取消隱藏,能否在對話(huà)框中實(shí)現一次取消多個(gè)?
VPageBreaks 屬性
返回一個(gè) VPageBreaks 集合,它代表工作表上的垂直分頁(yè)符。只讀。
可以通過(guò)代碼來(lái)對垂直分頁(yè)符集合的操作,這里不做介紹,只需知道有這么個(gè)集合。
HPageBreaks 屬性
返回一個(gè) HPageBreaks 集合,它代表工作表上的水平分頁(yè)符。只讀。
示例:
Dim str As String
str = '水平分頁(yè)符:' & ActiveSheet.HPageBreaks.Count & vbCrLf
str = str & '垂直分頁(yè)符:' & ActiveSheet.VPageBreaks.Count
MsgBox str
Application 屬性
如果不使用對象識別符,則該屬性返回一個(gè) Application 對象,該對象表示 Microsoft Excel 應用程序。
如果使用對象識別符,則該屬性返回一個(gè)表示指定對象(可對一個(gè) OLE 自動(dòng)操作對象使用本屬性來(lái)返回該對象的應用程序)創(chuàng )建者的 Application 對象。
使用OLE自動(dòng)化操作時(shí)可看出區別。
補充知識點(diǎn):
Thisworkbook,表示其中正在運行當前宏代碼的工作簿(加載宏內部只能通過(guò)該屬性來(lái)引用加載宏自身)。
ActiveWorkbook,表示當前的活動(dòng)工作簿。在加載宏內部引用該屬性只會(huì )返回調用該加載宏的工作表。如果沒(méi)有活動(dòng)工作簿,則返回Nothing。
ActiveSheet,代表活動(dòng)工作簿中或指定的窗口或工作簿中的活動(dòng)工作表(最上面的工作表)。如果沒(méi)有活動(dòng)的工作表,則返回 Nothing。
聯(lián)系客服