1、EXCEL編程(VBA)Excel最重要的應用就是利用公式進行計算。無論輸入是純粹的數字運算，還是引用其他單元格計算，只要在一個單元格中輸入公式，就能得到結果。這個直接顯示結果的設計對于絕大多數場合來說都是適用的，但某些情況下就不那么讓人滿意了。比如說在做工程施工的預結算編寫，使用Excel,既要寫出工程量的計算式，也要看到它的結果，于是這樣相同的公式在Excel里面要填兩次，一次在文本格式的單元格中輸入公式，一次是在數據格式的單元格中輸入公式讓Excel計算結果。如何既能看到公式又能看到結果呢？這個問題筆者認為可以從兩個方面考慮：一種方法是所謂“已知結果，顯示公式”，先在數據格式單元格中輸入

2、公式讓Excel計算結果，然后在相鄰的單元格中看到公式；另一種方法所謂“已知公式，顯示結果”，就是先在一個文本格式的單元格中輸入公式，在相鄰的單元格中看到結果。已知結果，顯示公式假設C列為通過公式計算得到的結果（假設C1為“=A1+B1”，或者直接是數字運算“=2+3”），而相鄰的D列是你需要顯示公式的地方（即D1應該顯示為“=A1+B1”或者“=2+3”）。打開“工具”菜單選擇“選項”命令，出現“選項”對話框。在“常規”選項卡中，選中“R1C1引用方式”選項。定義名稱，將“引用位置”由“二GET.CELL（6,Sheetl!RC-l）”即可。這里的RC-1含義是如果在當前單元格的同行前一列單

3、元格中有公式結果，則在當前單元格中得到公式內容，即在含公式結果單元格的同行后一列單元格顯示公式內容；如果將RC-1改為RC1，則在公式結果的同行前一列單元格顯示公式內容。如果“引用位置”中含有“RC-1”，則在含公式結果單元格的同行后一列單元格中輸入“二FormulaofResult”即可得到公式；如果“引用位置”中含有“RC1”，則在含公式結果單元格的同行前一列單元格中輸入“=FormulaofResult”即可得到公式。提示：如果想要在含公式結果單元格的同行后數第2列中顯示公式內容，則需要把“引用位置”中的“RC1”改為“RC-2”。已知公式，顯示結果假設C列為輸入的沒有等號公式（假設C1

4、為“A1+B1”），而相鄰的D列是你需要存放公式計算結果的地方（即D1顯示A1和B1單元格相加的結果）。選中D1，然后打開“插入”菜單選擇“名稱”命令中的“定義”子命令，出現“定義名稱”對話框。在“在當前工作表中的名稱”輸入欄中輸入定義的名稱“ResultofFomula”，在下方的“引用位置”編輯欄中輸入“二EVALUATE（Sheet1!C1）”，單擊確認按鈕退出。在D1中輸入“二ResultofFomula”，然后選中按住右下角的填充柄向下拉動填充即可。提示：EVALUATE是Eexcel4.0版的宏表函數，Excel2000和Excel2002中還支持，但只可用于名稱定義中。填充后要按

5、F9進行重算，如果C列的公式有改動，也需要及時按F9進行重算。巧施妙計，就能讓公式和結果在Excel中和平共處了，你也試試吧。MicrosoftExcel是一款功能非常強大的電子表格軟件。它可以輕松地完成數據的各類數學運算，并用各種二維或三維圖形形象地表示出來，從而大大簡化了數據的處理工作。但若僅利用Excel的常用功能來處理較復雜的數據，可能仍需進行大量的人工操作。但Excel的強大遠遠超過人們的想象一宏的引入使其具有了無限的擴展性，因而可以很好地解決復雜數據的處理問題。隨著支持Windows的應用程序的不斷增多和功能的不斷增強，越來越多的程序增加了宏處理來方便用戶的自由擴展。但初期各應用程

6、序所采用的宏語言并不統一，這樣用戶每使用一種應用程序時都得重新學習一種宏語言。為了統一各種應用程序下的宏，Microsoft推出了VBA（VisualBasicforApplications）語言。VBA是從流行的VisualBasic編程語言中派生出來的一種面向應用程序的語言，它適用于各種Windows應用程序，可以解決各應用程序的宏語言不統一的問題。除此之外，使用VBA語言還有如下優點：1、VBA是一種通用程序語言，通過它不僅可以共享Microsoft相關的各種軟件（如Excel、Word、Access），而且隨著其它的一些軟件（如大名鼎鼎的AutoCAD2000）等對VBA的支持，這些軟

