第一篇：VBA技巧29 防止更改工作表的名稱

技巧1 防止更改工作表的名稱

工作表的名稱顯示在工作表標(biāo)簽上，除了在相應(yīng)的功能菜單中可以對其進(jìn)行重命名操作外，在工作表標(biāo)簽上雙擊鼠標(biāo)也能修改工作表名稱。一旦修改了工作表名稱，可能就會產(chǎn)生一連串的問題，例如在其他工作簿中對該工作表的引用將會失效，通過工作表名稱引用工作表的代碼也將出錯。

Excel沒有提供修改工作表名稱的相關(guān)事件，要禁止用戶修改工作表名稱，需采取其他一些技巧。比如在工作表BeforeClose事件中檢驗(yàn)工作表名稱，如果工作表名稱不是指定的字符串，則將其修改為指定字符串，即保持工作表名稱不變，代碼如下。

#001 Private Sub Workbook_BeforeClose(Cancel As Boolean)#002 If Sheet1.Name <> “Excel Home” Then Sheet1.Name = “Excel Home” #003 ThisWorkbook.Save #004 End Sub 代碼解析：

工作簿的BeforeClose事件過程，在關(guān)閉當(dāng)前工作簿時(shí)判斷Sheet1工作表名稱，如果不是指定的字符串“Excel Home”，則將其恢復(fù)為“Excel Home”后保存工作簿，從而避免更改Sheet1工作表名稱。

第二篇：商業(yè)銀行更改名稱案例

商業(yè)銀行更改名稱案例

姓名：汪海倫

金融1403

1403010323

商業(yè)銀行更改名稱案例

中信銀行成立于1987年，是中國改革開放中最早成立的新興商業(yè)銀行之一，也是中國最早參與國內(nèi)外金融市場融資的商業(yè)銀行。中國國際信托投資公司（簡稱中信公司）董事長榮毅仁先生向中央專函要求在中信公司系統(tǒng)下成立一個(gè)銀行，全面經(jīng)營外匯銀行業(yè)務(wù)。即中信實(shí)業(yè)銀行。改名去掉“實(shí)業(yè)”意味著中信銀行不再是原來的定位；它成為了新一家真正的公司。以中國中信集團(tuán)和中信國際金融控股有限公司為股東，正式成立中信銀行股份有限公司。同年，成功引進(jìn)戰(zhàn)略投資者，與歐洲領(lǐng)先的西班牙對外銀行（BBVA）建立了優(yōu)勢互補(bǔ)的戰(zhàn)略合作關(guān)系。2007年4月27日，中信銀行在上海交易所和香港聯(lián)合交易所成功同步上市。2009年，中信銀行成功收購中信國際金融控股有限公司（簡稱：中信國金）70.32%股權(quán)。經(jīng)過二十多年的發(fā)展，中信銀行已成為國內(nèi)資本實(shí)力最雄厚的商業(yè)銀行之一，是一家快速增長并具有強(qiáng)大綜合競爭力的全國性商業(yè)銀行。改名體現(xiàn)了中信銀行走向國際資本市場的姿態(tài)。

原注冊名稱“廣東發(fā)展銀行股份有限公司”更改為“廣發(fā)銀行股份有限公司”1988年9月，經(jīng)國務(wù)院和中國人民銀行批準(zhǔn)，廣東發(fā)展銀行作為中國金融體制改革的試點(diǎn)銀行而成立，為廣東經(jīng)濟(jì)特區(qū)的發(fā)展做出了巨大貢獻(xiàn)。隨著改革開放的深化，中部經(jīng)濟(jì)崛起，為擺脫地域銀行形象，經(jīng)過股份制改革的它更名為廣發(fā)銀行。體現(xiàn)了它邁向全國，一流商業(yè)銀行?的品牌形象和定位?，F(xiàn)在的它與全球83個(gè)國家和地區(qū)的917家銀行建立了代理行關(guān)系，初步形成了城市化大商業(yè)銀行的格局。根據(jù)英國《銀行家》雜志對全球1000家大銀行排定的位次，廣東發(fā)展銀行連續(xù)四年入選全球銀行500強(qiáng)。

