EXCEL宏編程實(shí)例

1、Excel宏編程舉例說(shuō)明學(xué)習(xí)宏編程，需要VB根底，如果一點(diǎn)VB根底和面向?qū)ο蟮母拍?，建議先去補(bǔ)補(bǔ)VB,不然即使自認(rèn)為學(xué)好了也只能拿著高射炮打蚊子！一) 、宏學(xué)習(xí)首先需要明確的是，本文不可能教會(huì)您關(guān)于宏的所有內(nèi)容。您需要學(xué)會(huì)利用"錄制宏"的方法來(lái)學(xué)習(xí)宏：點(diǎn)擊Excel"工具"下拉菜單中"宏"下?quot;錄制新宏"，此后可象平時(shí)一樣進(jìn)行有關(guān)操作，待完成后停止錄制。然后再點(diǎn)擊”工具”下拉菜單中”宏”下”宏”的”編輯”選項(xiàng)即可翻開(kāi)剛剛所錄制的宏的VisualBasic源程序，并且可以在此時(shí)的”幫助”下拉菜單中獲得有關(guān)的編程幫助。對(duì)

2、錄制宏進(jìn)行修改不僅可以學(xué)習(xí)宏的使用，還能大大簡(jiǎn)化宏的編寫。二) 、根本概念為了學(xué)習(xí)Excel中的宏，我們需要先了解以下一些根本概念。1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含Excel中所有當(dāng)前翻開(kāi)的Excel工作簿，亦即所有翻開(kāi)的Excel文件；Workbook對(duì)應(yīng)Workbooks中的成員，即其中的Excel文件；ActiveWorkbook代表當(dāng)前處于活動(dòng)狀態(tài)的工作簿，即當(dāng)前顯示的Excel文件；ThisWorkbook代表其中有VisualBasic代碼正在運(yùn)行的工作簿。在具體使用中可用Workbo

