EXCEL宏編程簡明教程

1、Excel宏編程簡明教程一)、宏學習首先需要明確的是，本文不可能教會您關于宏的所有內容。您需要學會利用"錄制宏"的方法來學習宏：點擊Excel"工具"下拉菜單中"宏"下？quot;錄制新宏“，此后可象平時一樣進行有關操作，待完成后停止錄制。然后再點擊"工具"下拉菜單中"宏"下"宏"的"編輯"選項即可打開剛才所錄制的宏的VisualBasic源程序，并且可以在此時的"幫助"下拉菜單中獲得有關的編程幫助。對錄制宏進行修改不僅可以學習宏的使用

2、，還能大大簡化宏的編寫。二)、基本概念為了學習Excel中的宏，我們需要先了解以下一些基本概念。1、工作簿：Workbooks>Workbook、ActiveWorkbook、ThisWorkbooks集合包含Excel中所有當前打開的Excel工作簿，亦即所有打開的Excel文件；Workbook對應Workbooks中的成員，即其中的Excel文件；ActiveWorkbook代表當前處于活動狀態(tài)的工作簿，即當前顯示的Excel文件；ThisWorkbook代表其中有VisualBasic代碼正在運行的工作簿。在具體使用中可用Workbooks(index)來引用Workbook對象

3、，其中index為工作簿名稱或編號；如Workbooks(1)、Workbooks("年度報表.xls")。而編號按照創(chuàng)建或打開工作簿的順序來確定，第一個打開的工作簿編號為1,第二個打開的工作簿為2,。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一個Excel文件中的所有數據表頁；而Worksheet則代表其中的一個工作表；ActiveSheet代表當前處于的活動狀態(tài)工作表，即當前顯示的一個工作表?？捎肳orksheets（index）來引用Worksheet對象，其中index為工作表名稱

4、或索引號；如Worksheets（1）、Worksheets（"第一季度數據"）。工作表索引號表明該工作表在工作表標簽中的位置：第一個（最左邊的）工作表的索引號為1,最后一個（最右邊的）為Worksheets.Count。需要注意的是：在使用過程中Excel會自動重排工作表索引號，保持按照其在工作表標簽中的從左至右排列，工作表的索引號遞增。因此，由于可能進行的工作表添加或刪除，工作表索引號不一定始終保持不變。3、圖表：Chart、Charts、ChartObject、ChartObjects、ActiveChart代表工作簿中的圖表。該圖表既可為嵌入式圖表（包含在Chart

5、Object中），也可為一個分開的（單獨的）圖表工作表。Charts代表指定工作簿或活動工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或對話框編輯表中的圖表。使用Charts（index刈引用單個Chart圖表，其中index是該圖表工作表的索引號或名稱；如Charts（1）、Charts。銷售圖表"）。圖表工作表的索引號表示圖表工作表在工作簿的工作表標簽欄上的位置。Charts（1）是工作簿中第一個（最左邊的）圖表工作表；Charts（Charts.Count為最后一個（最右邊的）圖表工作表。ChartObject代表工作表中的嵌入式圖表，其作用是作為Chart對象的容器。利

6、用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。ChartObjects代表指定的圖表工作表、對話框編輯表或工作表上所有嵌入式圖表的集合?？捎蒀hartObjects（index）!H用單個ChartObject,其中index為嵌入式圖表的編號或名稱。如Worksheets（"Sheet1"）.ChartObjects、Worksheets("sheet1").ChartObjects("chart1")分別對應"Sheetl”工作表中的第一個嵌入式圖表、以及名為"Chartl"的嵌入式