同廣發(fā)銀行類似，2003年3月4日福建興業(yè)銀行正式更名為興業(yè)銀行。這標(biāo)志著福建興業(yè)銀行已經(jīng)從福建走向全國；從形式上和實(shí)質(zhì)上都實(shí)現(xiàn)從地方銀行、區(qū)域銀行、全國銀行到上市銀行的四級跨越。

更名以求地域突破。上世紀(jì)90年代，除上海銀行外，城市商業(yè)銀行均采用“所在城市名稱”+“市商業(yè)銀行”的命名模式，這一命名充分顯現(xiàn)出城商行的地方銀行色彩?；谕黄平?jīng)營地域的考慮，直接去掉“市商業(yè)”三個(gè)字，如寧波銀行；聯(lián)合成為省級城商行后，以省份名稱命名，如江蘇銀行；引入 外資仍在持續(xù)。借此加快向現(xiàn)代商業(yè)銀行轉(zhuǎn)變的步伐。同時(shí)，外資銀行對快速進(jìn)入中國市場又有著強(qiáng)烈沖動，而參股投資現(xiàn)有中小金融機(jī)構(gòu)無疑是最佳選擇。如2007年青島市商業(yè)銀行成功引入意大利聯(lián)合圣保羅銀行資本，成都市商業(yè)銀行引入馬來西亞豐隆銀行資本，而從目前情況來看，城商行引入外資態(tài)勢仍將延續(xù)。

由此可見，經(jīng)濟(jì)形勢發(fā)展?fàn)顩r可以從銀行改名中窺見一二。事實(shí)上，我國銀行的發(fā)展也反映了改革開放以來經(jīng)濟(jì)的穩(wěn)步增長。

第三篇：(參考樣本)工會更改名稱批文

（工會更改名稱批文參考樣本）

工會文件

工字?200 ?號

關(guān)于公司工會更改名稱的批復(fù)

公司工會委員會：

《關(guān)于廠工會更名為公司工會的報(bào)告》（工?200? 號）收悉。鑒于“廠”已更名為“公司”，經(jīng)研究，批復(fù)如下：

一、同意“廠工會委員會”更名為“公司工會委員會”。

二、同意“廠工會經(jīng)費(fèi)審查委員會”更名為“公司工會經(jīng)費(fèi)審查委員會”。

更名后，原工會委員會主席、副主席、委員和原經(jīng)費(fèi)審查委員會主任、副主任、委員也隨之更改稱謂。

此復(fù)。

集團(tuán)公司工會委員會

年月日

主題詞：工會名稱更改批復(fù)

抄送：公司黨委

第四篇：EXCEL VBA工作表操作全能方法小結(jié)

EXCEL VBA工作表操作全能方法小結(jié)

[示例04-01]增加工作表(Add方法)Sub AddWorksheet()MsgBox “在當(dāng)前工作簿中添加一個(gè)工作表” Worksheets.Add MsgBox “在當(dāng)前工作簿中的工作表sheet2之前添加一個(gè)工作表” Worksheets.Add before:=Worksheets(“sheet2”)MsgBox “在當(dāng)前工作簿中的工作表sheet2之后添加一個(gè)工作表” Worksheets.Add after:=Worksheets(“sheet2”)MsgBox “在當(dāng)前工作簿中添加3個(gè)工作表” Worksheets.Add Count:=3 End Sub 示例說明：Add方法帶有4個(gè)可選的參數(shù)，其中參數(shù)Before和參數(shù)After指定所增加的工作表的位置，但兩個(gè)參數(shù)只能選一；參數(shù)Count用來指定增加的工作表數(shù)目。

------------------[示例04-02]復(fù)制工作表(Copy方法)Sub CopyWorksheet()MsgBox “在當(dāng)前工作簿中復(fù)制工作表sheet1并將所復(fù)制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).Copy Before:=Worksheets(“sheet2”)MsgBox “在當(dāng)前工作簿中復(fù)制工作表sheet2并將所復(fù)制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).Copy After:=Worksheets(“sheet3”)End Sub 示例說明：Copy方法帶有2個(gè)可選的參數(shù)，即參數(shù)Before和參數(shù)After，在使用時(shí)兩個(gè)參數(shù)只參選一。