3、oks(index)來(lái)引用Workbook對(duì)象，其中index為工作簿名稱或編號(hào)；如Workbooks(1)、Workbooks(-年度報(bào)表.xls")。而編號(hào)按照創(chuàng)立或翻開(kāi)工作簿的順序來(lái)確定，第一個(gè)翻開(kāi)的工作簿編號(hào)為1,第二個(gè)翻開(kāi)的工作簿為2。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一個(gè)Excel文件中的所有數(shù)據(jù)表頁(yè)；而Worksheet那么代表其中的一個(gè)工作表；ActiveSheet代表當(dāng)前處于的活動(dòng)狀態(tài)工作表，即當(dāng)前顯示的一個(gè)工作表?？捎肳orksheets(index)來(lái)引用Workshe

4、et對(duì)象，其中index為工作表名稱或索引號(hào)；如Worksheets(1)、Worksheets("第一季度數(shù)據(jù)”)。工作表索引號(hào)說(shuō)明該工作表在工作表標(biāo)簽中的位置：第一個(gè)最左邊的工作表的索引號(hào)為1,最后一個(gè)最右邊的為Worksheets.Count。需要注意的是：在使用過(guò)程中Excel會(huì)自動(dòng)重排工作表索引號(hào)，保持按照其在工作表標(biāo)簽中的從左至右排列，工作表的索引號(hào)遞增。因此，由于可能進(jìn)行的工作表添加或刪除，工作表索引號(hào)不一定始終保持不變。3、圖表：Chart、Charts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的圖表。該圖表既可為

5、嵌入式圖表包含在ChartObject中，也可為一個(gè)分開(kāi)的單獨(dú)的圖表工作表。Charts代表指定工作簿或活開(kāi)工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。使用Charts(index)可引用單個(gè)Chart圖表，其中index是該圖表工作表的索引號(hào)或名稱；如Charts(1)、Charts(-銷售圖表”)。圖表工作表的索引號(hào)表示圖表工作表在工作簿的工作表標(biāo)簽欄上的位置。Charts(1)是工作簿中第一個(gè)最左邊的圖表工作表；Charts(Charts.Count)為最后一個(gè)最右邊的圖表工作表。ChartObject代表工作表中的嵌入式圖表，其作用是作為Chart對(duì)象的

6、容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。ChartObjects代表指定的圖表工作表、對(duì)話框編輯表或工作表上所有嵌入式圖表的集合?？捎蒀hartObjects(index)引用單個(gè)ChartObject，其中index為嵌入式圖表的編號(hào)或名稱。如Worksheets("Sheet1”).ChartObjects(1)、Worksheets("sheet1”).ChartObjects("chart1”)分別對(duì)應(yīng)"Sheetl"工作表中的第一個(gè)嵌入式圖表、以及名為"Chartl"的嵌入式圖表。A

7、ctiveChart可以引用活動(dòng)狀態(tài)下的圖表，不管該圖表是圖表工作表，或嵌入式圖表。而對(duì)于圖表工作表為活開(kāi)工作表時(shí)，還可以通過(guò)ActiveSheet屬性引用之。4、單元格：Cells、ActiveCell、Range、AreasCells(row,column)代表單個(gè)單元格，其中row為行號(hào)，column為列號(hào)。如可以用Cells(1,1)、Cells(10,4)來(lái)引用"A1”、"D10”單元格。ActiveCell代表活開(kāi)工作表的活動(dòng)單元格，或指定工作表的活動(dòng)單元格。Range代表工作表中的某一單元格、某一行、某一列、某一選定區(qū)域該選定區(qū)域可包含一個(gè)或假設(shè)干連續(xù)單元格區(qū)

8、域或者某一三維區(qū)域?？捎肦ange(arg)來(lái)引用單元格或單元格區(qū)域，其中arg可為單元格號(hào)、單元格號(hào)范圍、單元格區(qū)域名稱。如Range("A5”)、Range("A1:H8”)、Range("Criteria")。雖然可用Range("A1”)返回單元格A1,但用Cells更方便，因?yàn)榇藭r(shí)可用變量指定行和列?？蓪ange與Cells結(jié)合起來(lái)使用，如Range(Cells(1,1),Cells(10,10)代表單元格區(qū)域”A1:J10”;而expression.Cells(row,column)返回單元格區(qū)域中的一局部，其中expressio

9、n是返回Range的表達(dá)式，row和column為相對(duì)于該區(qū)域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用單元格C5。Areas為選定區(qū)域內(nèi)的連續(xù)單元格塊的集合，其成員是Range對(duì)象。而其中的每個(gè)Range對(duì)象代表選定區(qū)域內(nèi)與其它局部相別離的一個(gè)連續(xù)單元格塊。某些操作不能在選定區(qū)域內(nèi)的多個(gè)單元格塊上同時(shí)執(zhí)行；必須在選定區(qū)域內(nèi)的單元格塊數(shù)Areas.Count上循環(huán)，對(duì)每個(gè)單獨(dú)的單元格塊分別執(zhí)行該操作。此時(shí)，可用Areas(index)從集合中返回單個(gè)Range對(duì)象，其中index為單元格塊編號(hào)；如Areas(1)。5、行與列：Rows、Co

10、lumns、Row、ColumnRows、Columns分別代表活開(kāi)工作表、單元格區(qū)域范圍Range、指定工作表中的所有行數(shù)、列數(shù)。對(duì)于一個(gè)多項(xiàng)選擇單元格區(qū)域范圍Range的Rows、Columns,只返回該范圍中第一個(gè)區(qū)域的行數(shù)、列數(shù)。例如，如果Range對(duì)象有兩個(gè)區(qū)域areasA1:B2和C3:D4,Rows.Count返回2而不是4o可通過(guò)Rows(行號(hào))、Columns(列號(hào))來(lái)引用相應(yīng)的行與列；如Rows(3)、Columns(4)分別對(duì)應(yīng)第三行、D列。利用Rows、Column可以獲得區(qū)域中第一塊的第一行行號(hào)、第一列列號(hào)，所得值均以十進(jìn)制數(shù)表示。三) 、處理單元格1、直接賦值與引用

11、將變量、常量值直接賦給單元格、或?qū)卧竦闹抵苯淤x給變量、常量，這是在Excel中最簡(jiǎn)單的單元格賦值及引用方法。如下例將工作表"Sheet1"A1單元格的值賦給Integer變量I,并將I+1的值賦給當(dāng)前工作表中的B1單元格：DimIAsIntegerI=Worksheets("Sheet1").Cells(1,1)Cells(1,2).Select'選定B1單元格，使其成為當(dāng)前單元格ActiveCell=I+1'以I+1為當(dāng)前單元格賦值2、用公式賦值在宏的使用中，可能會(huì)更多地用公式來(lái)給單元格賦值。如下例將相對(duì)于活動(dòng)單元格左側(cè)第4列、向上

12、第6行至向上第2行的單元格數(shù)值之和賦給活動(dòng)單元格以本行、本列為第0行、0列：ActiveCell.Formula="=AVERAGE(R-6C-4:R-2C-4)”3、引用其它工作表中的單元格當(dāng)賦值公式中需要引用其它工作表中的單元格時(shí)，在被引用的單元格前加上"工作表名！"即可。如以下即在賦值中引用了"Sheet1"工作表中的A1至A4單元格：Range("E10”).Formula="=SUM(Sheet1!R1C1:R4C1)”但需注意的是：當(dāng)被引用的工作表名中含有某些可能引起公式歧義的字符時(shí)，需要用單引號(hào)將工作表名括起來(lái)

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

14、="=MIN('1995-2000總結(jié).xls1995-1996年'！$A$1:$A$6)”5、防止循環(huán)引用在上述公式賦值過(guò)程中，應(yīng)防止在公式中引用被賦值的單元格，防止循環(huán)引用錯(cuò)誤。6、添加批注可按如下方法格給單元格添加批注：Dim批注文本AsString批注文本="批注例如"'準(zhǔn)備批注文本ActiveCell.AddComment'添加批注ActiveCell.Comment.TextText:=臨時(shí)'寫入批注文本ActiveCell.Comment.Visible=False'隱藏批注7、添加、刪除、復(fù)制、剪切、

15、粘貼單元格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").DeleteShift:=xlToLeft'刪除A列至D

16、列，其右側(cè)列左移Rows("3:5”).DeleteShift:=xlUp'刪除第3行至第5行，其下方行上移Range("B2”).EntireRow.Delete'刪除第2行Range("C4”).EntireColumn.Delete'刪除C列Range("B10:C13”).Copy'復(fù)制B10至C13單元格區(qū)域Cells(1,2).Cut'剪切B1單元格Range("D10”).Select四) ActiveSheet.Paste'自D10單元格起粘貼剪貼板中的內(nèi)容、圖表1、工作表圖表以下