7、件也已進入到了VBA的控制范圍；2、可以將用VBA編寫的程序復制到VisualBasic中調試并運行，從而實現用VisualBasic來控制有關的應用程序；3、VBA提供的大量內部函數大大簡化了用戶的操作。對于而今的宏，不僅語言統一規范，而且其功能也已非常強大。但在大多數介紹Excel的傻瓜書、指南、入門與提高等參考書中往往略過不提，或淺淺帶過，讀者從中獲得的有關知識往往不足以應付處理復雜數據的需求。為了完成工作，就讓我們一起來學習宏的妙用吧。一）、宏的自學首先需要明確的是，本文不可能教會您關于宏的所有內容。您需要學會利用錄制宏的方法來學習宏：點擊Excel工具下拉菜單中宏下?quot;錄制新

8、宏，此后可象平時一樣進行有關操作，待完成后停止錄制。然后再點擊工具下拉菜單中宏下宏的編輯選項即可打開剛才所錄制的宏的VisualBasic源程序，并且可以在此時的幫助下拉菜單中獲得有關的編程幫助。對錄制宏進行修改不僅可以學習宏的使用，還能大大簡化宏的編寫。二）、基本概念為了學習Excel中的宏，我們需要先了解以下一些基本概念。1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含Excel中所有當前打開的Excel工作簿，亦即所有打開的Excel文件；Workbook對應Workbooks中的成員，即其中的Excel文

9、件；ActiveWorkbook代表當前處于活動狀態的工作簿，即當前顯示的Excel文件；ThisWorkbook代表其中有VisualBasic代碼正在運行的工作簿。在具體使用中可用Workbooks（index）來引用Workbook對象，其中index為工作簿名稱或編號；如Workbooks（l）、Workbooks（年度報表.xls）。而編號按照創建或打開工作簿的順序來確定，第一個打開的工作簿編號為1，第二個打開的工作簿為2。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一個Excel文件中的所有數據表頁

10、；而Worksheet則代表其中的一個工作表；ActiveSheet代表當前處于的活動狀態工作表，即當前顯示的一個工作表。可用Worksheets(index)來引用Worksheet對象，其中index為工作表名稱或索引號；如Worksheets(l)、Worksheets(第一季度數據)。工作表索引號表明該工作表在工作表標簽中的位置：第一個(最左邊的)工作表的索引號為1，最后一個(最右邊的)為Worksheets.Count。需要注意的是：在使用過程中Excel會自動重排工作表索引號，保持按照其在工作表標簽中的從左至右排列，工作表的索引號遞增。因此，由于可能進行的工作表添加或刪除，工作表索

11、引號不一定始終保持不變。3、圖表：ChartCharts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的圖表。該圖表既可為嵌入式圖表(包含在ChartObject中)，也可為一個分開的(單獨的)圖表工作表。Charts代表指定工作簿或活動工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或對話框編輯表中的圖表。使用Charts(index)可引用單個Chart圖表，其中index是該圖表工作表的索引號或名稱；如Charts(l)、Charts(銷售圖表)。圖表工作表的索引號表示圖表工作表在工作簿的工作表標簽欄上的位置。Charts是工作簿中第

12、一個(最左邊的)圖表工作表；Charts(Charts.Count)為最后一個(最右邊的)圖表工作表。ChartObject代表工作表中的嵌入式圖表，其作用是作為Chart對象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。ChartObjects代表指定的圖表工作表、對話框編輯表或工作表上所有嵌入式圖表的集合。可由ChartObjects(index)引用單個ChartObject，其中index為嵌入式圖表的編號或名稱。如Worksheets(Sheetl).ChartObjects(l)、Worksheets(sheetl).ChartObjects(chart

13、l)分別對應Sheetl工作表中的第一個嵌入式圖表、以及名為Chart1的嵌入式圖表。ActiveChart可以引用活動狀態下的圖表，不論該圖表是圖表工作表，或嵌入式圖表。而對于圖表工作表為活動工作表時，還可以通過ActiveSheet屬性引用之。4、單元格：Cells、ActiveCell、Range、AreasCells(row,column)代表單個單元格，其中row為行號，column為列號。如可以用Cells(1,1)、Cells(10,4)來引用A1、D10單元格。ActiveCell代表活動工作表的活動單元格，或指定工作表的活動單元格。Range代表工作表中的某一單元格、某一行、