------------------[示例04-03]移動工作表(Move方法)Sub MoveWorksheet()MsgBox “在當(dāng)前工作簿中將工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).Move Before:=Worksheets(“sheet2”)MsgBox “在當(dāng)前工作簿中將工作表sheet1移至最后” Worksheets(“sheet1”).Move After:=Worksheets(Worksheets.Count)End Sub 示例說明：Move方法與Copy方法的參數(shù)相同，作用也一樣。

------------------[示例04-04]隱藏和顯示工作表(Visible屬性)[示例04-04-01] Sub testHide()MsgBox “第一次隱藏工作表sheet1” Worksheets(“sheet1”).Visible = False MsgBox “顯示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第二次隱藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “顯示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第三次隱藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “顯示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible MsgBox “第四隱藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “顯示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第五隱藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “顯示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible End Sub 示例說明：本示例演示了隱藏和顯示工作表的各種情形。其中，使用xlSheetVeryHidden常量來隱藏工作表，將不能通過選擇工作表菜單欄中的“格式”——“工作表”——“取消隱藏”命令來取消隱藏。

------------------[示例04-04-02] Sub ShowAllSheets()MsgBox “使當(dāng)前工作簿中的所有工作表都顯示(即將隱藏的工作表也顯示)” Dim ws As Worksheet For Each ws In Sheets ws.Visible = True Next ws End Sub

------------------[示例04-05]獲取工作表數(shù)(Count屬性)[示例04-05-01] Sub WorksheetNum()Dim i As Long i = Worksheets.Count MsgBox “當(dāng)前工作簿的工作表數(shù)為：” & Chr(10)& i End Sub

------------------[示例04-05-02] Sub WorksheetNum()Dim i As Long i = Sheets.Count MsgBox “當(dāng)前工作簿的工作表數(shù)為：” & Chr(10)& i End Sub 示例說明：在一個(gè)包含圖表工作表的工作簿中運(yùn)行上述兩段代碼，將會得出不同的結(jié)果，原因是對于Sheets集合來講，工作表包含圖表工作表。應(yīng)注意Worksheets集合與Sheets集合的區(qū)別，下同。

------------------[示例04-06]獲取或設(shè)置工作表名稱(Name屬性)[示例04-06-01] Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).Name MsgBox “當(dāng)前工作簿中第2個(gè)工作表的名字為：” & sName sChangeName = “我的工作表” MsgBox “將當(dāng)前工作簿中的第3個(gè)工作表名改為：” & sChangeName Worksheets(3).Name = sChangeName End Sub 示例說明：使用Name屬性可以獲取指定工作表的名稱，也可以設(shè)置工作表的名稱。

------------------[示例04-06-02]重命名工作表 Sub ReNameSheet()Dim xStr As String Retry: Err.Clear xStr = InputBox(“請輸入工作表的新名稱:” _ , “重命名工作表”, ActiveSheet.Name)If xStr = “" Then Exit Sub On Error Resume Next ActiveSheet.Name = xStr If Err.Number <> 0 Then MsgBox Err.Number & ” “ & Err.Description Err.Clear GoTo Retry End If On Error GoTo 0 '.........End Sub

------------------[NextPage][示例04-07]激活/選擇工作表(Activate方法和Select方法)[示例04-07-01] Sub SelectWorksheet()MsgBox ”激活當(dāng)前工作簿中的工作表sheet2“ Worksheets(”sheet2“).Activate MsgBox ”激活當(dāng)前工作簿中的工作表sheet3“ Worksheets(”sheet3“).Select MsgBox ”同時(shí)選擇工作簿中的工作表sheet2和sheet3“ Worksheets(Array(”sheet2“, ”sheet3“)).Select End Sub 示例說明：Activate方法只能激活一個(gè)工作表，而Select方法可以同時(shí)選擇多個(gè)工作表。