17、為一添加工作表圖表的實(shí)例。Charts.Addafter:=Worksheets("Sheet1")'在"Sheetl"工作表之后添加新圖表工作表ActiveChart.ChartType=xlXYScatterSmooth'圖表類型為XY平滑線散點(diǎn)圖ActiveChart.SetSourceDataSource:=Sheets("結(jié)點(diǎn)坐標(biāo)”).Range("A1:B69”),PlotBy:=xlColumns'圖表數(shù)據(jù)來(lái)源于"結(jié)點(diǎn)坐標(biāo)”工作表的A1至B69單元格，且按列繪圖。ActiveChart.

18、LocationWhere:=xlLocationAsNewSheetWithActiveChart.HasTitle=True.ChartTitle.Characters.Text="節(jié)點(diǎn)坐標(biāo)"'圖表標(biāo)題”節(jié)點(diǎn)坐標(biāo)".Axes(xlCategory,xlPrimary).HasTitle=True軸標(biāo)題"x"軸標(biāo)題"y".Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text="x"'x.Axes(xlValue,xlPrimary).H

19、asTitle=True.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text="y"'yEndWithWithActiveChart.Axes(xlCategory)顯示x軸主網(wǎng)格線，默認(rèn)情況下為顯示顯示x軸次網(wǎng)格線，默認(rèn)情況下為不顯示標(biāo)出x軸主網(wǎng)格值，默認(rèn)情況下為標(biāo)注取消x軸次網(wǎng)格值標(biāo)注，默認(rèn)情況下為不標(biāo)注.HasMajorGridlines=True'.HasMinorGridlines=True'EndWithWithActiveChart.Axes(xlValue).HasMajorGridli

20、nes=True'.HasMinorGridlines=False'EndWithActiveChart.Legend.Position=xlRight'圖例顯示在圖表右側(cè)2、嵌入式圖表嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同，而對(duì)圖表的設(shè)置根本類似。詳見(jiàn)下例。Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300)'在當(dāng)前工作表(0,0)坐標(biāo)處添加寬200，高300的嵌入式圖表嵌入表.Chart.ChartType=xlColumnClustered'圖表類型為簇狀柱形圖嵌入表.Chart.SetS

21、ourceDataSource:=Sheets(1).Range("A2:B2"),PlotBy:=xlRows'設(shè)置圖表數(shù)據(jù)來(lái)源With嵌入表.Chart.HasTitle=False'無(wú)圖表標(biāo)題.Axes(xlCategory,xlPrimary).HasTitle=False'無(wú)x軸標(biāo)題.Axes(xlValue,xlPrimary).HasTitle=False'無(wú)y軸標(biāo)題EndWith五) 、工作表1、添加Sheets.Addbefore:=Sheets(1)'在第1工作表前添加新工作表Sheets.Addafter:=Sh

22、eets(Sheets.Count)'在最后工作表后添加新工作表2、移動(dòng)ActiveSheet.Movebefore:=Sheets(2)'將當(dāng)前工作表移動(dòng)至第2工作表之前3、命名ActiveSheet.Name="工作表名"'將當(dāng)前工作表命名為”工作表名"4、刪除可以用以下語(yǔ)句刪除當(dāng)前工作表。ActiveSheet.Delete但在刪除前Excel會(huì)自動(dòng)彈出提示框，需在用戶確認(rèn)前方可執(zhí)行刪除。為防止這一干擾，可以先用以下語(yǔ)句關(guān)閉Excel的警告提示。Application.DisplayAlerts=False在刪除完成后，再重新翻開(kāi)Ex

23、cel的警告提示Application.DisplayAlerts=True六) 、工作簿Excel的宏對(duì)工作簿的操作主要為保存。Dim存盤文件名AsStringActiveWorkbook.Save'保存當(dāng)前工作簿存盤文件名="工作表名"ActiveWorkbook.SaveAsFilename:=存盤文件名當(dāng)前工作簿另存為”工作表名.xls"在另存時(shí)，假設(shè)指定的存盤文件名不包含路徑，那么保存在該工作簿的翻開(kāi)目錄下。而假設(shè)此存盤文件已存在，也可用關(guān)閉Excel警告提示的方法以免其自動(dòng)彈出提示框。64、用過(guò)VB的人都應(yīng)該知道如何聲明變量，在VBA中聲明變量

24、和VB中是完全一樣的！使用Dim語(yǔ)句DimaasintegerDimaDimaasstringDima,b,cascurrency,聲明A為整形變量,聲明A為變體變量'聲明A為字符串變量'聲明A,b,c為貨幣變量聲明變量可以是：Byte、不支持、Date、String用戶定義類型或?qū)ο箢愋?。Boolean、Integer、只限變長(zhǎng)字符串、Long、Currency、Single、Double、Decimal當(dāng)前String*length定長(zhǎng)字符串、Object、Variant、強(qiáng)制聲明變量OptionExplicit說(shuō)明：該語(yǔ)句必在任何過(guò)程之前出現(xiàn)在模塊中。聲明常數(shù)，用來(lái)代替文