14、某一列、某一選定區域(該選定區域可包含一個或若干連續單元格區域)或者某一三維區域。可用Range(arg)來引用單元格或單元格區域，其中arg可為單元格號、單元格號范圍、單元格區域名稱。如Range(A5)、Range(Al:H8)、Range(Criteria)。雖然可用Range(A1)返回單元格A1，但用Cells更方便，因為此時可用變量指定行和列。可將Range與Cells結合起來使用，如Range(Cells(1,1),Cells(10,10)代表單元格區域A1J10；而expression.Cells(row,column)返回單元格區域中的一部分，其中expression是返回R

15、ange的表達式，row和column為相對于該區域的左上角偏移量。如由Range(C5:C10).Cells(1,1)引用單元格C5。Areas為選定區域內的連續單元格塊的集合，其成員是Range對象。而其中的每個Range對象代表選定區域內與其它部分相分離的一個連續單元格塊。某些操作不能在選定區域內的多個單元格塊上同時執行；必須在選定區域內的單元格塊數Areas.Count上循環，對每個單獨的單元格塊分別執行該操作。此時，可用Areas(index)從集合中返回單個Range對象，其中index為單元格塊編號；如Areas(1)。5、行與列：Rows、Columns、Row、ColumnR

16、ows、Columns分別代表活動工作表、單元格區域范圍Range、指定工作表中的所有行數、列數。對于一個多選單元格區域范圍Range的Rows、Columns,只返回該范圍中第一個區域的行數、列數。例如，如果Range對象有兩個區域(areas)Al:B2和C3:D4,Rows.Count返回2而不是4。可通過Rows(行號)、Columns(列號)來引用相應的行與列；如Rows(3)、Columns(4)分別對應第三行、D列。利用Rows、Column可以獲得區域中第一塊的第一行行號、第一列列號，所得值均以十進制數表示。、處理單元格1、直接賦值與引用將變量、常量值直接賦給單元格、或將單元格

17、的值直接賦給變量、常量，這是在Excel中最簡單的單元格賦值及引用方法。如下例將工作表SheetlAl單元格的值賦給Integer變量I，并將1+1的值賦給當前工作表中的B1單元格：DimIAsIntegerI=Worksheets(Sheet1).Cells(1,1)Cells(1,2).Select選定B1單元格，使其成為當前單元格ActiveCell=I+1以I+1為當前單元格賦值2、用公式賦值在宏的使用中，可能會更多地用公式來給單元格賦值。如下例將相對于活動單元格左側第4列、向上第6行至向上第2行的單元格數值之和賦給活動單元格(以本行、本列為第0行、0列)：ActiveCell.For

18、mula=AVERAGE(R-6C-4:R-2C-4)3、引用其它工作表中的單元格當賦值公式中需要引用其它工作表中的單元格時，在被引用的單元格前加上工作表名！即可。如以下即在賦值中引用了Sheet1工作表中的A1至A4單元格：Range(E10).Formula=SUM(Sheet1!R1C1:R4C1)但需注意的是：當被引用的工作表名中含有某些可能引起公式歧義的字符時，需要用單引號將工作表名括起來。如：Worksheets(Sheet1).ActiveCell.Formula二二Max(1剖面！D3:D5)4、引用其它工作簿中的單元格在被引用單元格所在工作表名前加上工作簿名，即可引用其它工作

19、簿中的單元格。如：ActiveCell.Formula=MAX(Book1.xlsSheet3！R1C:RC4)同樣需注意的是：當被引用的工作簿名中含有某些可能引起公式歧義的字符時需要用中括號、及單引號將工作簿名括起來。如：Cells(1,2).Formula=MIN(1995-2000總結.xls1995-1996年！$A$1:$A$6)5、避免循環引用在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止循環引用錯誤。6、添加批注可按如下方法格給單元格添加批注：Dim批注文本AsString批注文本=批注示例準備批注文本ActiveCell.AddComment添加批注ActiveC

20、ell.Comment.TextText:二臨時寫入批注文本ActiveCell.Comment.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).DeleteSh