7、圖表。ActiveChart可以引用活動狀態(tài)下的圖表，不論該圖表是圖表工作表，或嵌入式圖表。而對于圖表工作表為活動工作表時，還可以通過ActiveSheet屬性引用之。4、單元格：Cells、ActiveCell、RangaAreasCells(row,column)代表單個單元格，其中row為行號，column為列號。如可以用Cells(1,1)Cells(10,4來引用"A1"、"D10"單元格。ActiveCell代表活動工作表的活動單元格，或指定工作表的活動單元格。Range代表工作表中的某一單元格、某一行、某一列、某一選定區(qū)域(該選定區(qū)域可包含

8、一個或若干連續(xù)單元格區(qū)域)或者某一三維區(qū)域?？捎肦ange(arg來引用單元格或單元格區(qū)域，其中arg可為單元格號、單元格號范圍、單元格區(qū)域名稱。如Range("A5)Range("A1:H8">Range("Criteria")。雖然可用Range("A1"兩回單元格A1,但用Cells更方便，因為此時可用變量指定行和列。可將Range與Cells結合起來使用，如Range(Cells(1,1),Cells(10,1哦表單元格區(qū)域"A1:J10"而expression.Cells(row,colu

9、mn返回單元格區(qū)域中的一部分，其中expression是返回Range的表達式，row和column為相對于該區(qū)域的左上角偏移量。如由Range("C5:C10").Cells(1,創(chuàng)用單元格C5?！盇reas為選定區(qū)域內的連續(xù)單元格塊的集合，其成員是Range對象。而其中的每個Range對象代表選定區(qū)域內與其它部分相分離的一個連續(xù)單元格塊。某些操作不能在選定區(qū)域內的多個單元格塊上同時執(zhí)行；必須在選定區(qū)域內的單元格塊數Areas.Count上循環(huán)，對每個單獨的單元格塊分別執(zhí)行該操作。此時，可用Areas(index)R集合中返回單個Range對象，其中index為單元格塊編

10、號；如Areas(1)5、”行與歹U:Rows、Columns、Row、ColumnRows、Columns分別代表活動工作表、單元格區(qū)域范圍Ranges指定工作表中的所有行數、列數。對于一個多選單元格區(qū)域范圍Range的Rows、Columns,只返回該范圍中第一個區(qū)域白行數、列數。例如，如果Range對象有兩個區(qū)域(areas)A1:B2和C3:D4,Rows.Count返回2而不是4。”可通過Rows。亍號)、Columns例J號)來引用相應的行與列；如Rows(3)、Columns(4)分別對應第三行、D列。利用Rows、Column可以獲得區(qū)域中第一塊的第一行行號、第一列列號，所得值

11、均以十進制數表示。三)、處理單元格1、直接賦值與引用將變量、常量值直接賦給單元格、或將單元格的值直接賦給變量、常量，這是在Excel中最簡單的單元格賦值及引用方法。如下例將工作表"Sheet1"A1單元格的值賦給Integer變量I,并將I+1的值賦給當前工作表中的B1單元格：DimIAsIntegerI=Worksheets("Sheet1").Cells(1,1)Cells(1,2).Select選定B1單元格，使其成為當前單元格ActiveCell=I+1以I+1為當前單元格賦值2、用公式賦值在宏的使用中，可能會更多地用公式來給單元格賦值。如下例將

12、相對于活動單元格左側第4歹h向上第6行至向上第2行的單元格數值平均值賦給活動單元格(以本行、本列為第0行、0列)：ActiveCell.Formula="=AVERAGE(R-6C-4:R-2C-4)"3、引用其它工作表中的單元格當賦值公式中需要引用其它工作表中的單元格時，在被引用的單元格前加上"工作表名！"即可。如以下即在賦值中引用了"Sheet1"工作表中的A1至A4單元格：Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)”但需注意的是：當被引用的工作表名中含有

13、某些可能引起公式歧義的字符時，需要用單引號將工作表名括起來。如：Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)”4、引用其它工作簿中的單元格在被引用單元格所在工作表名前加上"工作簿名",即可引用其它工作簿中的單元格。如：ActiveCell.Formula="=MAX(Book1."xlsSheet3!R1C:RC4)"同樣需注意的是：當被引用的工作簿名中含有某些可能引起公式歧義的字符時，需要用中括號""、