25、字值。Const'常數(shù)的默認(rèn)狀態(tài)是Private。ConstMy=456,聲明Public常數(shù)。PublicConstMyString="HELP”'聲明PrivateInteger常數(shù)。PrivateConstMyIntAsInteger=5'在同一行里聲明多個(gè)常數(shù)。ConstMyStr="Hello",MyDoubleAsDouble=3.4567在EXCEL97中，有一個(gè)十分好的功能，他就是把鼠標(biāo)放置在一個(gè)有效數(shù)據(jù)單元格中，執(zhí)行該段代碼，你就可以將連在一起的一片數(shù)據(jù)全部選中。只要將該段代碼參加到你的模塊中。SubMy_SelectSe

26、lection.CurrentRegion.SelectEndsub刪除當(dāng)前單元格中數(shù)據(jù)的前后空格。submy_trimTrim(ActiveCell.Value)endsub使單元格位移submy_offsetActiveCell.Offset(0,1).Select'當(dāng)前單元格向左移動(dòng)一格ActiveCell.Offset(0,-1).Select'當(dāng)前單元格向右移動(dòng)一格ActiveCell.Offset(1,0).Select'當(dāng)前單元格向下移動(dòng)一格ActiveCell.Offset(-1,0).Select'當(dāng)前單元格向上移動(dòng)一格endsub如果上述程序

27、產(chǎn)生錯(cuò)誤那是因?yàn)閱卧癫荒芤苿?dòng)，為了解除上述錯(cuò)誤，我們可以往submy_offset之下加一段代碼onerrorresumenext注意以下代碼都不再添加sub"代碼名稱"和endsub請(qǐng)自己添加！給當(dāng)前單元格賦值：ActiveCell.Value="你好！"給特定單元格參加一段代碼：例如：在A1單元格中插入"HELLO"Range("a1”).value="hello”又如：你現(xiàn)在的工作簿在sheet1上，你要往sheet2的Al單元格中插入"HELLO"1.sheets("shee

28、t2").selectrange("a1").value="hello"或2.Sheets("sheet1").Range("a1").Value="hello"說(shuō)明：1. sheet2被翻開(kāi)，然后在將“HELLO"放A1至單元格中。2. sheet2不被翻開(kāi)，將“HELLO"放不到單元格中。隱藏工作表'隱藏SHEET1這張工作表sheets("sheet1").Visible=False'顯示SHEET1這張工作表sheets(

29、"sheet1").Visible=True有時(shí)候我們想把所有的EXCEL中的SHEET都打印預(yù)覽，請(qǐng)使用該段代碼，它將在你現(xiàn)有的工作簿中循環(huán)，直到最后一個(gè)工作簿結(jié)束循環(huán)預(yù)覽。DimmyAsWorksheetForEachmyInWorksheetsmy.PrintPreviewNextmy得到當(dāng)前單元格的地址msgboxActiveCell.Address得到當(dāng)前日期及時(shí)間msgboxdate&chr(13)&time保護(hù)工作簿ActiveSheet.Protect取消保護(hù)工作簿ActiveSheet.Unprotect給當(dāng)前工作簿改名為"liu

30、”ActiveSheet.Name="liu"翻開(kāi)一個(gè)應(yīng)用程序AppActivate(Shell("C:WINDOWSCALC.EXE")增加一個(gè)工作簿W(wǎng)orksheets.Add刪除當(dāng)前工作簿activesheet.delete翻開(kāi)一個(gè)文件Workbooks.OpenFileName:="C:MyDocumentsBook2.xls"關(guān)閉當(dāng)前工作簿ActiveWindow.Close當(dāng)前單元格定為：左對(duì)齊Selection.HorizontalAlignment=xlLeft當(dāng)前單元格定為：中心對(duì)齊Selection.Horizon

31、talAlignment=xlCenter當(dāng)前單元格定為：右對(duì)齊Selection.HorizontalAlignment=xlRight當(dāng)前單元格為百分號(hào)風(fēng)格Selection.Style="Percent"當(dāng)前單元格字體為粗體Selection.Font.Bold=True當(dāng)前單元格字體為斜體Selection.Font.Italic=True當(dāng)前單元格字體為宋體20號(hào)字WithSelection.Font.Name="宋體".Size=20EndWithWith語(yǔ)句With對(duì)象.描述EndWith讓你的機(jī)器發(fā)出響聲BEEP去除單元格中所有文字、批注

32、、格式、所有的東西!ActiveCell.Clear測(cè)試選擇狀態(tài)的單元格的行數(shù)MsgBoxSelection.Rows.Count測(cè)試選擇狀態(tài)的單元格的列數(shù)MsgBoxSelection.Columns.Count測(cè)試選擇狀態(tài)的單元格的地址Selection.Address讓所有的錯(cuò)誤不再發(fā)生ONERRORRESUMENEXT產(chǎn)生錯(cuò)誤時(shí)讓錯(cuò)誤轉(zhuǎn)到另一個(gè)地方onerrorgotol'codel:'code刪除一個(gè)文件kill"c:1.txt"定制自己的狀態(tài)欄Application.StatusBar="現(xiàn)在時(shí)刻："&Time恢復(fù)自己

33、的狀態(tài)欄Application.StatusBar=false在運(yùn)行期執(zhí)行一個(gè)宏Application.Runmacro:="text”滾動(dòng)窗口到a1的位置ActiveWindow.ScrollRow=1ActiveWindow.ScrollColumn=1定制系統(tǒng)日期DimMyDate,MyDayMyDate=#12/12/69#MyDay=Day(MyDate)今天的年限D(zhuǎn)imMyDate,MyYearMyDate=DateMyYear=Year(MyDate)MsgBoxMyYear產(chǎn)生一個(gè)inputbox<輸入框>InputBox("Enternumbe

34、rofmonthstoadd")得到一個(gè)文件名：DimkkAsStringkk=Application.GetOpenFilename("EXCEL(*.XLS),*.XLS”,Title:=”提示：請(qǐng)翻開(kāi)一個(gè)EXCEL文件:")msgboxkk翻開(kāi)zoom顯示比例對(duì)話框Application.Dialogs(xlDialogZoom).Show激活字體對(duì)話框Application.Dialogs(xlDialogActiveCellFont).Show翻開(kāi)另存對(duì)話框DimkkAsStringkk=Application.GetSaveAsFilename(&qu

35、ot;excel(*.xls),*.xls")Workbooks.Openkk此段代碼尋找字符串中特定字符的位置，需要建立一個(gè)窗體，并在窗體中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3個(gè)文本框及COMMANDBUTTON1(按鈕)PrivateSubCommandButton1_Click()a=TextBox1.Textb=TextBox2.Textaa=Len(a)i=1DimYYAsStringIfb=""ThenExitSubDoIfInStr(i,a,b,vbTextCompare)=0ThenExitDokk=InStr(i,a,b

36、,vbTextCompare)YY=YY&CStr(kk)&"/"i=kk+1LoopWhileaa>=iTextBox3.Text=YYEndSubActiveX控件在Excel97中的運(yùn)用Excel97在工作表或圖表上可使用ActiveX控件，根據(jù)我使用的體會(huì)，在工作上處理控件時(shí)，必須注意和了解如下事項(xiàng)：(一)用Excel5.0/95工作簿文件格式保存Excel97工作簿時(shí)，將選擇ActiveX控件信息。當(dāng)用戶通過(guò)雙擊鼠標(biāo)來(lái)編輯內(nèi)嵌在其它應(yīng)用程序文檔中的Excel97工作簿時(shí)，該工作簿上的控件將不會(huì)正常工作。如果用戶是通過(guò)用右鍵單擊工作簿，然后選中

37、快捷菜單上的“翻開(kāi)"命令來(lái)編輯工作簿的話，工作簿上的控件就能正常工作了。(二)當(dāng)ActiveX控件處于激活狀態(tài)時(shí)，將禁用某些MicrosoftExcelVisualBasic方法和屬性。例如,當(dāng)某一控件激活時(shí)，就不能使用Sort方法，故下述按鈕單擊事件處理過(guò)程中的代碼將失敗(因?yàn)橛脩魡螕舭粹o后，該按鈕就處于激活狀態(tài))。PrivateSubCommandButton1ClickRange("a1:a10")SortKey1:=Range("a1)EndSub解決方法是通過(guò)選激活工作表上其它元素的方法來(lái)繞過(guò)這種問(wèn)題。例如，可用以下代碼對(duì)單元格區(qū)域排序：Pri

