課工作表與圖形對(duì)象引用

115.02CellsRange對(duì)象一樣。VBA操作的對(duì)象通常都是工作表，4.05.0對(duì)話框已淘汰多年Chart對(duì)象)WorksheetsSheets使用。Sub表對(duì)象與工作表對(duì)象數(shù)量MsgBox表對(duì)象數(shù)量&Sheets.Count&Chr(13&工作表對(duì)象數(shù)量&EndExcelVBAExcelExcelExcelExcelVBAExcelExcelExcel包含工作表)、Excel軟件等等,不能將各種概念混淆。例如下圖是工作表，也可以稱之為文件，Excel軟件。34工作簿由多個(gè)工作表組成，它是一個(gè)單獨(dú)的文件。百度百科關(guān)于工作簿的解釋是錯(cuò)誤255255個(gè)，但是可以多次創(chuàng)建。一個(gè)工作簿能存放的工作表數(shù)量是沒(méi)有限制的，不過(guò)電腦的內(nèi)存資源有限，因此可以利用代碼無(wú)限地創(chuàng)建新工作表，直到你的電腦承受不起為止。3004255個(gè)，因此可以創(chuàng)建成功(誤Excel軟件->ExcelExcel軟件不會(huì)影響你的工作簿、工作表，OFFICE404040個(gè)工作將“生產(chǎn)表.xlsExcelExcelSub新建工作表()Worksheets.AddCount:=255Worksheets.AddCount:=255Worksheets.AddCount:=255Worksheets.AddEndSub新建工作表Worksheets.Add,Count:=300EndSub 能隱藏、顯示或者刪除、新建，只有工作簿可以關(guān)閉，Excel18.2單個(gè)工作表對(duì)象的引用方式 能隱藏、顯示或者刪除、新建，只有工作簿可以關(guān)閉，Excel18.2單個(gè)工作表對(duì)象的引用方式1.如果工作表名稱在A1單元格中，那么引用A1的值所代表的工作表可用5刪除A1注意：變量前后不能添加引號(hào)，否則不再具備變量的功能。例如上面的代碼集合，只有復(fù)數(shù)的對(duì)象才擁有子對(duì)象。Worksheet只是工作表的類別名稱，它沒(méi)有子對(duì)象。Sub刪除工作表()'功能：刪除變量指定的工作表DimShtNameAsString'聲明一個(gè)String型的變量ShtName="生產(chǎn)表" Worksheets(ShtName).Delete'刪除工作表EndWorksheets生產(chǎn)表2.Worksheets的參數(shù)的一種引2.Worksheets的參數(shù)的一種引6Worksheets(1)代表Sheet3，Worksheets2)Sheet1，Worksheets3)代表生產(chǎn)表。313，47Worksheets.count33個(gè)工作表。Subtest2() '功能：獲取第2個(gè)工作表的名稱DimShtIndexAsString'聲明一個(gè)變量ShtIndex=2 '對(duì)變量賦值為2'EndSubtest() '功能：獲取第2個(gè)工作表的名稱DimShtIndexAsByte'聲明一個(gè)Byte型的變量ShtIndex=2 '對(duì)變量賦值為2'End")orksheets(2)稱中不包含“2")orksheets(2)稱中不包含“2”(2代表工作表名稱，而不是順序)。A18移動(dòng)A12008是數(shù)值，VBA將它當(dāng)成順序，2008個(gè)工作表，因此出錯(cuò)。Cstr2008String18.3引用活動(dòng)工作表ActiveSheet表示，每個(gè)工作簿都擁有一個(gè)活動(dòng)工作表。ActiveSheet.Range("a1")—>A1Range18.4在循環(huán)語(yǔ)句中引用工作表Sub工作表批量命名Worksheets.AddCount:=44DimshtAsWorksheet ForEachshtInWorksheets'遍歷所有工作表sht.NameFormat(sht.Index"AAAA"逐一以中文的星期命名NextshtEndSub 'A1Worksheets(CStr(Range("a1"))).Movebefore:=Worksheets(1)EndSubSub 'A1Worksheets(Range("a1")&"").Movebefore:=Worksheets(1)EndSubSub 'A1Worksheets(Range("a1")).Movebefore:=Worksheets(1)EndSub9sht.IndexIndex19sht.IndexIndex1，而Format(sht.Index,"AAAA")190011日是星期幾(星期日)。10411Sub合并工作簿DimItemAsByte,shtAsWorksheet'ShtSetshtWorksheets.Add(after:=Worksheets(Worksheets.Count))Sub工作表批量命名DimItemAs '聲明一個(gè)ByteForItem1To '1'item個(gè)工作表命名，名字來(lái)源為A列第ItemWorksheets(Item).Name=Cells(Item,1).ValueNextshtEnd4551745517課的知識(shí)——OffsetIntersect.18.5跨工作簿引用工作表.xls.xls中都存在“6月”工作表。那么引用“生產(chǎn)部.xls6月工作表應(yīng)按以下方式編寫(xiě)代碼： 如果要引用“財(cái)務(wù)部.xls6 18.6Sub2()'DimItemAsByte,shtAsWorksheet,AsRange'聲明兩個(gè)變量'ShtSetsht=ForItem1To4'144'Setsht.UsedRange.Offset(sht.UsedRange.Rows.Count).Cells(1)IfItem=1Then'如果是復(fù)制第一個(gè)工作表的內(nèi)容Worksheets(Item).UsedRange.Copy目標(biāo)單元格'復(fù)制已用區(qū)域(包含標(biāo)題)Else'只復(fù)制正文，排除了標(biāo)題行Offset(1,0)表示向下偏移一行，排除了標(biāo)題Intersect(Worksheets(Item).UsedRange,Worksheets(Item).UsedRange.Offset(1,0)).Copy目標(biāo)EndIfsht.Rows(1).Delete'EndForItem1To4144'將第ItemSht'End12131412131418.7工作表的幾個(gè)案例應(yīng)用Visible屬性表代表工作表的顯示狀態(tài)，包含三種可選項(xiàng)：15Sub隱藏Worksheets("配置表").VisiblexlSheetVeryHiddenEndSub2.VBA，不需要逐個(gè)添加超級(jí)鏈接，直接用Worksheet.Activate方法激活指定名稱的工作表即可。2.VBA，不需要逐個(gè)添加超級(jí)鏈接，直接用Worksheet.Activate方法激活指定名稱的工作表即可。10016100個(gè)工作表的任意工作表名A列中(VBA的循環(huán)語(yǔ)句完成)B1單元格創(chuàng)建數(shù)據(jù)有效性B1ASub打開(kāi)指定工作表OnErrorResumeNext'當(dāng)程序出錯(cuò)時(shí)，不彈出錯(cuò)誤提示W(wǎng)orksheets(ActiveCell.Value).Activate激活活動(dòng)單元格所指定的工作表EndSub顯示所有工作表DimItemAs 'IntegerForItem=1ToSheets.CountSheets(Item).VisiblexlSheetVisibleNextItemEndSubSub顯示W(wǎng)orksheets("配置表").VisibleEnd1717 18VBA提供了一個(gè)關(guān)閉提示的辦法——DisplayAlertsFalse，待操作完畢后再恢復(fù)提Sub刪除工作表Application.DisplayAlerts=False'關(guān)閉提示 Application.DisplayAlerts=True EndIfTarget.Address="$B$1"Then'如果被修改的單元格的址是B1Worksheets(Target.Value).ActivateB1的值指向的工作表EndEnd19DisplayAlertsFalse，合并完后19DisplayAlertsFalse，合并完后True。代碼如下：18.8圖形對(duì)象集合Shapes表示，代表工作表中的所有圖形對(duì)象。MsgBox 一個(gè)比較特殊的問(wèn)題點(diǎn)需要補(bǔ)充：ShapesDelete方“ActiveSheet.DrawingObjects.Delete”才可刪除活動(dòng)工作表中所有圖形對(duì)象。18.9引用單個(gè)圖形對(duì)象Shapes2")——2”的圖形對(duì)象Shapes(3)——3個(gè)圖形對(duì)象Sub合并單元格Application.DisplayAlerts=False'關(guān)閉提示 Application.DisplayAlerts=True End但是還是有一點(diǎn)需要詳述——Type“MsoShapeype也就是說(shuō)圖形對(duì)象統(tǒng)稱為字Sub只刪除圖片DimshpAsShape'聲明一個(gè)ShapeForEachshpInActiveSheet.Shapes遍歷所有圖形對(duì)象Ifshp.Type=msoPictureThenshp.DeleteNextshpEnd-但是還是有一