14、""及單引號將工作簿名括起來。如：Cells(1,2).Formula="=MIN('1995-2000總結.xls1995-1996年'!$A$1:$A$6)”5、避免循環(huán)引用在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止循環(huán)引用錯誤。6、添加批注可按如下方法格給單元格添加批注：Dim批注文本AsString批注文本="批注示例"'準備批注文本ActiveCell.AddComment添加批注ActiveCell.Comment.TextText:=臨時'寫入批注文本ActiveCell.Comm

15、ent.Visible=False隱藏批注7、添加、刪除、復制、剪切、粘貼單元格Range("D10").InsertShift:=xlToRight在D10單元格處添加一新單元格，原D10格右移Range("C2").InsertShift:=xlDown'在C2單元格處添加一新單元格，原C2格下移Rows(2) .EntireRow.Insert'在第2行前添加一空白行，原第2行下移Columns(3) .EntireColumn.Insert在C列前添加一空白列，原C列右移Columns("A:D").Delet

16、eShift:=xlToLeft刪除A列至D列，其右側列左移Rows("3:5").DeleteShift:=xlUp刪除第3行至第5行，其下方行上移Range("B2").EntireRow.Delete'刪除第2行Range("C4").EntireColumn.Delete刪除C列Range("B10:C13").Copy復制B10至C13單元格區(qū)域Cells(1,2).Cut剪切B1單元格Range("D10").SelectActiveSheet.Paste自D10單元格起粘貼

17、剪貼板中的內容四卜圖表1、工作表圖表以下為一添加工作表圖表的實例。Charts.Addafter:=Worksheets("Sheet1")'在"Sheet1”工作表之后添加新圖表工作表ActiveChart.ChartType=xlXYScatterSmooth圖表類型為XY平滑線散點圖ActiveChart.SetSourceDataSource:=Sheets(，結點坐標").Range("A1:B69"),PlotBy:xlColumns'圖表數據來源于“結點坐標”工作表的A1至B69單元格，且按列繪圖。Act

18、iveChart.LocationWhere:=xlLocationAsNewSheetWithActiveChart.HasTitle=True.ChartTitle.Characters.Text=節(jié)點坐標"'圖表標題"節(jié)點坐標".Axes(xlCategory,xlPrimary).HasTitle=True.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text="x"'軸標題"x".Axes(xlValue,xlPrimary).HasTitle=T

19、rue.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text="y"'y由標題"y"EndWithWithActiveChart.Axes(xlCategory).HasMajorGridlines=True顯示x軸主網格線，默認情況下為顯示.HasMinorGridlines=True顯示x軸次網格線，默認情況下為不顯示EndWithWithActiveChart.Axes(xlValue).HasMajorGridlines=True標出x軸主網格值，默認情況下為標注.HasMinorGridli

20、nes=False取消x軸次網格值標注，默認情況下為不標注EndWithActiveChart.Legend.Position=xlRight圖例顯示在圖表右側2、”嵌入式圖表嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同，而對圖表的設置基本類似。詳見下例。Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300在當前工作表(0,0)坐標處添加寬200,高300的嵌入式圖表嵌入表.Chart.ChartType=xlColumnClustered圖表類型為簇狀柱形圖嵌入表.Chart.SetSourceDataSource:=Sheets(1).R

21、ange("A2:B2"),PlotBy:=xlRows設置圖表數據來源With嵌入表.Chart.HasTitle=False無圖表標題.Axes(xlCategory,xlPrimary).HasTitle=FalseSx軸標題.Axes(xlValue,xlPrimary).HasTitle=False無y軸標題EndWith五)、工作表1、添加Sheets.Addbefore:=Sheets(1)'在第1工作表前添加新工作表Sheets.Addafter:=Sheets(Sheets.Count)在最后工作表后添加新工作表2、移動ActiveSheet.Mo