38、vateSubCommandButton1ClickRange("a1)ActivateRange("a1:a10")SortKey1:=Range("a1)CommandButton1ActivateEndSub(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject對(duì)象代表ActiveX控件。如果要用編程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。FormsCommandButton1Worksheets(1)OLEObjectsAddLeft:=10

39、,Top:=10,Height:=20,Width:=100因?yàn)锳ctiveX控件也可用OLEObjects集合中的OLEObject對(duì)象代表，所以也可用該集合中的對(duì)象來(lái)設(shè)置控件的屬性。例如要設(shè)置控件"CommandBotton1"的"左邊位置"屬性。Worksheets。)OLEObjects("CommandButton1")Left=10那些不屬于OLEObject對(duì)象屬性的控件屬性，可通過(guò)由Object屬性返回的實(shí)際控件對(duì)象來(lái)設(shè)置。例如要設(shè)置控件"CommandButton1"的標(biāo)題。Worksheets(

40、1)OLEObjects(CommandButton1”)ObjectCaption="runme"因?yàn)樗械腛LE對(duì)象也是Shapes集合的成員，所以也可用該集合設(shè)置假設(shè)干控件的屬性。例如要對(duì)齊第一張工作表上所有控件的左邊框。ForEachsInWorksheets(1)ShapesIfsType=msoOLEControlObjectThensLeft=10Next請(qǐng)注意，當(dāng)在控件所在工作表的類模塊之外使用控件的名稱時(shí)，必須用工作表的名稱限定該控件的名稱。在工作表上ActiveX控件的事件處理過(guò)程中，Me關(guān)鍵字所指向的是工作表，而非控件在Excel中利用VBA創(chuàng)立多級(jí)選