------------------[示例04-07-02] Sub SelectManySheet()MsgBox ”選取第一個(gè)和第三個(gè)工作表.“ Worksheets(1).Select Worksheets(3).Select False End Sub

------------------[示例04-08]獲取當(dāng)前工作表的索引號(Index屬性)Sub GetSheetIndex()Dim i As Long i = ActiveSheet.Index MsgBox ”您正使用的工作表索引號為“ & i End Sub

------------------[示例04-09]選取前一個(gè)工作表(Previous屬性)Sub PreviousSheet()If ActiveSheet.Index <> 1 Then MsgBox ”選取當(dāng)前工作簿中當(dāng)前工作表的前一個(gè)工作表“ ActiveSheet.Previous.Activate Else MsgBox ”已到第一個(gè)工作表“ End If End Sub 示例說明：如果當(dāng)前工作表是第一個(gè)工作表，則使用Previous屬性會出錯。

------------------[示例04-10]選取下一個(gè)工作表(Next屬性)Sub NextSheet()If ActiveSheet.Index <> Worksheets.Count Then MsgBox ”選取當(dāng)前工作簿中當(dāng)前工作表的下一個(gè)工作表“ ActiveSheet.Next.Activate Else MsgBox “已到最后一個(gè)工作表” End If End Sub 示例說明：如果當(dāng)前工作表是最后一個(gè)工作表，則使用Next屬性會出錯。

------------------[示例04-11]工作表行和列的操作 [示例04-11-01]隱藏行 Sub HideRow()Dim iRow As Long MsgBox ”隱藏當(dāng)前單元格所在的行“ iRow = ActiveCell.Row ActiveSheet.Rows(iRow).Hidden = True MsgBox ”取消隱藏“ ActiveSheet.Rows(iRow).Hidden = False End Sub

------------------[示例04-11-02]隱藏列 Sub HideColumn()Dim iColumn As Long MsgBox ”隱藏當(dāng)前單元格所在列“ iColumn = ActiveCell.Column ActiveSheet.Columns(iColumn).Hidden = True MsgBox ”取消隱藏“ ActiveSheet.Columns(iColumn).Hidden = False End Sub

------------------[示例04-11-03]插入行 Sub InsertRow()Dim rRow As Long MsgBox ”在當(dāng)前單元格上方插入一行“ rRow = Selection.Row ActiveSheet.Rows(rRow).Insert End Sub

------------------[示例04-11-04]插入列 Sub InsertColumn()Dim cColumn As Long MsgBox ”在當(dāng)前單元格所在行的左邊插入一行“ cColumn = Selection.Column ActiveSheet.Columns(cColumn).Insert End Sub

------------------[示例04-11-05]插入多行 Sub InsertManyRow()MsgBox ”在當(dāng)前單元格所在行上方插入三行“ Dim rRow As Long, i As Long For i = 1 To 3 rRow = Selection.Row ActiveSheet.Rows(rRow).Insert Next i End Sub

------------------[示例04-11-06]設(shè)置行高 Sub SetRowHeight()MsgBox ”將當(dāng)前單元格所在的行高設(shè)置為25“ Dim rRow As Long, iRow As Long rRow = ActiveCell.Row iRow = ActiveSheet.Rows(rRow).RowHeight ActiveSheet.Rows(rRow).RowHeight = 25 MsgBox ”恢復(fù)到原來的行高“ ActiveSheet.Rows(rRow).RowHeight = iRow End Sub

------------------[示例04-11-07]設(shè)置列寬 Sub SetColumnWidth()MsgBox ”將當(dāng)前單元格所在列的列寬設(shè)置為20“ Dim cColumn As Long, iColumn As Long cColumn = ActiveCell.Column iColumn = ActiveSheet.Columns(cColumn).ColumnWidth ActiveSheet.Columns(cColumn).ColumnWidth = 20 MsgBox ”恢復(fù)至原來的列寬“ ActiveSheet.Columns(cColumn).ColumnWidth = iColumn End Sub