22、vebefore:=Sheets(2)'將當前工作表移動至第2工作表之前3、命名ActiveSheet.Name=，工作表名”將當前工作表命名為"工作表名"4、刪除可以用以下語句刪除當前工作表。ActiveSheet.Delete但在刪除前Excel會自動彈出提示框，需在用戶確認后方可執(zhí)行刪除。為避免這一干擾，可以先用以下語句關閉Excel的警告提示。Application.DisplayAlerts=False在刪除完成后，再重新打開Excel的警告提示Application.DisplayAlerts=True六）、工作簿Excel的宏對工作簿的操作主要為保存。

23、Dim存盤文件名AsStringActiveWorkbook.Save保存當前工作簿存盤文件名="工作表名"ActiveWorkbook.SaveAsFilename:=存盤文件名當前工作簿另存為"工作表名.xls"在另存時，若指定的存盤文件名不包含路徑，則保存在該工作簿的打開目錄下。而若此存盤文件已存在，也可用關閉Excel警告提示的方法以免其自動彈出提示框。64、”用過VB的人都應該知道如何聲明變量，在VBA中聲明變量和VB中是完全一樣的！使用Dim語句Dimaasinteger'聲明A為整形變量DimaDimaasstringDima,b,

24、cascurrency聲明變量可以是：'聲明A為字符串變量'聲明A,b,c為貨幣變量'聲明A為變體變量Byte、Boolean、Integer、Long、Currency、SingleDouble、Decimal（當前不支持）、Date、String（只限變長字符串）、String*length（定長字符串）、Object、Variant、用戶定義類型或對象類型。強制聲明變量OptionExplicit說明：該語句必在任何過程之前出現(xiàn)在模塊中聲明常數，用來代替文字值。Const'常數的默認狀態(tài)是PrivateoConstMy=456'聲明Public常數

25、。PublicConstMyString="HELP"'聲明PrivateInteger常數。PrivateConstMyIntAsInteger=5'在同一行里聲明多個常數。ConstMyStr="Hello",MyDoubleAsDouble=3.“4567在EXCEL9井，有一個十分好的功能，他就是把鼠標放置在一個有效數據單元格中，執(zhí)行該段代碼，你就可以將連在一起的一片數據全部選中。只要將該段代碼加入到你的模塊中。SubMy_SelectSelection.CurrentRegion.SelectEndsub刪除當前單元格中數據的前

26、后空格。submy_trimTrim(ActiveCell.Value)endsub使單元格位移submy_offsetActiveCell.Offset(0,1).Selec陷前單元格向左移動一格ActiveCell.Offset(0,-1).Selec陷前單元格向右移動一格ActiveCell.Offset(1,0).Select當前單元格向下移動一格ActiveCell.Offset(-1,0).Select當前單元格向上移動一格endsub如果上述程序產生錯誤那是因為單元格不能移動，為了解除上述錯誤，我們可以往submy_offset之下力口段代碼onerrorresumenext注意

27、以下代碼都不再添加sub代碼名稱”和endsub請自己添加！給當元格賦值：ActiveCell.Value='你好！”給特定單元格加入一段代碼例如：在A1單元格中插入"HELLO"Range("a1").value="hello"又如：你現(xiàn)在的工作簿在sheetl上，你要往sheet2的A1單元格中插入"HEL"1.sheets("sheet2").selectrange("a1").value="hello"或2."Sheets(&qu

28、ot;sheet1").Range("a1").Value="hello"說明：1.sheet2被打開，然后在將“HELLO入至UA1單元格中。2.sheet2不被打開，將“HELLO入到A1單元格中。隱藏工作表'隱藏SHEET位張工作表sheets("sheet1").Visible=False'顯示SHEET位張工作表sheets("sheet1").Visible=True有時候我們想把所有的EXCELS的SHEETS打印預覽，請使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個