41、單Excel是我們常用的報(bào)表處理軟件之一，對(duì)于大多數(shù)人來(lái)說(shuō)只是使用它進(jìn)行打印報(bào)表，沒(méi)有注意其他功能，其實(shí)利用Excel內(nèi)嵌的VBA語(yǔ)言完全可以快速開(kāi)發(fā)出自己企業(yè)的應(yīng)用系統(tǒng)來(lái)，而且應(yīng)用系統(tǒng)界面與其它專業(yè)編程語(yǔ)言相當(dāng)相似。下面筆者簡(jiǎn)單通過(guò)一個(gè)實(shí)例說(shuō)明如何利用VBA創(chuàng)立多級(jí)選單。首先，我們對(duì)Excel中兩個(gè)重要的內(nèi)置函數(shù)auto_open()和auto_close()作一簡(jiǎn)單說(shuō)明。auto_open():在翻開(kāi)工作簿時(shí)系統(tǒng)將自動(dòng)執(zhí)行該函數(shù)，因此我們可以在該函數(shù)中調(diào)用自己應(yīng)用程序的選單函數(shù)以及其它需要初始化設(shè)置的函數(shù)及宏語(yǔ)句；“飲食效勞業(yè)"子選單'以下三句為在“第三產(chǎn)業(yè)"選

42、單下增加“概況、范疇"二項(xiàng)選單項(xiàng)和MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第二產(chǎn)業(yè)”).MenuItems.AddCaption:="概況",OnAction:="概況"MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第二產(chǎn)業(yè)”).MenuItems.AddCaption:="范疇",OnAction:="范疇"MenuBars

43、("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第二產(chǎn)業(yè)").MenuItems.AddMenuCaption:="飲食效勞業(yè)"'以下二句為在“飲食效勞業(yè)"選單下增加“酒店1、酒店2二項(xiàng)選單項(xiàng)MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第二產(chǎn)業(yè)").MenuItems("飲食效勞業(yè)").MenuItems.AddCaption:="酒店1”,OnAc

44、tion:="酒店1"MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第二產(chǎn)業(yè)").MenuItems("飲食效勞業(yè)").MenuItems.AddCaption:="酒店2”,OnAction:="酒店2"'激活自定義選單MenuBars("MyMenu").Activateauto_close():在關(guān)閉工作簿時(shí)系統(tǒng)將自動(dòng)執(zhí)行該函數(shù)。所以我們需要在該函數(shù)中放置刪除用戶自定義選單語(yǔ)句，否那么只有退出E

45、xcel才能恢復(fù)EXCEL的系統(tǒng)選單。在以下語(yǔ)句中，我們定義了選單設(shè)置函數(shù)序內(nèi)注釋，詳細(xì)代碼如下：'自定義多級(jí)選單函數(shù)OpenMyMenu(),用于設(shè)置多級(jí)選單，其他有關(guān)說(shuō)明見(jiàn)程SubOpenMyMenu()OnErrorResumeNextMenuBars("MyMenu").Delete'刪除自定義選單MenuBars.Add("MyMenu")'自定義選單項(xiàng)Sheets("sheet1”).SelectMenuBars("MyMenu").Menus.AddCaption:="'