21、ift:=xlToLeft刪除A列至D列，其右側列左移Rows(3:5).DeleteShift:=xlUp刪除第3行至第5行，其下方行上移Range(B2).EntireRow.Delete刪除第2行Range(C4).EntireColumn.Delete刪除C列Range(B10:C13).Copy復制BIO至C13單元格區域Cells(l,2).Cut剪切Bl單元格Range(D1O).SelectActiveSheet.Paste自D10單元格起粘貼剪貼板中的內容、圖表1、工作表圖表以下為一添加工作表圖表的實例。Charts.Addafter:二Worksheets(Sheet1)在

22、Sheetl工作表之后添加新圖表工作表ActiveChart.ChartType=xlXYScatterSmooth圖表類型為XY平滑線散點圖ActiveChart.SetSourceDataSource:=Sheets(結點坐標).Range(A1:B69),PlotBy:=_xlColumns圖表數據來源于結點坐標工作表的A1至B69單元格，且按列繪圖。ActiveChart.LocationWhere:=xlLocationAsNewSheetWithActiveChart.HasTitle=True.ChartTitle.Characters.Text=節點坐標圖表標題節點坐標.Axe

23、s(xlCategory,xlPrimary).HasTitle=True.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text=xx軸標題x.Axes(xlValue,xlPrimary).HasTitle=True.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text=yy軸標題yEndWithWithActiveChart.Axes(xlCategory).HasMajorGridlines=True顯示x軸主網格線，默認情況下為顯示.HasMinorGridlines=True顯示x軸次網

24、格線，默認情況下為不顯示EndWithWithActiveChart.Axes(xlValue).HasMajorGridlines=True標出x軸主網格值，默認情況下為標注.HasMinorGridlines=False取消x軸次網格值標注，默認情況下為不標注EndWithActiveChart.Legend.Position=xlRight圖例顯示在圖表右側2、嵌入式圖表嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同，而對圖表的設置基本類似。詳見下例。Set嵌入表二ActiveSheet.ChartObjects.Add(0,0,200,300)在當前工作表(0,0)坐標處添加寬

25、200，高300的嵌入式圖表嵌入表.Chart.ChartType=xlColumnClustered圖表類型為簇狀柱形圖嵌入表.Chart.SetSourceDataSource:二Sheets(l).Range(A2:B2),PlotBy:=xlRows設置圖表數據來源With嵌入表.Chart.HasTitle=False無圖表標題.Axes(xlCategory,xlPrimary).HasTitle=False無x軸標題.Axes(xlValue,xlPrimary).HasTitle=False無y軸標題EndWith、工作表1、添加Sheets.Addbefore:=Sheets

26、(1)在第1工作表前添加新工作表Sheets.Addafter:=Sheets(Sheets.Count)在最后工作表后添加新工作表2、移動ActiveSheet.Movebefore:=Sheets(2)將當前工作表移動至第2工作表之前3、命名ActiveSheet.Name二工作表名將當前工作表命名為工作表名4、刪除可以用以下語句刪除當前工作表。ActiveSheet.Delete但在刪除前Excel會自動彈出提示框，需在用戶確認后方可執行刪除。為避免這一干擾，可以先用以下語句關閉Excel的警告提示。Application.DisplayAlerts=False在刪除完成后，再重新打開E

27、xcel的警告提示Application.DisplayAlerts=True、工作簿Excel的宏對工作簿的操作主要為保存。Dim存盤文件名AsStringActiveWorkbook.Save保存當前工作簿存盤文件名=工作表名ActiveWorkbook.SaveAsFilename:=存盤文件名當前工作簿另存為工作表名.xls在另存時，若指定的存盤文件名不包含路徑，則保存在該工作簿的打開目錄下。而若此存盤文件已存在，也可用關閉Excel警告提示的方法以免其自動彈出提示框。63、用VBA的幾個誤區1、想通過Excel+vba來編程發財，不管怎么說，目前這種可能性很小。2、錄制宏后的代碼不進

28、行簡化，這種情況初學者常犯；或者不屑于用錄制宏，這種相反。3、喜歡用.select、.copy、.active等，如果不是迫不得已，還是不要用這些東西好。4、不喜歡用公式、函數，什么都喜歡用程序；活用公式函數是我們學EXCEL中重要的重點，學會嵌套著用，很多事情都可以解決。譬如表1的A1單元格如果要等于表2的A列中的某個單元格，很多人都是用程序來直接賦值，數量少這也可以，但如果數量很多的話，為何不試用一下offset呢？偏移都指向同一個單元格，就當是一個變量，改一下這個單元格的值，表1用offset的單元格的值就全部改了。5、設計輸入數據的界面竟然用用戶窗口+文本框之類的東西，天，我為什么要用

