EXCEL VBA 基礎(chǔ) Excel 最重要的應(yīng)用就是利用公式進行計算。無論輸入是純粹的數(shù)字運算,還是引用其他單元格計算,只要在一個單元格中輸入公式,就能得到結(jié)果。這個直接顯示結(jié)果的設(shè)計對于絕大多數(shù)場合來說都是適用的,但某些情況下就不那么讓人滿意了。比如說在做工程施工的預(yù)結(jié)算編寫,使用Excel,既要寫出工程量的計算式,也要看到它的結(jié)果,于是這樣相同的公式在Excel里面要填兩次,一次在文本格式的單元格中輸入公式,一次是在數(shù)據(jù)格式的單元格中輸入公式讓Excel計算結(jié)果。如何既能看到公式又能看到結(jié)果呢?這個問題筆者認為可以從兩個方面考慮:一種方法是所謂“已知結(jié)果,顯示公式”,先在數(shù)據(jù)格式單元格中輸入公式讓Excel計算結(jié)果,然后在相鄰的單元格中看到公式;另一種方法所謂“已知公式,顯示結(jié)果”,就是先在一個文本格式的單元格中輸入公式,在相鄰的單元格中看到結(jié)果。
★已知結(jié)果,顯示公式
假設(shè)C列為通過公式計算得到的結(jié)果(假設(shè)C1為“=A1+B1”,或者直接是數(shù)字運算“=2+3”),而相鄰的D列是你需要顯示公式的地方(即D1應(yīng)該顯示為“=A1+B1”或者“=2+3”)。 1. 打開“工具”菜單選擇“選項”命令,出現(xiàn)“選項”對話框。 2. 在“常規(guī)”選項卡中,選中“R1C1引用方式”選項。 3. 定義名稱,將“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。這里的RC[-1]含義是如果在當(dāng)前單元格的同行前一列單元格中有公式結(jié)果,則在當(dāng)前單元格中得到公式內(nèi)容,即在含公式結(jié)果單元格的同行后一列單元格顯示公式內(nèi)容;如果將RC[-1]改為RC[1],則在公式結(jié)果的同行前一列單元格顯示公式內(nèi)容。 4. 如果“引用位置”中含有“RC[-1]”,則在含公式結(jié)果單元格的同行后一列單元格中輸入“=FormulaofResult”即可得到公式;如果“引用位置”中含有“RC[1]”,則在含公式結(jié)果單元格的同行前一列單元格中輸入“=FormulaofResult”即可得到公式。 提示:如果想要在含公式結(jié)果單元格的同行后數(shù)第2列中顯示公式內(nèi)容,則需要把“引用位置”中的“RC -1 ”改為“RC -2 ”。 ★已知公式,顯示結(jié)果 假設(shè)C列為輸入的沒有等號公式(假設(shè)C1為“A1+B1”),而相鄰的D列是你需要存放公式計算結(jié)果的地方(即D1顯示A1和B1單元格相加的結(jié)果)。 1. 選中D1,然后打開“插入”菜單選擇“名稱”命令中的“定義”子命令,出現(xiàn)“定義名稱”對話框。 2. 在“在當(dāng)前工作表中的名稱”輸入欄中輸入定義的名稱“ResultofFomula”,在下方的“引用位置”編輯欄中輸入“=EVALUATE(Sheet1!C1)”,單擊[確認]按鈕退出。 3. 在 D1中輸入“=ResultofFomula”,然后選中按住右下角的填充柄向下拉動填充即可。 提示:EVALUATE 是Eexcel 4.0版的宏表函數(shù),Excel 2000和Excel 2002中還支持,但只可用于名稱定義中。 4. 填充后要按[F9]進行重算,如果C列的公式有改動,也需要及時按[F9]進行重算。 巧施妙計,就能讓公式和結(jié)果在Excel中和平共處了,你也試試吧。 62、http://www.yesky.com/20010724/190094_3.shtml Microsoft Excel是一款功能非常強大的電子表格軟件。它可以輕松地完成數(shù)據(jù)的各類數(shù)學(xué)運算,并用各種二維或三維圖形形象地表示出來,從而大大簡化了數(shù)據(jù)的處理工作。但若僅利用Excel的常用功能來處理較復(fù)雜的數(shù)據(jù),可能仍需進行大量的人工操作。但Excel的強大遠遠超過人們的想象--宏的引入使其具有了無限的擴展性,因而可以很好地解決復(fù)雜數(shù)據(jù)的處理問題。 隨著支持Windows的應(yīng)用程序的不斷增多和功能的不斷增強,越來越多的程序增加了宏處理來方便用戶的自由擴展。但初期各應(yīng)用程序所采用的宏語言并不統(tǒng)一,這樣用戶每使用一種應(yīng)用程序時都得重新學(xué)習(xí)一種宏語言。為了統(tǒng)一各種應(yīng)用程序下的宏,Microsoft推出了VBA(Visual Basic for Applications)語言。 VBA是從流行的Visual Basic編程語言中派生出來的一種面向應(yīng)用程序的語言,它適用于各種Windows應(yīng)用程序,可以解決各應(yīng)用程序的宏語言不統(tǒng)一的問題。除此之外,使用VBA語言還有如下優(yōu)點:1、VBA是一種通用程序語言,通過它不僅可以共享Microsoft相關(guān)的各種軟件(如Excel、Word、Access)……,而且隨著其它的一些軟件(如大名鼎鼎的AutoCAD2000)等對VBA的支持,這些軟件也已進入到了VBA的控制范圍;2、可以將用VBA編寫的程序復(fù)制到Visual Basic中調(diào)試并運行,從而實現(xiàn)用Visual Basic來控制有關(guān)的應(yīng)用程序;3、VBA提供的大量內(nèi)部函數(shù)大大簡化了用戶的操作。 對于而今的宏,不僅語言統(tǒng)一規(guī)范,而且其功能也已非常強大。但在大多數(shù)介紹Excel的"傻瓜書"、"指南"、"入門與提高"等參考書中往往略過不提,或淺淺帶過,讀者從中獲得的有關(guān)知識往往不足以應(yīng)付處理復(fù)雜數(shù)據(jù)的需求。為了完成工作,就讓我們一起來學(xué)習(xí)"宏"的妙用吧。 一)、宏的自學(xué) 首先需要明確的是,本文不可能教會您關(guān)于宏的所有內(nèi)容。您需要學(xué)會利用"錄制宏"的方法來學(xué)習(xí)宏:點擊Excel"工具"下拉菜單中"宏"下?quot;錄制新宏",此后可象平時一樣進行有關(guān)操作,待完成后停止錄制。然后再點擊"工具"下拉菜單中"宏"下"宏"的"編輯"選項即可打開剛才所錄制的宏的Visual Basic源程序,并且可以在此時的"幫助"下拉菜單中獲得有關(guān)的編程幫助。對錄制宏進行修改不僅可以學(xué)習(xí)宏的使用,還能大大簡化宏的編寫。 二)、基本概念 為了學(xué)習(xí)Excel中的宏,我們需要先了解以下一些基本概念。 1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有當(dāng)前打開的Excel工作簿,亦即所有打開的Excel文件;Workbook對應(yīng)Workbooks中的成員,即其中的Excel文件;ActiveWorkbook代表當(dāng)前處于活動狀態(tài)的工作簿,即當(dāng)前顯示的Excel文件;ThisWorkbook代表其中有Visual Basic代碼正在運行的工作簿。 在具體使用中可用Workbooks(index)來引用Workbook對象,其中index為工作簿名稱或編號;如Workbooks(1)、Workbooks("年度報表.xls")。而編號按照創(chuàng)建或打開工作簿的順序來確定,第一個打開的工作簿編號為1,第二個打開的工作簿為2……。 2、工作表:Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表,即一個Excel文件中的所有數(shù)據(jù)表頁;而Worksheet則代表其中的一個工作表;ActiveSheet代表當(dāng)前處于的活動狀態(tài)工作表,即當(dāng)前顯示的一個工作表。 可用Worksheets(index)來引用Worksheet對象,其中index為工作表名稱或索引號;如Worksheets(1)、Worksheets("第一季度數(shù)據(jù)")。工作表索引號表明該工作表在工作表標簽中的位置:第一個(最左邊的)工作表的索引號為1,最后一個(最右邊的)為Worksheets.Count。需要注意的是:在使用過程中Excel會自動重排工作表索引號,保持按照其在工作表標簽中的從左至右排列,工作表的索引號遞增。因此,由于可能進行的工作表添加或刪除,工作表索引號不一定始終保持不變。 3、圖表:Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的圖表。該圖表既可為嵌入式圖表(包含在ChartObject中),也可為一個分開的(單獨的)圖表工作表。 Charts代表指定工作簿或活動工作簿中所有圖表工作表的集合,但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。使用Charts(index) 可引用單個Chart圖表,其中index是該圖表工作表的索引號或名稱;如Charts(1)、Charts("銷售圖表")。圖表工作表的索引號表示圖表工作表在工作簿的工作表標簽欄上的位置。Charts(1)是工作簿中第一個(最左邊的)圖表工作表;Charts(Charts.Count)為最后一個(最右邊的)圖表工作表。 ChartObject代表工作表中的嵌入式圖表,其作用是作為Chart對象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。 ChartObjects代表指定的圖表工作表、對話框編輯表或工作表上所有嵌入式圖表的集合??捎蒀hartObjects(index)引用單個ChartObject,其中index為嵌入式圖表的編號或名稱。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分別對應(yīng)"Sheet1"工作表中的第一個嵌入式圖表、以及名為"Chart1"的嵌入式圖表。 ActiveChart可以引用活動狀態(tài)下的圖表,不論該圖表是圖表工作表,或嵌入式圖表。而對于圖表工作表為活動工作表時,還可以通過ActiveSheet屬性引用之。 4、單元格:Cells、ActiveCell、Range、Areas Cells(row,column)代表單個單元格,其中row為行號,column為列號。如可以用Cells(1,1)、Cells(10,4)來引用"A1"、"D10" 單元格。ActiveCell代表活動工作表的活動單元格,或指定工作表的活動單元格。 Range代表工作表中的某一單元格、某一行、某一列、某一選定區(qū)域(該選定區(qū)域可包含一個或若干連續(xù)單元格區(qū)域)或者某一三維區(qū)域。 可用Range(arg)來引用單元格或單元格區(qū)域,其中arg可為單元格號、單元格號范圍、單元格區(qū)域名稱。如Range("A5")、Range("A1:H8")、Range("Criteria")。雖然可用Range("A1")返回單元格A1,但用Cells更方便,因為此時可用變量指定行和列。 可將Range與Cells結(jié)合起來使用,如Range(Cells(1,1),Cells(10,10))代表單元格區(qū)域"A1:J10";而expression.Cells(row,column)返回單元格區(qū)域中的一部分,其中expression是返回Range的表達式,row和column為相對于該區(qū)域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用單元格C5。 Areas為選定區(qū)域內(nèi)的連續(xù)單元格塊的集合,其成員是Range對象。而其中的每個Range對象代表選定區(qū)域內(nèi)與其它部分相分離的一個連續(xù)單元格塊。某些操作不能在選定區(qū)域內(nèi)的多個單元格塊上同時執(zhí)行;必須在選定區(qū)域內(nèi)的單元格塊數(shù)Areas.Count上循環(huán),對每個單獨的單元格塊分別執(zhí)行該操作。此時,可用Areas(index)從集合中返回單個Range對象,其中index為單元格塊編號;如Areas(1)。 5、 行與列:Rows、Columns、Row、Column Rows、Columns分別代表活動工作表、單元格區(qū)域范圍Range、指定工作表中的所有行數(shù)、列數(shù)。對于一個多選單元格區(qū)域范圍Range的Rows、Columns,只返回該范圍中第一個區(qū)域的行數(shù)、列數(shù)。例如,如果Range對象有兩個區(qū)域(areas)A1:B2和C3:D4,Rows.Count返回2而不是4。 可通過Rows(行號)、Columns(列號)來引用相應(yīng)的行與列;如Rows(3)、Columns(4)分別對應(yīng)第三行、D列。 利用Rows、Column可以獲得區(qū)域中第一塊的第一行行號、第一列列號,所得值均以十進制數(shù)表示。 三)、處理單元格 1、直接賦值與引用 將變量、常量值直接賦給單元格、或?qū)卧竦闹抵苯淤x給變量、常量,這是在Excel中最簡單的單元格賦值及引用方法。如下例將工作表"Sheet1"A1單元格的值賦給Integer變量I,并將I+1的值賦給當(dāng)前工作表中的B1單元格: Dim I As Integer I=Worksheets("Sheet1").Cells(1,1) Cells(1,2).Select '選定B1單元格,使其成為當(dāng)前單元格 ActiveCell=I+1 '以I+1為當(dāng)前單元格賦值 2、用公式賦值 在宏的使用中,可能會更多地用公式來給單元格賦值。如下例將相對于活動單元格左側(cè)第4列、向上第6行至向上第2行的單元格數(shù)值之和賦給活動單元格(以本行、本列為第0行、0列): ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])" 3、引用其它工作表中的單元格 當(dāng)賦值公式中需要引用其它工作表中的單元格時,在被引用的單元格前加上"工作表名!"即可。如以下即在賦值中引用了"Sheet1"工作表中的A1至A4單元格: Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)" 但需注意的是:當(dāng)被引用的工作表名中含有某些可能引起公式歧義的字符時,需要用單引號'將工作表名括起來。如: Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)" 4、引用其它工作簿中的單元格 在被引用單元格所在工作表名前加上"[工作簿名]",即可引用其它工作簿中的單元格。如: ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])" 同樣需注意的是:當(dāng)被引用的工作簿名中含有某些可能引起公式歧義的字符時,需要用中括號"["、"]"及單引號'將工作簿名括起來。如: Cells(1,2).Formula="=MIN('[1995-2000總結(jié).xls]1995-1996年'! $A$1:$A$6)" 5、避免循環(huán)引用 在上述公式賦值過程中,應(yīng)避免在公式中引用被賦值的單元格,防止循環(huán)引用錯誤。 6、添加批注 可按如下方法格給單元格添加批注: Dim 批注文本 As String 批注文本="批注示例" '準備批注文本 ActiveCell.AddComment '添加批注 ActiveCell.Comment.Text Text:=臨時 '寫入批注文本 ActiveCell.Comment.Visible=False '隱藏批注 7、添加、刪除、復(fù)制、剪切、粘貼單元格 Range("D10").Insert Shift:=xlToRight '在D10單元格處添加一新單元格,原D10格右移 Range("C2").Insert Shift:=xlDown '在C2單元格處添加一新單元格,原C2格下移 Rows(2).EntireRow.Insert '在第2行前添加一空白行,原第2行下移 Columns(3).EntireColumn.Insert '在C列前添加一空白列,原C列右移 Columns("A:D").Delete Shift:=xlToLeft '刪除A列至D列,其右側(cè)列左移 Rows("3:5").Delete Shift:=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、工作表圖表 以下為一添加工作表圖表的實例。 Charts.Add after:=Worksheets("Sheet1") '在"Sheet1"工作表之后添加新圖表工作表 ActiveChart.ChartType=xlXYScatterSmooth '圖表類型為XY平滑線散點圖 ActiveChart.SetSourceData Source:=Sheets("結(jié)點坐標").Range("A1:B69"), PlotBy:= _ xlColumns '圖表數(shù)據(jù)來源于"結(jié)點坐標"工作表的A1至B69單元格,且按列繪圖。 ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "節(jié)點坐標" '圖表標題"節(jié)點坐標" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x" 'x軸標題"x" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y軸標題"y" End With With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True '顯示x軸主網(wǎng)格線,默認情況下為顯示 .HasMinorGridlines = True '顯示x軸次網(wǎng)格線,默認情況下為不顯示 End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True '標出x軸主網(wǎng)格值,默認情況下為標注 .HasMinorGridlines = False '取消x軸次網(wǎng)格值標注,默認情況下為不標注 End With ActiveChart.Legend.Position = xlRight '圖例顯示在圖表右側(cè) 2、嵌入式圖表 嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同,而對圖表的設(shè)置基本類似。詳見下例。 Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在當(dāng)前工作表(0,0)坐標處添加寬200,高300的嵌入式圖表 嵌入表.Chart.ChartType = xlColumnClustered '圖表類型為簇狀柱形圖 嵌入表.Chart.SetSourceData Source:=Sheets(1).Range("A2:B2"), PlotBy:=xlRows '設(shè)置圖表數(shù)據(jù)來源 With 嵌入表.Chart .HasTitle = False '無圖表標題 .Axes(xlCategory, xlPrimary).HasTitle = False '無x軸標題 .Axes(xlValue, xlPrimary).HasTitle = False '無y軸標題 End With 五)、工作表 1、添加 Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表 Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表 2、移動 ActiveSheet.Move before:=Sheets(2) '將當(dāng)前工作表移動至第2工作表之前 3、命名 ActiveSheet.Name="工作表名" '將當(dāng)前工作表命名為"工作表名" 4、刪除 可以用以下語句刪除當(dāng)前工作表。 ActiveSheet.Delete 但在刪除前Excel會自動彈出提示框,需在用戶確認后方可執(zhí)行刪除。為避免這一干擾,可以先用以下語句關(guān)閉Excel的警告提示。 Application.DisplayAlerts = False 在刪除完成后,再重新打開Excel的警告提示 Application.DisplayAlerts = True 六)、工作簿 Excel的宏對工作簿的操作主要為保存。 Dim 存盤文件名 As String ActiveWorkbook.Save '保存當(dāng)前工作簿 存盤文件名="工作表名" ActiveWorkbook.SaveAs Filename:= 存盤文件名 '當(dāng)前工作簿另存為"工作表名.xls" 在另存時,若指定的存盤文件名不包含路徑,則保存在該工作簿的打開目錄下。而若此存盤文件已存在,也可用關(guān)閉Excel警告提示的方法以免其自動彈出提示框。 63、用VBA的幾個誤區(qū) 1、想通過Excel+vba來編程發(fā)財,不管怎么說,目前這種可能性很小。 2、錄制宏后的代碼不進行簡化,這種情況初學(xué)者常犯;或者不屑于用錄制宏,這種相反。 3、喜歡用.select、.copy、.active等,如果不是迫不得已,還是不要用這些東西好。 4、不喜歡用公式、函數(shù),什么都喜歡用程序;活用公式函數(shù)是我們學(xué)EXCEL中重要的重點,學(xué)會嵌套著用,很多事情都可以解決。譬如表1的A1單元格如果要等于表2的A列中的某個單元格,很多人都是用程序來直接賦值,數(shù)量少這也可以,但如果數(shù)量很多的話,為何不試用一下offset呢?偏移都指向同一個單元格,就當(dāng)是一個變量,改一下這個單元格的值,表1用offset的單元格的值就全部改了。 5、設(shè)計輸入數(shù)據(jù)的界面竟然用用戶窗口+文本框之類的東西,天,我為什么要用EXCEL,原因之一不就是圖個方便嗎?!直接在工作表中操作就是輸入數(shù)據(jù)最好的方法,如果一些功能你不想給別人用,頂多你屏蔽掉吧。 6、關(guān)閉程序的時候很喜歡退出整個EXCEL,這樣自我感覺更象一個完整的程序。其實完全有必要考慮其他用戶是否也在用EXCEL,所以,必須做好一下判斷,不要自作聰明全部退出來,還幫忙把每個工作簿都保存一下。 7、不喜歡用with,總是workbook("").worksheet("").range("").***一行行排得挺整齊的,還說都用復(fù)制,其實也不麻煩。 8、總想把VBA+EXCEL做得象一個程序一樣,其實,就因為它不獨立,所以才更加為我們喜愛,不是嗎? 64、用過VB的人都應(yīng)該知道如何聲明變量,在VBA中聲明變量和VB中是完全一樣的! 使用Dim語句 Dim a as integer '聲明A為整形變量 Dim a '聲明A為變體變量 Dim a as string '聲明A為字符串變量 Dim a,b,c as currency '聲明A,b,c為貨幣變量 聲明變量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(當(dāng)前不支持)、Date、String(只限變長字符串)、String * length(定長字符串)、Object、Variant、用戶定義類型或?qū)ο箢愋汀?br>強制聲明變量 Option Explicit 說明:該語句必在任何過程之前出現(xiàn)在模塊中。 聲明常數(shù),用來代替文字值。 Const ' 常數(shù)的默認狀態(tài)是 Private。 Const My = 456 ' 聲明 Public 常數(shù)。 Public Const MyString = "HELP" ' 聲明 Private Integer 常數(shù)。 Private Const MyInt As Integer = 5 ' 在同一行里聲明多個常數(shù)。 Const MyStr = "Hello", MyDouble As Double = 3.4567 在EXCEL97中,有一個十分好的功能,他就是把鼠標放置在一個有效數(shù)據(jù)單元格中,執(zhí)行該段代碼,你就可以將連在一起的一片數(shù)據(jù)全部選中。只要將該段代碼加入到你的模塊中。 Sub My_Select Selection.CurrentRegion.Select End sub 刪除當(dāng)前單元格中數(shù)據(jù)的前后空格。 sub my_trim Trim(ActiveCell.Value) end sub 使單元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'當(dāng)前單元格向左移動一格 ActiveCell.Offset(0, -1).Select'當(dāng)前單元格向右移動一格 ActiveCell.Offset(1 , 0).Select'當(dāng)前單元格向下移動一格 ActiveCell.Offset(-1 , 0).Select'當(dāng)前單元格向上移動一格 end sub 如果上述程序產(chǎn)生錯誤那是因為單元格不能移動,為了解除上述錯誤,我們可以往 sub my_offset 之下加一段代碼 on error resume next 注意以下代碼都不再添加 sub “代碼名稱” 和end sub請自己添加! 給當(dāng)前單元格賦值: ActiveCell.Value = "你好!?。? 給特定單元格加入一段代碼: 例如:在A1單元格中插入"HELLO" Range("a1").value="hello" 又如:你現(xiàn)在的工作簿在sheet1上,你要往sheet2的A1單元格中插入"HELLO" 1.sheets("sheet2").select range("a1").value="hello" 或2.Sheets("sheet1").Range("a1").Value = "hello" 說明: 1.sheet2被打開,然后在將“HELLO"放入到A1單元格中。 2.sheet2不被打開,將“HELLO"放入到A1單元格中。 隱藏工作表 '隱藏SHEET1這張工作表 sheets("sheet1").Visible=False '顯示SHEET1這張工作表 sheets("sheet1").Visible=True 有時候我們想把所有的EXCEL中的SHEET都打印預(yù)覽,請使用該段代碼,它將在你現(xiàn)有的工作簿中循環(huán),直到最后一個工作簿結(jié)束循環(huán)預(yù)覽。 Dim my As Worksheet For Each my In Worksheets my.PrintPreview Next my 得到當(dāng)前單元格的地址 msgbox ActiveCell.Address 得到當(dāng)前日期及時間 msgbox date & chr(13) & time 保護工作簿 ActiveSheet.Protect 取消保護工作簿 ActiveSheet.Unprotect 給當(dāng)前工作簿改名為 "liu" ActiveSheet.Name = "liu" 打開一個應(yīng)用程序 AppActivate (Shell("C:\WINDOWS\CALC.EXE")) 增加一個工作簿 Worksheets.Add 刪除當(dāng)前工作簿 activesheet.delete 打開一個文件 Workbooks.Open FileName:="C:\My Documents\Book2.xls" 關(guān)閉當(dāng)前工作簿 ActiveWindow.Close 當(dāng)前單元格定為:左對齊 Selection.HorizontalAlignment = xlLeft 當(dāng)前單元格定為:中心對齊 Selection.HorizontalAlignment = xlCenter 當(dāng)前單元格定為:右對齊 Selection.HorizontalAlignment = xlRight 當(dāng)前單元格為百分號風(fēng)格 Selection.Style = "Percent" 當(dāng)前單元格字體為粗體 Selection.Font.Bold = True 當(dāng)前單元格字體為斜體 Selection.Font.Italic = True 當(dāng)前單元格字體為宋體20號字 With Selection.Font .Name = "宋體" .Size = 20 End With With 語句 With 對象 .描述 End With 讓你的機器發(fā)出響聲 BEEP 清除單元格中所有文字、批注、格式、所有的東西! ActiveCell.Clear 測試選擇狀態(tài)的單元格的行數(shù) MsgBox Selection.Rows.Count 測試選擇狀態(tài)的單元格的列數(shù) MsgBox Selection.Columns.Count 測試選擇狀態(tài)的單元格的地址 Selection.Address 讓所有的錯誤不再發(fā)生 ON ERROR RESUME NEXT 產(chǎn)生錯誤時讓錯誤轉(zhuǎn)到另一個地方 on error goto l 'code l: 'code 刪除一個文件 kill "c:\1.txt" 定制自己的狀態(tài)欄 Application.StatusBar = "現(xiàn)在時刻: " & Time 恢復(fù)自己的狀態(tài)欄 Application.StatusBar = false 在運行期執(zhí)行一個宏 Application.Run macro:="text" 滾動窗口到a1的位置 ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1 定制系統(tǒng)日期 Dim MyDate, MyDay MyDate = #12/12/69# MyDay = Day(MyDate) 今天的年限 Dim MyDate, MyYear MyDate = Date MyYear = Year(MyDate) MsgBox MyYear 產(chǎn)生一個inputbox<輸入框> InputBox ("Enter number of months to add") 得到一個文件名: Dim kk As String kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示:請打開一個EXCEL文件:") msgbox kk 打開zoom顯示比例對話框 Application.Dialogs(xlDialogZoom).Show 激活字體對話框 Application.Dialogs(xlDialogActiveCellFont).Show 打開另存對話框 Dim kk As String kk = Application.GetSaveAsFilename("excel (*.xls), *.xls") Workbooks.Open kk 此段代碼尋找字符串中特定字符的位置,需要建立一個窗體,并在窗體中,放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3個文本框)及COMMANDBUTTON1(按鈕) Private Sub CommandButton1_Click() a = TextBox1.Text b = TextBox2.Text aa = Len(a) i = 1 Dim YY As String If b = "" Then Exit Sub Do If InStr(i, a, b, vbTextCompare) = 0 Then Exit Do kk = InStr(i, a, b, vbTextCompare) YY = YY & CStr(kk) & "/" i = kk + 1 Loop While aa >= i TextBox3.Text = YY End Sub ActiveX控件在Excel97中的運用 Excel97在工作表或圖表上可使用ActiveX控件,根據(jù)我使用的體會,在工作上處理控件時,必須注意和了解如下事項: (一)用Excel5.0/95工作簿文件格式保存Excel97工作簿時,將選擇ActiveX控件信息。當(dāng)用戶通過雙擊鼠標來編輯內(nèi)嵌在其它應(yīng)用程序文檔中的Excel97工作簿時,該工作簿上的控件將不會正常工作。如果用戶是通過用右鍵單擊工作簿,然后選中快捷菜單上的“打開”命令來編輯工作簿的話,工作簿上的控件就能正常工作了。 (二)當(dāng)ActiveX控件處于激活狀態(tài)時,將禁用某些MicrosoftExcelVisualBasic方法和屬性。例如,當(dāng)某一控件激活時,就不能使用Sort方法,故下述按鈕單擊事件處理過程中的代碼將失敗(因為用戶單擊按鈕后,該按鈕就處于激活狀態(tài))。 PrivateSubCommandButton1 Click Range(″a1:a10″) SortKey1:=Range(″a1″) EndSub 解決辦法是通過選激活工作表上其它元素的方法來繞過這種問題。例如,可用下列代碼對單元格區(qū)域排序: PrivateSubCommandButton1 Click Range(″a1″) Activate Range(″a1:a10″) SortKey1:=Range(″a1″) CommandButton1 Activate End Sub (三)在MicrosoftExcel中,用OLEObjects集合中的OLEObject對象代表ActiveX控件。如果要用編程的方式向工作表添加ActiveX控件,可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。 Worksheets(1) OLEObjects Add″Forms CommandButton 1″,_ Left:=10,Top:=10,Height:=20,Width:=100 因為ActiveX控件也可用OLEObjects集合中的OLEObject對象代表,所以也可用該集合中的對象來設(shè)置控件的屬性。例如要設(shè)置控件“CommandBotton1”的“左邊位置”屬性。 Worksheets(1) OLEObjects(″CommandButton1″) Left=10 那些不屬于OLEObject對象屬性的控件屬性,可通過由Object屬性返回的實際控件對象來設(shè)置。例如要設(shè)置控件“CommandButton1”的標題。 Worksheets(1) OLEObjects(″CommandButton1″) Object Caption=″runme″ 因為所有的OLE對象也是Shapes集合的成員,所以也可用該集合設(shè)置若干控件的屬性。例如要對齊第一張工作表上所有控件的左邊框。 ForEachsInWorksheets(1) Shapes Ifs Type=msoOLEControlObjectThens Left=10 Next 請注意,當(dāng)在控件所在工作表的類模塊之外使用控件的名稱時,必須用工作表的名稱限定該控件的名稱。在工作表上ActiveX控件的事件處理過程中,Me關(guān)鍵字所指向的是工作表,而非控件 65、在Excel中利用VBA創(chuàng)建多級選單 Excel是我們常用的報表處理軟件之一,對于大多數(shù)人來說只是使用它進行打印報表,沒有注意其他功能,其實利用Excel內(nèi)嵌的 VBA 語言完全可以快速開發(fā)出自己企業(yè)的應(yīng)用系統(tǒng)來,而且應(yīng)用系統(tǒng)界面與其它專業(yè)編程語言相當(dāng)相似。下面筆者簡單通過一個實例說明如何利用VBA創(chuàng)建多級選單。 首先,我們對Excel中兩個重要的內(nèi)置函數(shù)auto_open() 和 auto_close()作一簡單說明。 auto_open() :在打開工作簿時系統(tǒng)將自動執(zhí)行該函數(shù),因此我們可以在該函數(shù)中調(diào)用自己應(yīng)用程序的選單函數(shù)以及其它需要初始化設(shè)置的函數(shù)及宏語句; auto_close():在關(guān)閉工作簿時系統(tǒng)將自動執(zhí)行該函數(shù)。所以我們需要在該函數(shù)中放置刪除用戶自定義選單語句,否則只有退出Excel才能恢復(fù)EXCEL的系統(tǒng)選單。 在以下語句中,我們定義了選單設(shè)置函數(shù) OpenMyMenu(),用于設(shè)置多級選單,其他有關(guān)說明見程序內(nèi)注釋,詳細代碼如下: Sub OpenMyMenu() ′自定義多級選單函數(shù) On Error Resume Next ′忽略錯誤 MenuBars("MyMenu").Delete ′刪除自定義選單 MenuBars.Add ("MyMenu") ′自定義選單項 Sheets("sheet1").Select MenuBars("MyMenu").Menus.Add Caption:="金融" ′增加第一個選單項“金融” ′以下三句為在“金融”選單下增加“銀行法、貨幣政策和條例”三項選單項 MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="銀行法", OnAction:="銀行法" MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="貨幣政策", OnAction:="貨幣政策" MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="條例", OnAction:="條例" ′以下為創(chuàng)建如圖所示的多級選單 MenuBars("MyMenu").Menus.Add Caption:="經(jīng)濟" '建立選單項“經(jīng)濟” ′以下三句為在“經(jīng)濟”選單下增加“農(nóng)業(yè)、工業(yè)和第三產(chǎn)業(yè)”三項選單項 MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems.Add Caption:="農(nóng)業(yè)", OnAction:="農(nóng)業(yè)" MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems.Add Caption:="工業(yè)", OnAction:="工業(yè)" MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems.AddMenu Caption:="第三產(chǎn)業(yè)" ′以下三句為在“第三產(chǎn)業(yè)”選單下增加“概況、范疇”二項選單項和“飲食服務(wù)業(yè)”子選單 MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems("第三產(chǎn)業(yè)").MenuItems.Add Caption:="概況", OnAction:="概況" MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems("第三產(chǎn)業(yè)").MenuItems.Add Caption:="范疇", OnAction:="范疇" MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems("第三產(chǎn)業(yè)").MenuItems.AddMenu Caption:="飲食服務(wù)業(yè)" ′以下二句為在“飲食服務(wù)業(yè)”選單下增加“酒店1、酒店2”二項選單項 MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems("第三產(chǎn)業(yè)").MenuItems("飲食服務(wù)業(yè)").MenuItems.Add Caption:="酒店1", OnAction:="酒店1" MenuBars("MyMenu").Menus("經(jīng)濟").MenuItems("第三產(chǎn)業(yè)").MenuItems("飲食服務(wù)業(yè)").MenuItems.Add Caption:="酒店2", OnAction:="酒店2" MenuBars("MyMenu").Activate ′激活自定義選單 End Sub Sub auto_open() ′系統(tǒng)自動打開運行宏 OpenMyMenu ′調(diào)用用戶選單函數(shù) End Sub Sub auto_close() ′系統(tǒng)自動關(guān)閉運行宏 On Error Resume Next ′忽略錯誤 MenuBars("MyMenu").Delete ′刪除自定義選單 End Sub 讀者可以在自己的工作簿選單“工具”中的“宏”下,創(chuàng)建以上三個函數(shù)并將以上函數(shù)語句拷貝到其中即可運行。 66、.用VBA(編程)保護Excel文檔 VBA(Visual Basic for Application)是Excel應(yīng)用程序中功能非常強大的編程語言,為了規(guī)范不同的用戶對Excel應(yīng)用程序的訪問能力,需要對Excel文檔及有關(guān)的數(shù)據(jù)進行有效的保護, 這里根據(jù)自己及同行們的體會,從以下二個方面介紹用VBA編程法實現(xiàn)對Excel文檔的保護。 對工作簿的保護 1.利用VBA中Workbook對象的SaveAs方法實現(xiàn)對工作簿的保護, 下面就對SaveAs有 關(guān)的參量作一介紹: Filename:該字符串表示要保存的文件名。 可包含完整路徑。 如果不指定路徑,Microsoft Excel 將文件保存到當(dāng)前文件夾。 FileFormat: 可選,文件的保存格式。 Password :為一個區(qū)分大小寫的字符串(不超過15個字符) ,用于指定文件的保護密碼。 WriteResPassword: 該字符串表示文件的寫保護密碼。 如果文件保存時帶有密碼,但打開文件時不輸入密碼,則該文件以只讀模式打開。 ReadOnlyRecommended :如果為True則在打開文件時顯示一條信息,提示該文件以只讀模式打開。 下例就是在Excel應(yīng)用程序中添加一工作簿,將工作簿按常規(guī)文件格式存為“C:\pj\obj\經(jīng)濟評價.xls”文件,并給該文件指定保護密碼“12”以及寫保護密碼“23”。 Sub 保護工作簿() NewWorkbook = Workbooks.add NewWorkbook.SaveAs FileName: ="C: \pj\obj\經(jīng)濟評價.xls", FileFormat: = XlNormal,Password:="12",WriteResPassword:=″23″ End sub 2.利用VBA中Workbook對象的Protect方法對工作簿的結(jié)構(gòu)和窗口進行保護,Workbook對象的Protect方法帶有以下三個參量: Password: 為加在工作表或工作簿上區(qū)分大小寫的密碼字符串。 如果省略本參數(shù),不用密碼就可以取消對該工作簿的保護。否則,取消對該工作表或工作簿的保護時必須提供該密碼。如果忘記了密碼,就無法取消對該工作表或工作簿的保護。最好在安全的 地方保存一份密碼及其對應(yīng)文檔名的列表。 Structure: 若為True則保護工作簿結(jié)構(gòu)(工作簿中工作表的相對位置)。默認值為False。 Windows 若為True則保護工作簿窗口。 下例就是對一名為“經(jīng)濟評價.xls”的工作簿實現(xiàn)“結(jié)構(gòu)”和“窗口”保護: Sub 保護工作簿() Workbooks (″經(jīng)濟評價″) .Protect Password: ="1234", Structure: =True, Windows:=True End sub Workbook對象的Unprotect方法用于取消對工作簿的保護。Unprotect方法只有一個參量,就是保護工作表時所用的口令。 3.對工作簿進行隱藏保護,可使他人無法看到其對應(yīng)的窗口。操作方法如下: 在VBA中使用Workbook對象下面的Windows對象的Visible屬性對工作簿進行隱藏和取消隱藏,Visible屬性的值可取“True”和“False”兩種。 下面程序代碼完成對工作簿“book.xls”的隱藏: Sub 隱藏工作簿() Workbooks("book").Activate ActiveWindow.Visible = False End sub 或: Sub 隱藏工作簿() Workbooks("book").Windows(1).Visible=False End sub 對工作表的保護 1.對工作表實現(xiàn)口令保護利用VBA調(diào)用Worksheet對象的Protect方法對工作表進行保護,Protect帶有以下參量: Password 用于保護工作表的口令。 Drawingobjects 若為True,則對工作表中的Drawingobjects對象進行保護,缺省值為True。 Contents 若為True,則對單元格內(nèi)容進行保護,缺省值為True。 下面程序代碼完成對工作表“基礎(chǔ)數(shù)據(jù)表”的保護: Sub 保護工作表() Worksheets(″基礎(chǔ)數(shù)據(jù)表″).Protect Password:="1234" End sub 2.對工作表實現(xiàn)隱藏保護,使他人無法看到工作表: 利用VBA設(shè)置Worksheet對象的Visible屬性來隱藏工作表;Visible屬性的值為以下三個值中的一個: True 工作表為顯示狀態(tài)。 False 工作表為隱藏狀態(tài)。 XlVerHidden 工作表為隱藏狀態(tài),且用戶不能通過“取消隱藏”對話框?qū)⑵涓臑轱@示狀態(tài)。當(dāng)Visible的值為XlVerHidden時,只能利用VBA將其重新設(shè)置為True。 Sub 隱藏工作表() Worksheets("基礎(chǔ)數(shù)據(jù)表").Visible=False End sub 67、求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬元"的最簡代碼. 求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬元"的最簡代碼. 或能完成此功能的最便捷的命令操作. 寫了一個,拋磚引玉: Sub convt() Dim cel As Range Dim dec As Variant Application.EnableEvents = False yesorno = MsgBox("確實將區(qū)域所有數(shù)值轉(zhuǎn)換為“萬元”?", vbYesNo + vbQuestion + vbDefaultButton1) If yesorno = vbYes Then 1: dec = Application.InputBox("請輸入小數(shù)位數(shù):", Default:=0, Type:=1) If dec = "" Then GoTo 1 End If For Each cel In Selection If IsNumeric(cel.Value) Then 'cel = (Round(cel.Value / 10000, 2)) & "萬元" cel = (Round(cel.Value / 10000, dec)) End If Next ElseIf yesorno = vbNo Then Exit Sub End If End Sub 以下當(dāng)為最簡代碼吧. Sub Macro2() Selection.NumberFormatLocal = "#"".""#," End Sub 68、在VBA開發(fā)環(huán)境中,點擊工具――附加控件,出現(xiàn)如下窗口: 在可選控件中選擇microsoft orogressbar control,再點擊確定,這時,你會發(fā)現(xiàn)在你的工具箱中增加了進度條工具,如圖: 下面說說進度條的用法: 屬性:Max: 設(shè)置進度條控件的最大值 Min: 設(shè)置進度條控件的最小值 Value:設(shè)置進度條控件對象的當(dāng)前值 Scrolling: 進度條的式樣,即一格一格的進度條或是沒有間隔的進度條。 例子:Private Sub UserForm_Activate() For i = 1 to 5000 ProgressBar1.Max = 5000 ‘設(shè)置進度條控件的最大值 ProgressBar1.Value = I ‘進度條控件對象的當(dāng)前值 next End Sub 在程序中加入進度條的辦法是將ProgressBar1.Max=最大值,ProgressBar1.Value = 當(dāng)前值放入循環(huán)中去。 69、Excel是一個優(yōu)秀的電子表格軟件,如果你編的程序需要以報表的形式顯示最終結(jié)果,它會是個不錯的選擇。你可以通過VB控制Excel顯示數(shù)據(jù)表格。如果你不愿意深入了解Excel這些瑣碎的細節(jié),也不是沒有權(quán)宜之計:你可以打開Excel中的工具→宏→錄制新宏,然后進行手工操作,結(jié)束后把所錄的宏代碼貼進你的VB程序就行。這樣得到的程序一般都能正常運行,但其中的宏代碼往往不夠簡潔,效率和可讀性都不高。 Excel編程碰到的第一個問題是表頭。有時表頭的形式比較復(fù)雜,需要橫向或縱向合并單元格。請放心,只要沒有斜杠,Excel都能應(yīng)付得了。 例如合并A2~A5這4個單元格,你錄制的宏代碼會是這樣: Range("A2:A5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With Selection.Merge 而自己編程只要一句 Range.(“A2:A5”).mergecells=True 就可以解決問題。 表頭形式定了,再就是表頭的內(nèi)容。如果單元格中的文本長度超過了列寬,往往只能顯示部分內(nèi)容,行尾那一格的內(nèi)容則會“越境”進入右邊那個空白單元格,很不美觀。這個問題可以通過在程序中設(shè)置列寬加以解決。 Columns(14).columnwidth=12 ‘設(shè)置第14列列寬為12(缺省列寬為8.38) 如果你不愿意勞神去逐列估計實際所需的列寬,干脆來一行 Columns(“a:i”).autofit ‘a到i列自動調(diào)整列寬 讓Excel隨機應(yīng)變吧。 但也許你不喜歡這種方法,認為表頭撐大了列寬,弄得瀏覽一張小表格還得向右滾動,太不方便了。要是能保持默認列寬,讓文本自動換行就好了。沒問題,Excel包你滿意。 Rows(3).WrapText=True ‘讓第三行各單元格中的文本自動換行 不過你最好再加一句 Rows(3) .VerticalAlignment = xlTop 讓表頭自動向上對齊,這樣比較符合習(xí)慣。 你還可以給表頭打上底色,讓你的讀者不至于看了打哈欠。 Rows(2). Interior .ColorIndex = 5 設(shè)置第2行底色為藍色 再給表格的標題上色,這樣更醒目一點。 Rows(1).Font.ColorIndex=4 表頭完成后該填數(shù)據(jù)了,一個一個地填實在是太? ,如果你的數(shù)據(jù)是存放在一個二維數(shù)組中,那問題就簡單多了。 Dim Data(3,4) ………… ‘數(shù)據(jù)處理 Range(“a2:d4”).Value=Data 這樣可以一次填入一個表的所有數(shù)據(jù),夠快了吧!不過提醒一句,Range對象大小最好與數(shù)組匹配,小了無法顯示所有數(shù)據(jù),大了則會在空白單元格只填入“N/A”表示沒有取得數(shù)據(jù)。 如果需要在結(jié)果中顯示多個同樣規(guī)格的數(shù)據(jù)表,想在Range對象中加入循環(huán)變量,這也好辦。 Dim cell11,cell2 Dim Data(3,4) ………… For I =1 to 40 ………… ‘數(shù)據(jù)處理 Set cell1=Worksheets("Sheet1").Cells(5*I-4,1) Set cell2=Worksheets("Sheet1").Cells(5*I-2,4) Worksheets("Sheet1").Range(cell1,cell2).value=Data Next I 表格填完了,現(xiàn)在該打表格線了,以下幾條語句可以滿足你的要求: With Worksheets("Sheet1").Range(cell1,cell2).borders .LineStyle=xlContinuous .weight=xlThin End With |
|