46、;增加第一個(gè)選單項(xiàng)“金融"金融”'以下三句為在“金融"選單下增加“銀行法、貨幣政策和條例"三項(xiàng)選單項(xiàng)MenuBars("MyMenu").Menus("MenuBars("MyMenu").Menus("政策"金融").MenuItems.AddCaption:="金融").MenuItems.AddCaption:="銀行法",OnAction:="銀行法"貨幣政策”,OnAction:=”貨幣MenuBars(&q

47、uot;MyMenu").Menus("'以下為創(chuàng)立如下圖的多級(jí)選單金融”).MenuItems.AddCaption:="條例",OnAction:="條例”MenuBars("MyMenu").Menus.AddCaption:="'以下三句為在“經(jīng)濟(jì)"選單下增加經(jīng)濟(jì)"'建立選單項(xiàng)“農(nóng)業(yè)、工業(yè)和第三產(chǎn)業(yè)"三項(xiàng)選單項(xiàng)MenuBars("MyMenu").Menus("MenuBars("MyMenu").Men

48、us("MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems.AddCaption:="經(jīng)濟(jì)").MenuItems.AddCaption:="經(jīng)濟(jì)").MenuItems.AddMenuCaption:="農(nóng)業(yè)",OnAction:="工業(yè)",OnAction:="第三產(chǎn)業(yè)"農(nóng)業(yè)"工業(yè)"EndSub'系統(tǒng)自動(dòng)翻開(kāi)運(yùn)行宏Subauto_open()OpenMyMenu'調(diào)用用戶選單函

49、數(shù)EndSubSubauto_close()'系統(tǒng)自動(dòng)關(guān)閉運(yùn)行宏OnErrorResumeNext忽略錯(cuò)誤MenuBars("MyMenu").Delete'刪除自定義選單EndSub讀者可以在自己的工作簿選單“工具"中的“宏"下，創(chuàng)立以上三個(gè)函數(shù)并將以上函數(shù)語(yǔ)句拷貝到其中即可運(yùn)行。66、.用VBA(編程)保護(hù)Excel文檔VBAVisualBasicforApplication是Excel應(yīng)用程序中功能非常強(qiáng)大的編程語(yǔ)言，為了標(biāo)準(zhǔn)不同的用戶對(duì)Excel應(yīng)用程序的訪問(wèn)能力，需要對(duì)Excel文檔及有關(guān)的數(shù)據(jù)進(jìn)行有效的保護(hù)，這里根據(jù)自己及同行

50、們的體會(huì)，從以下二個(gè)方面介紹用VBA編程法實(shí)現(xiàn)對(duì)Excel文檔的保護(hù)。1. 對(duì)工作簿的保護(hù)利用VBA中Workbook對(duì)象的SaveAs方法實(shí)現(xiàn)對(duì)工作簿的保護(hù)，下面就對(duì)SaveAs有關(guān)的參量作一介紹：Filename:該字符串表示要保存的文件名。可包含完整路徑。如果不指定路徑，MicrosoftExcel將文件保存到當(dāng)前文件夾。FileFormat:可選，文件的保存格式。Password:為一個(gè)區(qū)分大小寫的字符串不超過(guò)15個(gè)字符，用于指定文件的保護(hù)密碼。WriteResPassword:該字符串表示文件的寫保護(hù)密碼。如果文件保存時(shí)帶有密碼，但翻開(kāi)文件時(shí)不輸入密碼，那么該文件以只讀模式翻開(kāi)。Re

51、adOnlyRecommended:如果為True那么在翻開(kāi)文件時(shí)顯示一條信息，提示該文件以只讀模式翻開(kāi)。下例就是在Excel應(yīng)用程序中添加一工作簿，將工作簿按常規(guī)文件格式存為“C:經(jīng)濟(jì)評(píng)價(jià).xls"文件，并給該文件指定保護(hù)密碼“12"以及寫保護(hù)密碼“23。Sub保護(hù)工作簿NewWorkbook=Workbooks.add2. 經(jīng)濟(jì)評(píng)價(jià).xls",FileFormat:=XlNormal,Password:="12",WriteResPassword:="23"Endsub利用VBA中Workbook對(duì)象的Protect方法

52、對(duì)工作簿的結(jié)構(gòu)和窗口進(jìn)行保護(hù)，Workbook對(duì)象的Protect方法帶有以下三個(gè)參量：Password:為加在工作表或工作簿上區(qū)分大小寫的密碼字符串。如果省略本參數(shù)，不用密碼就可以取消對(duì)該工作簿的保護(hù)。否那么，取消對(duì)該工作表或工作簿的保護(hù)時(shí)必須提供該密碼。如果忘記了密碼，就無(wú)法取消對(duì)該工作表或工作簿的保護(hù)。最好在平安的地方保存一份密碼及其對(duì)應(yīng)文檔名的列表。Structure:假設(shè)為True那么保護(hù)工作簿結(jié)構(gòu)工作簿中工作表的相對(duì)位置。默認(rèn)值為False。Windows假設(shè)為True那么保護(hù)工作簿窗口。下例就是對(duì)一名為“經(jīng)濟(jì)評(píng)價(jià).xls"的工作簿實(shí)現(xiàn)“結(jié)構(gòu)"和“窗口"

53、;保護(hù)：Sub保護(hù)工作簿W(wǎng)orkbooks'經(jīng)濟(jì)評(píng)價(jià)”.ProtectPassword:="1234”,Structure:=True,Windows:=TrueEndsubWorkbook對(duì)象的Unprotect方法用于取消對(duì)工作簿的保護(hù)。Unprotect方法只有一個(gè)參量，就是保護(hù)工作表時(shí)所用的口令。3. 對(duì)工作簿進(jìn)行隱藏保護(hù)，可使他人無(wú)法看到其對(duì)應(yīng)的窗口。操作方法如下：在VBA中使用Workbook對(duì)象下面的Windows對(duì)象的Visible屬性對(duì)工作簿進(jìn)行隱藏和取消隱藏，Visible屬性的值可取“True"和“False"兩種。下面程序代碼完成對(duì)

54、工作簿"book.xls"的隱藏：Sub隱藏工作簿W(wǎng)orkbooks("book").ActivateActiveWindow.Visible=FalseEndsub或：Sub隱藏工作簿W(wǎng)orkbooks("book").Windows1.Visible=FalseEndsub對(duì)工作表的保護(hù).對(duì)工作表實(shí)現(xiàn)口令保護(hù)利用VBA調(diào)用Worksheet對(duì)象的Protect方法對(duì)工作表進(jìn)行保護(hù)，Protect帶有以下參量：Password用于保護(hù)工作表的口令。Drawingobjects假設(shè)為True，那么對(duì)工作表中的Drawingobject

55、s對(duì)象進(jìn)行保護(hù)，缺省值為True。Contents假設(shè)為True,那么對(duì)單元格內(nèi)容進(jìn)行保護(hù)，缺省值為True。下面程序代碼完成對(duì)工作表“根底數(shù)據(jù)表"的保護(hù)：1 Sub保護(hù)工作表Worksheets”根底數(shù)據(jù)表".ProtectPassword:="1234”Endsub.對(duì)工作表實(shí)現(xiàn)隱藏保護(hù)，使他人無(wú)法看到工作表：利用VBA設(shè)置Worksheet對(duì)象的Visible屬性來(lái)隱藏工作表；Visible屬性的值為以下三個(gè)值中的一個(gè)：True工作表為顯示狀態(tài)。False工作表為隱藏狀態(tài)。XlVerHidden工作表為隱藏狀態(tài)，且用戶不能通過(guò)"取消隱藏"

56、對(duì)話框?qū)⑵涓臑轱@示狀態(tài)。當(dāng)Visible的值為XlVerHidden時(shí)，只能利用VBA將其重新設(shè)置為True。Sub隱藏工作表Worksheets("根底數(shù)據(jù)表").Visible=FalseEndsub67、求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬(wàn)元”的最簡(jiǎn)代碼.求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬(wàn)元"的最簡(jiǎn)代碼.或能完成此功能的最便捷的命令操作寫了一個(gè)，拋磚引玉：Subconvt()DimcelAsRangeDimdecAsVariantApplication.EnableEvents=Falseyesorno=MsgBox("確實(shí)將

57、區(qū)域所有數(shù)值轉(zhuǎn)換為"萬(wàn)元"？",vbYesNo+vbQuestion+vbDefaultButtonl)Ifyesorno=vbYesThen1:dec=Application.InputBox("請(qǐng)輸入小數(shù)位數(shù)："，Default:=0,Type:=1)Ifdec=""ThenGoTo1EndIfForEachcelInSelectionIfIsNumeric(cel.Value)Then'cel=(Round(cel.Value/10000,2)&"萬(wàn)元"cel=(Round(cel.

58、Value/10000,dec)EndIfNextElseIfyesorno=vbNoThenExitSubEndIfEndSub以下當(dāng)為最簡(jiǎn)代碼吧.SubMacro2()Selection.NumberFormatLocal="#"".”"#,”EndSub68、在VBA開(kāi)發(fā)環(huán)境中，點(diǎn)擊工具附加控件，出現(xiàn)如下窗口：在可選控件中選擇microsoftorogressbarcontrol,再點(diǎn)擊確定，這時(shí)，你會(huì)發(fā)現(xiàn)在你的工具箱中增加了進(jìn)度條工具，如圖：下面說(shuō)說(shuō)進(jìn)度條的用法：屬性：Max:設(shè)置進(jìn)度條控件的最大值Min:設(shè)置進(jìn)度條控件的最小值Value:設(shè)置進(jìn)