29、EXCEL，原因之一不就是圖個方便嗎？！直接在工作表中操作就是輸入數據最好的方法，如果一些功能你不想給別人用，頂多你屏蔽掉吧。6、關閉程序的時候很喜歡退出整個EXCEL，這樣自我感覺更象一個完整的程序。其實完全有必要考慮其他用戶是否也在用EXCEL，所以，必須做好一下判斷，不要自作聰明全部退出來，還幫忙把每個工作簿都保存一下。7、不喜歡用with，總是workbook（）.worksheetOrangeC）.*行行排得挺整齊的，還說都用復制，其實也不麻煩。8、總想把VBA+EXCEL做得象一個程序一樣，其實，就因為它不獨立，所以才更加為我們喜愛，不是嗎？64、用過VB的人都應該知道如何聲明變量

30、，在VBA中聲明變量和VB中是完全樣的！使用Dim語句聲明A為整形變量聲明A為變體變量聲明A為字符串變量聲明A,b,c為貨幣變量DimaasintegerDimaDimaasstringDima,b,cascurrency聲明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當前不支持）、Date、String（只限變長字符串）、String*length（定長字符串）、Object、Variant、用戶定義類型或對象類型。強制聲明變量OptionExplicit說明：該語句必在任何過程之前出現在模塊中。聲明常數，用來

31、代替文字值。Const常數的默認狀態是Private。ConstMy=456聲明Public常數。PublicConstMyString=HELP聲明PrivateInteger常數。PrivateConstMyIntAsInteger=5在同一行里聲明多個常數。ConstMyStr=Hello,MyDoubleAsDouble=3.4567在EXCEL97中，有一個十分好的功能，他就是把鼠標放置在一個有效數據單元格中，執行該段代碼，你就可以將連在一起的一片數據全部選中。只要將該段代碼加入到你的模塊中。SubMy_SelectSelection.CurrentRegion.SelectEnds

32、ub刪除當前單元格中數據的前后空格。submy_trimTrim(ActiveCell.Value)endsub使單元格位移submy_offsetActiveCell.Offset(0,l).Select當前單元格向左移動一格ActiveCell.Offset(0,T).Select當前單元格向右移動一格ActiveCell.Offset(l,0).Select當前單元格向下移動一格ActiveCell.Offset(-l,0).Select當前單元格向上移動一格endsub如果上述程序產生錯誤那是因為單元格不能移動，為了解除上述錯誤，我們可以往submy_offset之下加一段代碼oner

33、rorresumenext注意以下代碼都不再添加sub“代碼名稱”和endsub請自己添加！給當前單元格賦值：ActiveCell.Value=你好！給特定單元格加入一段代碼:例如：在A1單元格中插入HELLORange(a1).value=hello又如：你現在的工作簿在sheetl上，你要往sheet2的Al單元格中插入HELLOsheets(sheet2).selectrange(al).value=hello或2.Sheets(sheet1).Range(a1).Value=hello說明：sheet2被打開，然后在將“HELLO放入到Al單元格中。sheet2不被打開，將“HELLO

34、放入到Al單元格中。隱藏工作表隱藏SHEET1這張工作表sheets(sheet1).Visible=False顯示SHEET1這張工作表sheets(sheet1).Visible=True有時候我們想把所有的EXCEL中的SHEET都打印預覽，請使用該段代碼，它將在你現有的工作簿中循環，直到最后一個工作簿結束循環預覽。DimmyAsWorksheetForEachmyInWorksheetsmy.PrintPreviewNextmy得到當前單元格的地址msgboxActiveCell.Address得到當前日期及時間msgboxdate&chr(13)&time保護工作簿ActiveShe