29、工作簿結束循環(huán)預覽。DimmyAsWorksheetForEachmyInWorksheetsmy.PrintPreviewNextmy得到當前單元格的地址msgboxActiveCell.Address得到當前日期及時間msgboxdate&chr(13)&time保護工作簿ActiveSheet.Protect取消保護工作簿ActiveSheet.Unprotect給當前工作簿改名為"liu"ActiveSheet.Name="liu"打開一個應用程序AppActivate(Shell("C:WINDOWSCALC.EXE&

30、quot;)增加一個工作簿Worksheets.Add刪除當前工作簿activesheet.delete打開一個文件Workbooks.OpenFileName:="C:MyDocumentsBook2."xls"關閉當前工作簿ActiveWindow.Close當前單元格定為：左對齊Selection.HorizontalAlignment=xlLeft當前單元格定為：中心對齊Selection.HorizontalAlignment=xlCenter當前單元格定為：右對齊Selection.HorizontalAlignment=xlRight當前單元格為百分

31、號風格Selection.Style="Percent"當前單元格字體為粗體Selection.Font.Bold=True當前單元格字體為斜體Selection.Font.Italic=True當前單元格字體為宋體20號字WithSelection.Font.Name="宋體".Size=20EndWithWith語句With對象.描述EndWith讓你的機器發(fā)出響聲BEEP清除單元格中所有文字、批注、格式、所有的東西!ActiveCell.Clear測試選擇狀態(tài)的單元格的行數MsgBoxSelection.Rows.Count測試選擇狀態(tài)的單元格的列

32、數MsgBoxSelection.Columns.Count測試選擇狀態(tài)的單元格的地址Selection.Address讓所有的錯誤不再發(fā)生ONERRORRESUMENEXT產生錯誤時讓錯誤轉到另一個地方onerrorgotol'code1:'code刪除一個文件kill"c:1 ."txt"定制自己的狀態(tài)欄Application.StatusBar=，現(xiàn)在時刻:"&Time恢復自己的狀態(tài)欄Application.StatusBar=false在運行期執(zhí)行一個宏Application.Runmacro:="text&qu

33、ot;滾動窗口到a1的位置ActiveWindow.ScrollRow=1ActiveWindow.ScrollColumn=1定制系統(tǒng)日期DimMyDate,MyDayMyDate=#12/12/69#MyDay=Day(MyDate)今天的年限DimMyDate,MyYearMyDate=DateMyYear=Year(MyDate)MsgBoxMyYear產生一個inputbox輸入框InputBox("Enternumberofmonthstoadd")得到一個文件名：DimkkAsStringkk=Application.GetOpenFilename("

34、;EXCEL(*XLS),*XLS”,Title:="請打開一個EXCEL：件：")msgboxkk打開zoom顯示比例對話框Application.Dialogs(xlDialogZoom).Show激活字體對話框Application.Dialogs(xlDialogActiveCellFont).Show打開另存對話框DimkkAsString提示：kk=Application.GetSaveAsFilename("excel(*.xls),*.xls")Workbooks.Openkk此段代碼尋找字符串中特定字符的位置，需要建立一個窗體，并在窗體

35、中，放入TEXTBOX1,TEXTBOX2TEXTBOX3(即文本框)及COMMANDBUTTON鈕)PrivateSubCommandButton1_Click()a=TextBox1."Textb=TextBox2."Textaa=Len(a)i=1DimYYAsStringIfb=""ThenExitSubDoIfInStr(i,a,b,vbTextCompare)=0ThenExitDokk=InStr(i,a,b,vbTextCompare)YY=YY&CStr(kk)&"/"i=kk+1LoopWhilea

36、a>=iTextBox3."Text=YYEndSubActiveX控件在Excel97中的運用Excel97在工作表或圖表上可使用ActiveX控件，根據我使用的體會，在工作上處理控件時，必須注意和了解如下事項：(一)用Excel5,"0/95工作簿文件格式保存Excel97工作簿時，將選擇ActiveX控件信息。當用戶通過雙擊鼠標來編輯內嵌在其它應用程序文檔中的Excel97工作簿時，該工作簿上的控件將不會正常工作。如果用戶是通過用右鍵單擊工作簿，然后選中快捷菜單上的打開”命令來編輯工作簿的話，工作簿上的控件就能正常工作了。(二)當ActiveX控件處于激活狀態(tài)時