------------------[示例04-11-08]恢復(fù)行高列寬至標(biāo)準(zhǔn)值 Sub ReSetRowHeightAndColumnWidth()MsgBox ”將當(dāng)前單元格所在的行高和列寬恢復(fù)為標(biāo)準(zhǔn)值“ Selection.UseStandardHeight = True Selection.UseStandardWidth = True End Sub

------------------[示例04-12]工作表標(biāo)簽

[示例04-12-01] 設(shè)置工作表標(biāo)簽的顏色 Sub SetSheetTabColor()MsgBox ”設(shè)置當(dāng)前工作表標(biāo)簽的顏色“ ActiveSheet.Tab.ColorIndex = 7 End Sub

------------------[示例04-12-01]恢復(fù)工作表標(biāo)簽顏色 Sub SetSheetTabColorDefault()MsgBox ”將當(dāng)前工作表標(biāo)簽顏色設(shè)置為默認(rèn)值“ ActiveSheet.Tab.ColorIndex =-4142 End Sub

------------------[示例04-12-03]交替隱藏或顯示工作表標(biāo)簽 Sub HideOrShowSheetTab()MsgBox ”隱藏/顯示工作表標(biāo)簽“ ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub------------------[NextPage][示例04-13]確定打印的頁數(shù)(HPageBreaks屬性與VPageBreaks屬性)Sub PageCount()Dim i As Long i =(ActiveSheet.HPageBreaks.Count + 1)*(ActiveSheet.VPageBreaks.Count + 1)MsgBox ”當(dāng)前工作表共“ & i & ”頁.“ End Sub

------------------[示例04-14]保護(hù)/撤銷保護(hù)工作表 [示例04-14-01] Sub ProtectSheet()MsgBox ”保護(hù)當(dāng)前工作表并設(shè)定密碼“ ActiveSheet.Protect Password:=”fanjy“ End Sub 示例說明：運(yùn)行代碼后，當(dāng)前工作表中將不允許編輯，除非撤銷工作表保護(hù)。

------------------[示例04-14-02] Sub UnprotectSheet()MsgBox ”撤銷當(dāng)前工作表保護(hù)“ ActiveSheet.Unprotect End Sub 示例說明：運(yùn)行代碼后，如果原保護(hù)的工作表設(shè)置有密碼，則要求輸入密碼。

------------------[示例04-14-03]保護(hù)當(dāng)前工作簿中的所有工作表 Sub ProtectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”請輸入您的密碼“ & vbCrLf & _ ”(不輸入表明無密碼)“ & vbCrLf & vbCrLf & _ ”確保您沒有忘記密碼！“, ”輸入密碼“)For Each ws In ThisWorkbook.Worksheets ws.Protect(myPassword)Next ws End Sub

------------------[示例04-14-04]撤銷對當(dāng)前工作簿中所有工作表的保護(hù) Sub UnprotectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”請輸入您的密碼“ & vbCrLf & _ ”(不輸入表示無密碼)“, ”輸入密碼“)For Each ws In ThisWorkbook.Worksheets ws.Unprotect(myPassword)Next ws End Sub

------------------[示例04-14-05]僅能編輯未鎖定的單元格 Sub OnlyEditUnlockedCells()Sheets(”Sheet1“).EnableSelection = xlUnlockedCells ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub 示例說明：運(yùn)行本代碼后，在當(dāng)前工作表中將只能對未鎖定的單元格進(jìn)行編輯，而其它單元格將不能編輯。未鎖定的單元格是指在選擇菜單“格式——單元格”命令后所彈出的對話框中的“保護(hù)”選項(xiàng)卡中，未選中“鎖定”復(fù)選框的單元格或單元格區(qū)域。