35、et.Protect取消保護工作簿ActiveSheet.Unprotect給當前工作簿改名為liuActiveSheet.Name=liu打開一個應用程序AppActivate(Shell(C:WINDOWSCALC.EXE)增加一個工作簿Worksheets.Add刪除當前工作簿activesheet.delete打開一個文件Workbooks.OpenFileName:=C:MyDocumentsBook2.xls關閉當前工作簿ActiveWindow.Close當前單元格定為：左對齊Selection.HorizontalAlignment=xlLeft當前單元格定為：中心對齊Sele

36、ction.HorizontalAlignment=xlCenter當前單元格定為：右對齊Selection.HorizontalAlignment=xlRight當前單元格為百分號風格Selection.Style=Percent當前單元格字體為粗體Selection.Font.Bold=True當前單元格字體為斜體Selection.Font.Italic=True當前單元格字體為宋體20號字WithSelection.Font.Name=宋體.Size=20EndWithWith語句With對象.描述EndWith讓你的機器發出響聲BEEP清除單元格中所有文字、批注、格式、所有的東西Ac

37、tiveCell.Clear測試選擇狀態的單元格的行數MsgBoxSelection.Rows.Count測試選擇狀態的單元格的列數MsgBoxSelection.Columns.Count測試選擇狀態的單元格的地址Selection.Address讓所有的錯誤不再發生ONERRORRESUMENEXT產生錯誤時讓錯誤轉到另一個地方onerrorgotolcodel:code刪除一個文件killc:1.txt定制自己的狀態欄Application.StatusBar=現在時刻:&Time恢復自己的狀態欄Application.StatusBar=false在運行期執行一個宏Applicatio

38、n.Runmacro:=text滾動窗口到al的位置ActiveWindow.ScrollRow=1ActiveWindow.ScrollColumn=1定制系統日期DimMyDate,MyDayMyDate=#12/12/69#MyDay=Day(MyDate)今天的年限DimMyDate,MyYearMyDate=DateMyYear=Year(MyDate)MsgBoxMyYear產生一個inputbox輸入框InputBox(Enternumberofmonthstoadd)得到一個文件名：DimkkAsStringkk=Application.GetOpenFilename(EXCE

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

40、X3(3個文本框)及COMMANDBUTTON1(按鈕)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+1LoopWhileaa=iTextBox3.Text=YYEndSubActiveX控件在Excel97中的運用Excel97在工作表或圖表上可使用Act

41、iveX控件，根據我使用的體會，在工作上處理控件時，必須注意和了解如下事項：(一)用Excel5.0/95工作簿文件格式保存Excel97工作簿時，將選擇ActiveX控件信息。當用戶通過雙擊鼠標來編輯內嵌在其它應用程序文檔中的Excel97工作簿時，該工作簿上的控件將不會正常工作。如果用戶是通過用右鍵單擊工作簿，然后選中快捷菜單上的“打開”命令來編輯工作簿的話，工作簿上的控件就能正常工作了。(二)當ActiveX控件處于激活狀態時，將禁用某些MicrosoftExcelVisualBasic方法和屬性。例如，當某一控件激活時，就不能使用Sort方法，故下述按鈕單擊事件處理過程中的代碼將失敗(

42、因為用戶單擊按鈕后，該按鈕就處于激活狀態)。PrivateSubCommandButton1ClickRange(al:alO)SortKeyl:=Range(al)EndSub解決辦法是通過選激活工作表上其它元素的方法來繞過這種問題。例如，可用下列代碼對單元格區域排序：PrivateSubCommandButton1ClickRange(al)ActivateRange(al:alO)SortKeyl:=Range(al)CommandButton1ActivateEndSub(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject對象代表ActiveX控件。

43、如果要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。Worksheets(l)OLEObjectsAddFormsCommandButton1，_Left:=10,Top:=10,Height:=20,Width:=100因為ActiveX控件也可用OLEObjects集合中的OLEObject對象代表，所以也可用該集合中的對象來設置控件的屬性。例如要設置控件“CommandBottonl”的“左邊位置”屬性。Worksheets(1)OLEObjects(“CommandButton1)Left=10那些不屬于OLEOb

44、ject對象屬性的控件屬性，可通過由Object屬性返回的實際控件對象來設置。例如要設置控件“CommandButtonl”的標題。Worksheets(1)OLEObjects(“CommandButton1)ObjectCaption二runme因為所有的OLE對象也是Shapes集合的成員，所以也可用該集合設置若干控件的屬性。例如要對齊第一張工作表上所有控件的左邊框。ForEachsInWorksheets(l)ShapesIfsType=msoOLEControlObjectThensLeft=l0Next請注意，當在控件所在工作表的類模塊之外使用控件的名稱時，必須用工作表的名稱限定該

45、控件的名稱。在工作表上ActiveX控件的事件處理過程中，Me關鍵字所指向的是工作表，而非控件65、在Excel中利用VBA創建多級選單Excel是我們常用的報表處理軟件之一，對于大多數人來說只是使用它進行打印報表，沒有注意其他功能，其實利用Excel內嵌的VBA語言完全可以快速開發出自己企業的應用系統來，而且應用系統界面與其它專業編程語言相當相似。下面筆者簡單通過一個實例說明如何利用VBA創建多級選單。首先，我們對Excel中兩個重要的內置函數auto_open()和auto_close()作一簡單說明。auto_open()：在打開工作簿時系統將自動執行該函數，因此我們可以在該函數中調用自

46、己應用程序的選單函數以及其它需要初始化設置的函數及宏語句；auto_close()：在關閉工作簿時系統將自動執行該函數。所以我們需要在該函數中放置刪除用戶自定義選單語句，否則只有退出Excel才能恢復EXCEL的系統選單。在以下語句中，我們定義了選單設置函數OpenMyMenuO,用于設置多級選單，其他有關說明見程序內注釋，詳細代碼如下：SubOpenMyMenu()，自定義多級選單函數OnErrorResumeNext，忽略錯誤MenuBars(MyMenu).Delete，刪除自定義選單MenuBars.Add(MyMenu)，自定義選單項Sheets(sheet1).SelectMenu

47、Bars(MyMenu).Menus.AddCaption:二金融增加第一個選單項“金融”以下三句為在“金融”選單下土曾加“銀行法、貨幣政策和條例”三項選單項MenuBars(MyMenu).Menus(金融).MenuItems.AddCaption:二銀行法,OnAction:二銀行法MenuBars(MyMenu).Menus(金融).MenuItems.AddCaption:二貨幣政策，OnAction:二貨幣政策MenuBars(MyMenu).Menus金融).MenuItems.AddCaption:二條例，OnAction:二條例以下為創建如圖所示的多級選單MenuBars(M

48、yMenu).Menus.AddCaption:二經濟建立選單項“經濟以下三句為在“經濟”選單下增加“農業、工業和第三產業”三項選單項MenuBars(MyMenu).Menus(經濟).Menultems.AddCaption:二農業,OnAction:二農業MenuBars(MyMenu).Menus(經濟).Menultems.AddCaption:二工業,OnAction:二工業MenuBars(MyMenu).Menus(經濟).MenuItems.AddMenuCaption:二第三產業以下三句為在“第三產業”選單下增加“概況、范疇”二項選單項和“飲食服務業”子選單MenuBars

49、(MyMenu).Menus(經濟).Menultems(第三產業).Menultems.AddCaption:二概況，OnAction:二概況MenuBars(MyMenu).Menus(經濟).Menultems(第三產業).Menultems.AddCaption:二范疇，OnAction:二范疇MenuBars(MyMenu).Menus(經濟).MenuItems(第三產業).MenuItems.AddMenuCaption:二飲食服務業以下二句為在“飲食服務業”選單下增加“酒店1、酒店2”二項選單項MenuBars(MyMenu).Menus(經濟).Menultems(第三產業)

50、.Menultems(飲食服務業).MenuItems.AddCaption:二酒店1,OnAction:二酒店1MenuBars(MyMenu).Menus(經濟).Menultems(第三產業).Menultems(飲食服務業).MenuItems.AddCaption:二酒店2,OnAction:二酒店2MenuBars(MyMenu).Activate激活自定義選單EndSubSubauto_open()系統自動打開運行宏OpenMyMenu調用用戶選單函數EndSubSubauto_close()系統自動關閉運行宏OnErrorResumeNext，忽略錯誤MenuBars(MyMe

51、nu).Delete，刪除自定義選單EndSub讀者可以在自己的工作簿選單“工具”中的“宏”下，創建以上三個函數并將以上函數語句拷貝到其中即可運行。66、用VBA(編程)保護Excel文檔VBA(VisualBasicforApplication)是Excel應用程序中功能非常強大的編程語言，為了規范不同的用戶對Excel應用程序的訪問能力，需要對Excel文檔及有關的數據進行有效的保護，這里根據自己及同行們的體會，從以下二個方面介紹用VBA編程法實現對Excel文檔的保護。對工作簿的保護1利用VBA中Workbook對象的SaveAs方法實現對工作簿的保護，下面就對SaveAs有關的參量作一

52、介紹：Filename：該字符串表示要保存的文件名。可包含完整路徑。如果不指定路徑，MicrosoftExcel將文件保存到當前文件夾。FileFormat：可選，文件的保存格式。Password：為一個區分大小寫的字符串(不超過15個字符)，用于指定文件的保護密碼。WriteResPassword：該字符串表示文件的寫保護密碼。如果文件保存時帶有密碼，但打開文件時不輸入密碼，則該文件以只讀模式打開。ReadOnlyRecommended:如果為True則在打開文件時顯示一條信息，提示該文件以只讀模式打開。下例就是在Excel應用程序中添加一工作簿，將工作簿按常規文件格式存為“C:pjobj經

53、濟評價.xls”文件并給該文件指定保護密碼“12”以及寫保護密碼“23”。Sub保護工作簿()NewWorkbook=Workbooks.addNewWorkbook.SaveAsFileName:=C:pjobj經濟評價.xls,FileFormat:=XlNormal,Password:=12,WriteResPassword:二23Endsub2利用VBA中Workbook對象的Protect方法對工作簿的結構和窗口進行保護，Workbook對象的Protect方法帶有以下三個參量：Password：為加在工作表或工作簿上區分大小寫的密碼字符串。如果省略本參數，不用密碼就可以取消對該工作

54、簿的保護。否則，取消對該工作表或工作簿的保護時必須提供該密碼。如果忘記了密碼，就無法取消對該工作表或工作簿的保護。最好在安全的地方保存一份密碼及其對應文檔名的列表。Structure：若為True則保護工作簿結構(工作簿中工作表的相對位置)。默認值為False。Windows若為True則保護工作簿窗口。下例就是對一名為“經濟評價.xls”的工作簿實現“結構”和“窗口”保護：Sub保護工作簿()Workbooks(經濟評價).ProtectPassword:二1234,Structure:二True,Windows:二TrueEndsubWorkbook對象的Unprotect方法用于取消對工

55、作簿的保護Unprotect方法只有一個參量，就是保護工作表時所用的口令。3對工作簿進行隱藏保護，可使他人無法看到其對應的窗口。操作方法如下：在VBA中使用Workbook對象下面的Windows對象的Visible屬性對工作簿進行隱藏和取消隱藏，Visible屬性的值可取“True”和“False”兩種。下面程序代碼完成對工作簿“book.xls”的隱藏：Sub隱藏工作簿（）Workbooks（book）.ActivateActiveWindow.Visible=FalseEndsub或：Sub隱藏工作簿（）Workbooks（book）.Windows（1）.Visible=FalseEn

56、dsub對工作表的保護對工作表實現口令保護利用VBA調用Worksheet對象的Protect方法對工作表進行保護，Protect帶有以下參量：Password用于保護工作表的口令。Drawingobjects若為True，則對工作表中的Drawingobjects對象進行保護，缺省值為True。Contents若為True，則對單元格內容進行保護，缺省值為True。下面程序代碼完成對工作表“基礎數據表”的保護：Sub保護工作表（）Worksheets（基礎數據表）.ProtectPassword:二1234Endsub對工作表實現隱藏保護，使他人無法看到工作表：利用VBA設置Workshee

57、t對象的Visible屬性來隱藏工作表；Visible屬性的值為以下三個值中的一個：True工作表為顯示狀態。False工作表為隱藏狀態。XlVerHidden工作表為隱藏狀態，且用戶不能通過“取消隱藏”對話框將其改為顯示狀態。當Visible的值為XlVerHidden時，只能利用VBA將其重新設置為True。Sub隱藏工作表（）Worksheets（“基礎數據表）.Visible二FalseEndsub67、求:將所選區域中的數值全部轉化為萬元的最簡代碼.求:將所選區域中的數值全部轉化為萬元的最簡代碼.或能完成此功能的最便捷的命令操作.寫了一個，拋磚引玉:Subconvt（）DimcelA

58、sRangeDimdecAsVariantApplication.EnableEvents=Falseyesorno=MsgBox(確實將區域所有數值轉換為“萬元?,vbYesNo+vbQuestion+vbDefaultButton1)Ifyesorno=vbYesThen1:dec=Application.InputBox(請輸入小數位數:,Default:=0,Type:=1)Ifdec=ThenGoTo1EndIfForEachcelInSelectionIfIsNumeric(cel.Value)Thencel=(Round(cel.Value/10000,2)&萬元cel=(Round(cel.Value/10000,dec)EndIfNextElseIfyesorno=vbNoThenExitSubEndIfEndSub以下當為最簡代碼吧.SubMacro2()Selection.NumberF