37、，將禁用某些MicrosoftExcelVisualBasic方法和屬性。例如，當某一控件激活時，就不能使用Sort方法，故下述按鈕單擊事件處理過程中的代碼將失敗(因為用戶單擊按鈕后，該按鈕就處于激活狀態(tài))。PrivateSubCommandButton1ClickRange，a1:a10'')SortKey1:=Range(''a1)EndSub解決辦法是通過選激活工作表上其它元素的方法來繞過這種問題。例如，可用下列代碼對單元格區(qū)域排序：PrivateSubCommandButton1ClickRange，a1)ActivateRange，a1:a10'

38、;')SortKey1:=Range(''a1)CommandButton1ActivateEndSub(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObjectX寸象代表ActiveX控件。如果要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。Worksheets(1)OLEObjectsAdd"FormsCommandButtopLeft:"=10,Top:=10,Height:=20,Width:=100因為ActiveX控件也可用OLEObje

39、cts集合中的OLEObjec附象代表，所以也可用該集合中的對象來設置控件的屬性。例如要設置控件“CommandBottonl的左邊位置”屬性。Worksheets(1)OLEObjects("CommandButtonl)Left=10那些不屬于OLEObjec區(qū)f象屬性的控件屬性，可通過由Object屬性返回的實際控件對象來設置。例如要設置控件“CommandButtonl的標題。Worksheets(1)OLEObjects("CommandButtonl")ObjectCaption=''runme”因為所有的OLE對象也是Shapes集合

40、的成員，所以也可用該集合設置若干控件的屬性。例如要對齊第一張工作表上所有控件的左邊框。ForEachsInWorksheets(1)ShapesIfsType=msoOLEControlObjectThensLeft=10Next請注意，當在控件所在工作表的類模塊之外使用控件的名稱時，必須用工作表的名稱限定該控件的名稱。在工作表上ActiveX控件的事件處理過程中，Me關鍵字所指向的是工作表，而非控件在Excel中利用VBA創(chuàng)建多級選單Excel是我們常用的報表處理軟件之一，對于大多數人來說只是使用它進行打印報表，沒有注意其他功能，其實利用Excel內嵌的VBA語言完全可以快速開發(fā)出自己企業(yè)的

41、應用系統(tǒng)來，而且應用系統(tǒng)界面與其它專業(yè)編程語言相當相似。下面筆者簡單通過一個實例說明如何利用VBA創(chuàng)建多級選單。首先，我們對Excel中兩個重要的內置函數auto_open()和auto_close()作一簡單說明。auto_open():在打開工作簿時系統(tǒng)將自動執(zhí)行該函數，因此我們可以在該函數中調用自己應用程序的選單函數以及其它需要初始化設置的函數及宏語句；auto_close()：在關閉工作簿時系統(tǒng)將自動執(zhí)行該函數。所以我們需要在該函數中放置刪除用戶自定義選單語句，否則只有退出Excel才能恢復EXCEL勺系統(tǒng)選單。在以下語句中，我們定義了選單設置函數OpenMyMenu(),用于設置多級

42、選單，其他有關說明見程序內注釋，詳細代碼如下：SubOpenMyMenu()自定義多級選單函數OnErrorResumeNext忽略錯誤MenuBars("MyMenu").Delete刪除自定義選單MenuBars.Add("MyMenu")自定義選單項Sheets("sheet1").SelectMenuBars("MyMenu").Menus.AddCaption:="金融"'增加第一個選單項金融”以下三句為在金融”選單下增加銀行法、貨幣政策和條例”三項選單項MenuBars(&q

43、uot;MyMenu").Menus("金融").MenuItems.AddCaption:="銀行法",OnAction:="銀行法"MenuBars("MyMenu").Menus("金融").MenuItems.AddCaption:="貨幣政策",OnAction:="貨幣政策"MenuBars("MyMenu").Menus("金融").MenuItems.AddCaption:="條例

44、",OnAction:="條例"'以下為創(chuàng)建如圖所示的多級選單MenuBars("MyMenu").Menus.AddCaption:="經濟"'建立選單項經濟”以下三句為在經濟”選單下增加農業(yè)、工業(yè)和第三產業(yè)”三項選單項MenuBars("MyMenu").Menus("經濟").MenuItems.AddCaption:="農業(yè)",OnAction:="農業(yè)"MenuBars("MyMenu").Menus

45、("經濟").MenuItems.AddCaption:="工業(yè)",OnAction:="工業(yè)"MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems.AddMenuCaption:="第三產業(yè)"以下三句為在第三產業(yè)”選單下增加概況、范疇”二項選單項和飲食服務業(yè)”子選單MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems（"第三產業(yè)"）.MenuItems.Add

46、Caption:="概況",OnAction:="概況"MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems（"第三產業(yè)"）.MenuItems.AddCaption:="范疇",OnAction:="范疇"MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems（"第三產業(yè)"）.MenuItems.AddMenuCaption:="飲

47、食服務業(yè)"以下二句為在飲食服務業(yè)”選單下增加酒店1、“酒店2”二項選單項MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems（"第三產業(yè)"）.MenuItems（"飲食服務業(yè)"）.MenuItems.AddCaption:="酒店1",OnAction:="酒店1"MenuBars（"MyMenu"）.Menus（"經濟"）.MenuItems（"第三產業(yè)"）.MenuItems

48、（"飲食服務業(yè)"）.MenuItems.AddCaption:="酒店2",OnAction:="酒店2"MenuBars("MyMenu").Activate激活自定義選單EndSubSubauto_open()系統(tǒng)自動打開運行宏OpenMyMenu'調用用戶選單函數EndSubSubauto_close()系統(tǒng)自動關閉運行宏OnErrorResumeNext忽略錯誤MenuBars("MyMenu").Delete刪除自定義選單EndSub讀者可以在自己的工作簿選單工具”中的宏”下，

49、創(chuàng)建以上三個函數并將以上函數語句拷貝到其中即可運行。66、".用VBA褊程)保護Excel文檔VBA(VisualBasicforApplication是Excel應用程序中功能非常強大的編程語言，為了規(guī)范不同的用戶對Excel應用程序的訪問能力，需要對Excel文檔及有關的數據進行有效的保護，這里根據自己及同行們的體會，從以下二個方面介紹用VBA編程法實現(xiàn)對Excel文檔的保護。對工作簿的保護1 .利用VBA中Workbook對象的SaveAs方法實現(xiàn)對工作簿的保護，下面就對SaveA箱關的參量作一介紹：Filename：該字符串表示要保存的文件名?？砂暾窂健Ｈ绻恢付窂?，

50、MicrosoftExcel將文件保存到當前文件夾。FileFormat:可選，文件的保存格式。Password:為一個區(qū)分大小寫的字符串（不超過15個字符），用于指定文件的保護密碼。WriteResPassword如果為True則在打開文件時顯示一條信息，提示該文件以只讀模式打O下例就是在Excel應用程序中添加一工作簿，將工作簿按常規(guī)文件格式存為C:經濟評價.xls文件，并給該文件指定保護密碼“12X及寫保護密碼23”Sub保護工作簿（）NewWorkbook=Workbooks.addNewWorkbook.SaveAsFileName:="C:經濟評價.xls",F

51、ileFormat:=XlNormal,Password:="12",WriteResPassword:23Endsub2 .利用VBA中Workbook對象的Protect方法對工作簿的結構和窗口進行保護，Workbook對象的Protect方法帶有以下三個參量：Password:為加在工作表或工作簿上區(qū)分大小寫的密碼字符串。如果省略本參數，不用密碼就可以取消對該工作簿的保護。否則，取消對該工作表或工作簿的保護時必須提供該密碼。如果忘記了密碼，就無法取消對該工作表或工作簿的保護。最好在安全的地方保存一份密碼及其對應文檔名的列表。Structure：若為True則保護工作簿

52、結構（工作簿中工作表的相對位置）。默認值為FalseWindows若為True則保護工作簿窗口。下例就是對一名為經濟評價.xls的工作簿實現(xiàn)結構”和窗口”保護：Sub保護工作簿（）Workbooks（經濟評價.ProtectPassword:="1234",Structure:=True,Windows:=TrueEndsubWorkbook對象的Unprotect方法用于取消對工作簿的保護。Unprotect方法只有一個參量，就是保護工作表時所用的口令。3 .對工作簿進行隱藏保護，可使他人無法看到其對應的窗口。操作方法如下：在VBA中使用Workbook對象下面的Wind

53、ows對象的Visible屬性對工作簿進行隱藏和取消隱藏，Visible屬性的值可取"True口“Fals弱種。F面程序代碼完成對工作簿“book.xlS勺隱藏:Sub隱藏工作簿（）Workbooks（"book"）.ActivateActiveWindow.Visible=FalseEndsub或：Sub隱藏工作簿()Workbooks("book").Windows(1) .Visible=FalseEndsub對工作表的保護1 .對工作表實現(xiàn)口令保護利用VBA調用Worksheet對象的Protect方法對工作表進行保護，Protect帶

54、有以下參量：Password用于保護工作表的口令。Drawingobjects若為True,則對工彳表中的Drawingobjects對象進彳f保護缺省值為True。Contents若為True,則對單元格內容進行保護，缺省值為True下面程序代碼完成對工作表基礎數據表”的保護：Sub保護工作表()Worksheets（基礎數據表）.ProtectPassword:="1234"Endsub2 .對工作表實現(xiàn)隱藏保護，使他人無法看到工作表：利用VBA設置Worksheet對象的Visible屬性來隱藏工作表；Visible屬性的值為以下三個值中的一個：True工作表為顯示狀

55、態(tài)。False工作表為隱藏狀態(tài)。XlVerHidden工作表為隱藏狀態(tài)，且用戶不能通過取消隱藏”對話框將其改為顯示狀態(tài)。當Visible的值為XlVerHidden時，只能利用VBA將其重新設置為True。Sub隱藏工作表（）Worksheets（"基礎數據表”）.Visible=FalseEndsub67、"求：將所選區(qū)域中的數值全部轉化為"萬元"的最簡代碼.求：將所選區(qū)域中的數值全部轉化為"萬元"的最簡代碼.或能完成此功能的最便捷的命令操作.寫了一個拋磚引玉：Subconvt（）DimcelAsRangeDimdecAsVaria

56、ntApplication.EnableEvents=Falseyesorno=MsgBox。確實將區(qū)域所有數值轉換為萬元"？",vbYesNo+vbQuestion+vbDefaultButtonl)Ifyesorno=vbYesThen1:dec=Application.InputBox("請輸入小數位數：",Default:=0,Type:=1)Ifdec=""ThenGoTo1EndIfForEachcelInSelectionIfIsNumeric(cel.Value)Then'cel=(Round(cel.Valu

57、e/100,2)&萬元”cel=(Round(cel.Value/100,dec)EndIfNextElseIfyesorno=vbNoThenExitSubEndIfEndSub以下當為最簡代碼吧.SubMacro2()Selection.NumberFormatLocal="#"".""#,"EndSub68、"在VBA開發(fā)環(huán)境中，點擊工具一一附加控件，出現(xiàn)如下窗口：在可選控件中選擇microsoftorogressbarcontrol,再點擊確定，這時，你會發(fā)現(xiàn)在你的工具箱中增加了進度條工具，如圖：下面說說進度條的用法：屬性：Max:設置進度條控件的最大值