課工作表與圖形對象引用

115.02CellsRange對象一樣。VBA操作的對象通常都是工作表，4.05.0對話框已淘汰多年Chart對象)WorksheetsSheets使用。Sub表對象與工作表對象數(shù)量MsgBox表對象數(shù)量&Sheets.Count&Chr(13&工作表對象數(shù)量&EndExcelVBAExcelExcelExcelExcelVBAExcelExcelExcel包含工作表)、Excel軟件等等,不能將各種概念混淆。例如下圖是工作表，也可以稱之為文件，Excel軟件。34工作簿由多個工作表組成，它是一個單獨的文件。百度百科關(guān)于工作簿的解釋是錯誤255255個，但是可以多次創(chuàng)建。一個工作簿能存放的工作表數(shù)量是沒有限制的，不過電腦的內(nèi)存資源有限，因此可以利用代碼無限地創(chuàng)建新工作表，直到你的電腦承受不起為止。3004255個，因此可以創(chuàng)建成功(誤Excel軟件->ExcelExcel軟件不會影響你的工作簿、工作表，OFFICE404040個工作將“生產(chǎn)表.xlsExcelExcelSub新建工作表()Worksheets.AddCount:=255Worksheets.AddCount:=255Worksheets.AddCount:=255Worksheets.AddEndSub新建工作表Worksheets.Add,Count:=300EndSub 能隱藏、顯示或者刪除、新建，只有工作簿可以關(guān)閉，Excel18.2單個工作表對象的引用方式 能隱藏、顯示或者刪除、新建，只有工作簿可以關(guān)閉，Excel18.2單個工作表對象的引用方式1.如果工作表名稱在A1單元格中，那么引用A1的值所代表的工作表可用5刪除A1注意：變量前后不能添加引號，否則不再具備變量的功能。例如上面的代碼集合，只有復(fù)數(shù)的對象才擁有子對象。Worksheet只是工作表的類別名稱，它沒有子對象。Sub刪除工作表()'功能：刪除變量指定的工作表DimShtNameAsString'聲明一個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個工作表。Subtest2() '功能：獲取第2個工作表的名稱DimShtIndexAsString'聲明一個變量ShtIndex=2 '對變量賦值為2'EndSubtest() '功能：獲取第2個工作表的名稱DimShtIndexAsByte'聲明一個Byte型的變量ShtIndex=2 '對變量賦值為2'End")orksheets(2)稱中不包含“2")orksheets(2)稱中不包含“2”(2代表工作表名稱，而不是順序)。A18移動A12008是數(shù)值，VBA將它當(dāng)成順序，2008個工作表，因此出錯。Cstr2008String18.3引用活動工作表ActiveSheet表示，每個工作簿都擁有一個活動工作表。ActiveSheet.Range("a1")—>A1Range18.4在循環(huán)語句中引用工作表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 '聲明一個ByteForItem1To '1'item個工作表命名，名字來源為A列第ItemWorksheets(Item).Name=Cells(Item,1).ValueNextshtEnd4551745517課的知識——OffsetIntersect.18.5跨工作簿引用工作表.xls.xls中都存在“6月”工作表。那么引用“生產(chǎn)部.xls6月工作表應(yīng)按以下方式編寫代碼： 如果要引用“財務(wù)部.xls6 18.6Sub2()'DimItemAsByte,shtAsWorksheet,AsRange'聲明兩個變量'ShtSetsht=ForItem1To4'144'Setsht.UsedRange.Offset(sht.UsedRange.Rows.Count).Cells(1)IfItem=1Then'如果是復(fù)制第一個工作表的內(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工作表的幾個案例應(yīng)用Visible屬性表代表工作表的顯示狀態(tài)，包含三種可選項：15Sub隱藏Worksheets("配置表").VisiblexlSheetVeryHiddenEndSub2.VBA，不需要逐個添加超級鏈接，直接用Worksheet.Activate方法激活指定名稱的工作表即可。2.VBA，不需要逐個添加超級鏈接，直接用Worksheet.Activate方法激活指定名稱的工作表即可。10016100個工作表的任意工作表名A列中(VBA的循環(huán)語句完成)B1單元格創(chuàng)建數(shù)據(jù)有效性B1ASub打開指定工作表OnErrorResumeNext'當(dāng)程序出錯時，不彈出錯誤提示W(wǎng)orksheets(ActiveCell.Value).Activate激活活動單元格所指定的工作表EndSub顯示所有工作表DimItemAs 'IntegerForItem=1ToSheets.CountSheets(Item).VisiblexlSheetVisibleNextItemEndSubSub顯示W(wǎng)orksheets("配置表").VisibleEnd1717 18VBA提供了一個關(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圖形對象集合Shapes表示，代表工作表中的所有圖形對象。MsgBox 一個比較特殊的問題點需要補充：ShapesDelete方“ActiveSheet.DrawingObjects.Delete”才可刪除活動工作表中所有圖形對象。18.9引用單個圖形對象Shapes2")——2”的圖形對象Shapes(3)——3個圖形對象Sub合并單元格Application.DisplayAlerts=False'關(guān)閉提示 Application.DisplayAlerts=True End但是還是有一點需要詳述——Type“MsoShapeype也就是說圖形對象統(tǒng)稱為字Sub只刪除圖片DimshpAsShape'聲明一個ShapeForEachshpInActiveSheet.Shapes遍歷所有圖形對象Ifshp.Type=msoPictureThenshp.DeleteNextshpEnd-但是還是有一