------------------[示例04-15]刪除工作表(Delete方法)Sub DeleteWorksheet()MsgBox ”刪除當(dāng)前工作簿中的工作表sheet2“ Application.DisplayAlerts = False Worksheets(”sheet2").Delete Application.DisplayAlerts = True End Sub

第五篇：EXCEL VBA工作表操作全能方法小結(jié)

EXCELVBA工作表操作全能方法小結(jié)

[示例04-01]增加工作表(Add方法)SubAddWorksheet()MsgBox“在當(dāng)前工作簿中添加一個(gè)工作表” Worksheets.Add MsgBox“在當(dāng)前工作簿中的工作表sheet2之前添加一個(gè)工作表” Worksheets.Addbefore:=Worksheets(“sheet2”)MsgBox“在當(dāng)前工作簿中的工作表sheet2之后添加一個(gè)工作表” Worksheets.Addafter:=Worksheets(“sheet2”)MsgBox“在當(dāng)前工作簿中添加3個(gè)工作表” Worksheets.AddCount:=3 EndSub

示例說明：Add方法帶有4個(gè)可選的參數(shù)，其中參數(shù)Before和參數(shù)After 指定所增加的工作表的位置，但兩個(gè)參數(shù)只能選一；參數(shù)Count用來指定增加的工作表數(shù)目。

[示例04-02]復(fù)制工作表(Copy方法)SubCopyWorksheet()MsgBox“在當(dāng)前工作簿中復(fù)制工作表sheet1并將所復(fù)制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).CopyBefore:=Worksheets(“sheet2”)MsgBox“在當(dāng)前工作簿中復(fù)制工作表sheet2并將所復(fù)制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).CopyAfter:=Worksheets(“sheet3”)EndSub

示例說明：

Copy方法帶有2個(gè)可選的參數(shù)，即參數(shù)Before和參數(shù)After，在使用時(shí)兩個(gè)參數(shù)只參選一。

[示例04-03]移動工作表(Move方法)SubMoveWorksheet()MsgBox“在當(dāng)前工作簿中將工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).MoveBefore:=Worksheets(“sheet2”)MsgBox“在當(dāng)前工作簿中將工作表sheet1移至最后” Worksheets(“sheet1”).MoveAfter:=Worksheets(Worksheets.Count)End Sub

示例說明：

Move方法與Copy方法的參數(shù)相同，作用也一樣。

示例【04-04】隱藏和顯示工作表(Visible屬性)[示例04-04-01] SubtestHide()MsgBox“第一次隱藏工作表sheet1” Worksheets(“sheet1”).Visible=False MsgBox“顯示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第二次隱藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“顯示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第三次隱藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“顯示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible MsgBox“第四隱藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“顯示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第五隱藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“顯示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible EndSub 示例說明：本示例演示了隱藏和顯示工作表的各種情形。其中，使用

xlSheetVeryHidden常量來隱藏工作表，將不能通過選擇工作表菜單欄中的“格式”——“工作表”——“取消隱藏”命令來取消隱藏。[示例04-04-02] SubShowAllSheets()MsgBox“使當(dāng)前工作簿中的所有工作表都顯示(即將隱藏的工作表也顯示)” DimwsAsWorksheet For Each wsIn Sheets ws.Visible=True Next ws End Sub

[示例04-05] 獲取工作表數(shù)(Count屬性)[示例04-05-01] SubWorksheetNum()Dim IAs Long i=Worksheets.Count MsgBox“當(dāng)前工作簿的工作表數(shù)為：”&Chr(10)&i EndSub

[示例04-05-02] Sub WorksheetNum()Dim IAs Long i=Sheets.Count MsgBox“當(dāng)前工作簿的工作表數(shù)為：”&Chr(10)&i End Sub

示例說明：在一個(gè)包含圖表工作表的工作簿中運(yùn)行上述兩段代碼，將會得出不同的結(jié)果，原因是對于Sheets集合來講，工作表包含圖表工作表。應(yīng)注意Worksheets集合與Sheets集合的區(qū)別，下同。

示例04-06]獲取或設(shè)置工作表名稱(Name屬性)[示例04-06-01] SubNameWorksheet()DimsNameAsString,sChangeNameAsString sName=Worksheets(2).Name MsgBox“ 當(dāng)前工作簿中第

2個(gè)工作表的名字為：”&sNamesChangeName=“我的工作表 ”MsgBox“將當(dāng)前工作簿中的第3個(gè)工作表名改為：”&sChangeName Worksheets(3).Name=sChangeName EndSub 示例說明：使用Name屬性可以獲取指定工作表的名稱，也可以設(shè)置工作表的名稱。