59、度條控件對(duì)象的當(dāng)前值Scrolling:進(jìn)度條的式樣，即一格一格的進(jìn)度條或是沒(méi)有間隔的進(jìn)度條。例子：PrivateSubUserForm_Activate()Fori=1to5000ProgressBar1.Max=5000'設(shè)置進(jìn)度條控件的最大值ProgressBar1.Value=I'進(jìn)度條控件對(duì)象的當(dāng)前值nextEndSub在程序中參加進(jìn)度條的方法是將ProgressBar1.Max=最大值，ProgressBar1.Value=當(dāng)前值放入循環(huán)中去。69、Excel是一個(gè)優(yōu)秀的電子表格軟件，如果你編的程序需要以報(bào)表的形式顯示最終結(jié)果，它會(huì)是個(gè)不錯(cuò)的選擇。你可以通過(guò)VB控制

60、Excel顯示數(shù)據(jù)表格。如果你不愿意深入了解Excel這些瑣碎的細(xì)節(jié)，也不是沒(méi)有權(quán)宜之計(jì)：你可以翻開(kāi)Excel中的工具宏錄制新宏，然后進(jìn)行手工操作，結(jié)束后把所錄的宏代碼貼進(jìn)你的VB程序就行。這樣得到的程序一般都能正常運(yùn)行，但其中的宏代碼往往不夠簡(jiǎn)潔，效率和可讀性都不高。Excel編程碰到的第一個(gè)問(wèn)題是表頭。有時(shí)表頭的形式比擬復(fù)雜，需要橫向或縱向合并單元格。請(qǐng)放心，只要沒(méi)有斜杠，Excel都能應(yīng)付得了。例如合并A2A5這4個(gè)單元格，你錄制的宏代碼會(huì)是這樣：Range("A2:A5").SelectWithSelection.HorizontalAlignment=xlCent

61、er.VerticalAlignment=xlBottom.WrapText=False.Orientation=0.AddIndent=False.ShrinkToFit=False.MergeCells=FalseEndWithSelection.Merge而自己編程只要一句Range.("A2:A5)."mergecells=True就可以解決問(wèn)題。表頭形式定了，再就是表頭的內(nèi)容。如果單元格中的文本長(zhǎng)度超過(guò)了列寬，往往只能顯示局部?jī)?nèi)容，行尾那一格的內(nèi)容那么會(huì)“越境"進(jìn)入右邊那個(gè)空白單元格，很不美觀。這個(gè)問(wèn)題可以通過(guò)在程序中設(shè)置列寬加以解決。Columns(14).columnwidth=12'設(shè)14敏U列寬為12缺省列寬為8.38如果你不愿意勞神去逐列估計(jì)實(shí)際所需的列寬，干脆來(lái)一行Columns("a:i").autofit到i列色動(dòng)調(diào)整列寬讓Excel隨機(jī)應(yīng)變吧。但也許你不喜歡這種方法，認(rèn)為表頭撐大了列寬，弄得瀏覽一張小表格還得向右滾動(dòng)，太不方便了。要是能保持默認(rèn)列寬，讓文本自動(dòng)換行就好了。沒(méi)問(wèn)題，Excel包你滿意。Rows(3).WrapText=True'讓第三行各單元格中的文本自動(dòng)換行不過(guò)你最好再加一句Rows(3).Vertica