不卡AV在线|网页在线观看无码高清|亚洲国产亚洲国产|国产伦精品一区二区三区免费视频

學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel基礎(chǔ)>

EXCEL VBA編程基礎(chǔ)

時(shí)間: 張偉670 分享

  Excel 最重要的應(yīng)用就是利用公式進(jìn)行計(jì)算。無(wú)論輸入是純粹的數(shù)字運(yùn)算,還是引用其他單元格計(jì)算,只要在一個(gè)單元格中輸入公式,就能得到結(jié)果。比如說(shuō)在做工程施工的預(yù)結(jié)算編寫(xiě),使用Excel,既要寫(xiě)出工程量的計(jì)算式,也要看到它的結(jié)果,于是這樣相同的公式在Excel里面要填兩次,一次在文本格式的單元格中輸入公式,一次是在數(shù)據(jù)格式的單元格中輸入公式讓Excel計(jì)算結(jié)果。如何既能看到公式又能看到結(jié)果呢?這個(gè)問(wèn)題筆者認(rèn)為可以從兩個(gè)方面考慮:一種方法是所謂“已知結(jié)果,顯示公式”,先在數(shù)據(jù)格式單元格中輸入公式讓Excel計(jì)算結(jié)果,然后在相鄰的單元格中看到公式;另一種方法所謂“已知公式,顯示結(jié)果”,就是先在一個(gè)文本格式的單元格中輸入公式,在相鄰的單元格中看到結(jié)果。

  假設(shè)C列為通過(guò)公式計(jì)算得到的結(jié)果(假設(shè)C1為“=A1+B1”,或者直接是數(shù)字運(yùn)算“=2+3”),而相鄰的D列是你需要顯示公式的地方(即D1應(yīng)該顯示為“=A1+B1”或者“=2+3”)。

  1. 打開(kāi)“工具”菜單選擇“選項(xiàng)”命令,出現(xiàn)“選項(xiàng)”對(duì)話框。

  2. 在“常規(guī)”選項(xiàng)卡中,選中“R1C1引用方式”選項(xiàng)。

  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列為輸入的沒(méi)有等號(hào)公式(假設(shè)C1為“A1+B1”),而相鄰的D列是你需要存放公式計(jì)算結(jié)果的地方(即D1顯示A1和B1單元格相加的結(jié)果)。

  1. 選中D1,然后打開(kāi)“插入”菜單選擇“名稱”命令中的“定義”子命令,出現(xiàn)“定義名稱”對(duì)話框。

  2. 在“在當(dāng)前工作表中的名稱”輸入欄中輸入定義的名稱“ResultofFomula”,在下方的“引用位置”編輯欄中輸入“=EVALUATE(Sheet1!C1)”,單擊[確認(rèn)]按鈕退出。

  3. 在 D1中輸入“=ResultofFomula”,然后選中按住右下角的填充柄向下拉動(dòng)填充即可。

  提示:EVALUATE 是Eexcel 4.0版的宏表函數(shù),Excel 2000和Excel 2002中還支持,但只可用于名稱定義中。

  4. 填充后要按[F9]進(jìn)行重算,如果C列的公式有改動(dòng),也需要及時(shí)按[F9]進(jìn)行重算。

  巧施妙計(jì),就能讓公式和結(jié)果在Excel中和平共處了,你也試試吧。

  5、http://www.yesky.com/20010724/190094_3.shtml Microsoft Excel是一款功能非常強(qiáng)大的電子表格軟件。它可以輕松地完成數(shù)據(jù)的各類數(shù)學(xué)運(yùn)算,并用各種二維或三維圖形形象地表示出來(lái),從而大大簡(jiǎn)化了數(shù)據(jù)的處理工作。但若僅利用Excel的常用功能來(lái)處理較復(fù)雜的數(shù)據(jù),可能仍需進(jìn)行大量的人工操作。但Excel的強(qiáng)大遠(yuǎn)遠(yuǎn)超過(guò)人們的想象--宏的引入使其具有了無(wú)限的擴(kuò)展性,因而可以很好地解決復(fù)雜數(shù)據(jù)的處理問(wèn)題。

  隨著支持Windows的應(yīng)用程序的不斷增多和功能的不斷增強(qiáng),越來(lái)越多的程序增加了宏處理來(lái)方便用戶的自由擴(kuò)展。但初期各應(yīng)用程序所采用的宏語(yǔ)言并不統(tǒng)一,這樣用戶每使用一種應(yīng)用程序時(shí)都得重新學(xué)習(xí)一種宏語(yǔ)言。為了統(tǒng)一各種應(yīng)用程序下的宏,Microsoft推出了VBA(Visual Basic for Applications)語(yǔ)言。

  VBA是從流行的Visual Basic編程語(yǔ)言中派生出來(lái)的一種面向應(yīng)用程序的語(yǔ)言,它適用于各種Windows應(yīng)用程序,可以解決各應(yīng)用程序的宏語(yǔ)言不統(tǒng)一的問(wèn)題。除此之外,使用VBA語(yǔ)言還有如下優(yōu)點(diǎn):1、VBA是一種通用程序語(yǔ)言,通過(guò)它不僅可以共享Microsoft相關(guān)的各種軟件(如Excel、Word、Access)……,而且隨著其它的一些軟件(如大名鼎鼎的AutoCAD2000)等對(duì)VBA的支持,這些軟件也已進(jìn)入到了VBA的控制范圍;2、可以將用VBA編寫(xiě)的程序復(fù)制到Visual Basic中調(diào)試并運(yùn)行,從而實(shí)現(xiàn)用Visual Basic來(lái)控制有關(guān)的應(yīng)用程序;3、VBA提供的大量?jī)?nèi)部函數(shù)大大簡(jiǎn)化了用戶的操作。

  對(duì)于而今的宏,不僅語(yǔ)言統(tǒng)一規(guī)范,而且其功能也已非常強(qiáng)大。但在大多數(shù)介紹Excel的"傻瓜書(shū)"、"指南"、"入門(mén)與提高"等參考書(shū)中往往略過(guò)不提,或淺淺帶過(guò),讀者從中獲得的有關(guān)知識(shí)往往不足以應(yīng)付處理復(fù)雜數(shù)據(jù)的需求。為了完成工作,就讓我們一起來(lái)學(xué)習(xí)"宏"的妙用吧。

  一)、宏的自學(xué)

  首先需要明確的是,本文不可能教會(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)剛才所錄制的宏的Visual Basic源程序,并且可以在此時(shí)的"幫助"下拉菜單中獲得有關(guān)的編程幫助。對(duì)錄制宏進(jìn)行修改不僅可以學(xué)習(xí)宏的使用,還能大大簡(jiǎn)化宏的編寫(xiě)。

  二)、基本概念

  為了學(xué)習(xí)Excel中的宏,我們需要先了解以下一些基本概念。

  1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbook

  Workbooks集合包含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代表其中有Visual Basic代碼正在運(yùn)行的工作簿。

  在具體使用中可用Workbooks(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、ActiveSheet

  Worksheets集合包含工作簿中所有的工作表,即一個(gè)Excel文件中的所有數(shù)據(jù)表頁(yè);而Worksheet則代表其中的一個(gè)工作表;ActiveSheet代表當(dāng)前處于的活動(dòng)狀態(tài)工作表,即當(dāng)前顯示的一個(gè)工作表。

  可用Worksheets(index)來(lái)引用Worksheet對(duì)象,其中index為工作表名稱或索引號(hào);如Worksheets(1)、Worksheets("第一季度數(shù)據(jù)")。工作表索引號(hào)表明該工作表在工作表標(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、ActiveChart

  Chart代表工作簿中的圖表。該圖表既可為嵌入式圖表(包含在ChartObject中),也可為一個(gè)分開(kāi)的(單獨(dú)的)圖表工作表。

  Charts代表指定工作簿或活動(dòng)工作簿中所有圖表工作表的集合,但不包括嵌入式在工作表或?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ì)象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。

  ChartObjects代表指定的圖表工作表、對(duì)話框編輯表或工作表上所有嵌入式圖表的集合??捎蒀hartObjects(index)引用單個(gè)ChartObject,其中index為嵌入式圖表的編號(hào)或名稱。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分別對(duì)應(yīng)"Sheet1"工作表中的第一個(gè)嵌入式圖表、以及名為"Chart1"的嵌入式圖表。

  ActiveChart可以引用活動(dòng)狀態(tài)下的圖表,不論該圖表是圖表工作表,或嵌入式圖表。而對(duì)于圖表工作表為活動(dòng)工作表時(shí),還可以通過(guò)ActiveSheet屬性引用之。

  4、單元格:Cells、ActiveCell、Range、Areas

  Cells(row,column)代表單個(gè)單元格,其中row為行號(hào),column為列號(hào)。如可以用Cells(1,1)、Cells(10,4)來(lái)引用"A1"、"D10" 單元格。ActiveCell代表活動(dòng)工作表的活動(dòng)單元格,或指定工作表的活動(dòng)單元格。

  Range代表工作表中的某一單元格、某一行、某一列、某一選定區(qū)域(該選定區(qū)域可包含一個(gè)或若干連續(xù)單元格區(qū)域)或者某一三維區(qū)域。

  可用Range(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í)可用變量指定行和列。

  可將Range與Cells結(jié)合起來(lái)使用,如Range(Cells(1,1),Cells(10,10))代表單元格區(qū)域"A1:J10";而expression.Cells(row,column)返回單元格區(qū)域中的一部分,其中expression是返回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、Columns、Row、Column

  Rows、Columns分別代表活動(dòng)工作表、單元格區(qū)域范圍Range、指定工作表中的所有行數(shù)、列數(shù)。對(duì)于一個(gè)多選單元格區(qū)域范圍Range的Rows、Columns,只返回該范圍中第一個(gè)區(qū)域的行數(shù)、列數(shù)。例如,如果Range對(duì)象有兩個(gè)區(qū)域(areas)A1:B2和C3:D4,Rows.Count返回2而不是4。

  可通過(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、直接賦值與引用

  將變量、常量值直接賦給單元格、或?qū)卧竦闹抵苯淤x給變量、常量,這是在Excel中最簡(jiǎn)單的單元格賦值及引用方法。如下例將工作表"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、用公式賦值

  在宏的使用中,可能會(huì)更多地用公式來(lái)給單元格賦值。如下例將相對(duì)于活動(dòng)單元格左側(cè)第4列、向上第6行至向上第2行的單元格數(shù)值之和賦給活動(dòng)單元格(以本行、本列為第0行、0列):

  ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])"

  3、引用其它工作表中的單元格

  當(dāng)賦值公式中需要引用其它工作表中的單元格時(shí),在被引用的單元格前加上"工作表名!"即可。如以下即在賦值中引用了"Sheet1"工作表中的A1至A4單元格:

  Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)"

  但需注意的是:當(dāng)被引用的工作表名中含有某些可能引起公式歧義的字符時(shí),需要用單引號(hào)'將工作表名括起來(lái)。如:

  Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)"

  4、引用其它工作簿中的單元格

  在被引用單元格所在工作表名前加上"[工作簿名]",即可引用其它工作簿中的單元格。如:

  ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"

  同樣需注意的是:當(dāng)被引用的工作簿名中含有某些可能引起公式歧義的字符時(shí),需要用中括號(hào)"["、"]"及單引號(hào)'將工作簿名括起來(lái)。如:

  Cells(1,2).Formula="=MIN('[1995-2000總結(jié).xls]1995-1996年'! $A class="main">

EXCEL VBA編程基礎(chǔ)

時(shí)間: 張偉670 分享

  5、避免循環(huán)引用

  在上述公式賦值過(guò)程中,應(yīng)避免在公式中引用被賦值的單元格,防止循環(huán)引用錯(cuò)誤。

  6、添加批注

  可按如下方法格給單元格添加批注:

  Dim 批注文本 As String

  批注文本="批注示例" '準(zhǔn)備批注文本

  ActiveCell.AddComment '添加批注

  ActiveCell.Comment.Text Text:=臨時(shí) '寫(xiě)入批注文本

  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、工作表圖表

  以下為一添加工作表圖表的實(shí)例。

  Charts.Add after:=Worksheets("Sheet1") '在"Sheet1"工作表之后添加新圖表工作表

  ActiveChart.ChartType=xlXYScatterSmooth '圖表類型為XY平滑線散點(diǎn)圖

  ActiveChart.SetSourceData Source:=Sheets("結(jié)點(diǎn)坐標(biāo)").Range("A1:B69"), PlotBy:= _

  xlColumns '圖表數(shù)據(jù)來(lái)源于"結(jié)點(diǎn)坐標(biāo)"工作表的A1至B69單元格,且按列繪圖。

  ActiveChart.Location Where:=xlLocationAsNewSheet

  With ActiveChart

  .HasTitle = True

  .ChartTitle.Characters.Text = "節(jié)點(diǎn)坐標(biāo)" '圖表標(biāo)題"節(jié)點(diǎn)坐標(biāo)"

  .Axes(xlCategory, xlPrimary).HasTitle = True

  .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x" 'x軸標(biāo)題"x"

  .Axes(xlValue, xlPrimary).HasTitle = True

  .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y軸標(biāo)題"y"

  End With

  With ActiveChart.Axes(xlCategory)

  .HasMajorGridlines = True '顯示x軸主網(wǎng)格線,默認(rèn)情況下為顯示

  .HasMinorGridlines = True '顯示x軸次網(wǎng)格線,默認(rèn)情況下為不顯示

  End With

  With ActiveChart.Axes(xlValue)

  .HasMajorGridlines = True '標(biāo)出x軸主網(wǎng)格值,默認(rèn)情況下為標(biāo)注

  .HasMinorGridlines = False '取消x軸次網(wǎng)格值標(biāo)注,默認(rèn)情況下為不標(biāo)注

  End With

  ActiveChart.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.SetSourceData Source:=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)題

  End With

  五)、工作表

  1、添加

  Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表

  Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表

  2、移動(dòng)

  ActiveSheet.Move before:=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)Excel的警告提示

  Application.DisplayAlerts = True

  六)、工作簿

  Excel的宏對(duì)工作簿的操作主要為保存。

  Dim 存盤(pán)文件名 As String

  ActiveWorkbook.Save '保存當(dāng)前工作簿

  存盤(pán)文件名="工作表名"

  ActiveWorkbook.SaveAs Filename:= 存盤(pán)文件名 '當(dāng)前工作簿另存為"工作表名.xls"

  在另存時(shí),若指定的存盤(pán)文件名不包含路徑,則保存在該工作簿的打開(kāi)目錄下。而若此存盤(pán)文件已存在,也可用關(guān)閉Excel警告提示的方法以免其自動(dòng)彈出提示框。

  用VBA的幾個(gè)誤區(qū):

  1、想通過(guò)Excel+vba來(lái)編程發(fā)財(cái),不管怎么說(shuō),目前這種可能性很小。

  2、錄制宏后的代碼不進(jìn)行簡(jiǎn)化,這種情況初學(xué)者常犯;或者不屑于用錄制宏,這種相反。

  3、喜歡用.select、.copy、.active等,如果不是迫不得已,還是不要用這些東西好。

  4、不喜歡用公式、函數(shù),什么都喜歡用程序;活用公式函數(shù)是我們學(xué)EXCEL中重要的重點(diǎn),學(xué)會(huì)嵌套著用,很多事情都可以解決。譬如表1的A1單元格如果要等于表2的A列中的某個(gè)單元格,很多人都是用程序來(lái)直接賦值,數(shù)量少這也可以,但如果數(shù)量很多的話,為何不試用一下offset呢?偏移都指向同一個(gè)單元格,就當(dāng)是一個(gè)變量,改一下這個(gè)單元格的值,表1用offset的單元格的值就全部改了。

  5、設(shè)計(jì)輸入數(shù)據(jù)的界面竟然用用戶窗口+文本框之類的東西,天,我為什么要用EXCEL,原因之一不就是圖個(gè)方便嗎?!直接在工作表中操作就是輸入數(shù)據(jù)最好的方法,如果一些功能你不想給別人用,頂多你屏蔽掉吧。

  6、關(guān)閉程序的時(shí)候很喜歡退出整個(gè)EXCEL,這樣自我感覺(jué)更象一個(gè)完整的程序。其實(shí)完全有必要考慮其他用戶是否也在用EXCEL,所以,必須做好一下判斷,不要自作聰明全部退出來(lái),還幫忙把每個(gè)工作簿都保存一下。

  7、不喜歡用with,總是workbook("").worksheet("").range("").***一行行排得挺整齊的,還說(shuō)都用復(fù)制,其實(shí)也不麻煩。

  8、總想把VBA+EXCEL做得象一個(gè)程序一樣,其實(shí),就因?yàn)樗华?dú)立,所以才更加為我們喜愛(ài),不是嗎?

  9、用過(guò)VB的人都應(yīng)該知道如何聲明變量,在VBA中聲明變量和VB中是完全一樣的!

  使用Dim語(yǔ)句

  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(只限變長(zhǎng)字符串)、String * length(定長(zhǎng)字符串)、Object、Variant、用戶定義類型或?qū)ο箢愋汀?/p>

  強(qiáng)制聲明變量

  Option Explicit

  說(shuō)明:該語(yǔ)句必在任何過(guò)程之前出現(xiàn)在模塊中。

  聲明常數(shù),用來(lái)代替文字值。

  Const

  ' 常數(shù)的默認(rèn)狀態(tài)是 Private。

  Const My = 456

  ' 聲明 Public 常數(shù)。

  Public Const MyString = "HELP"

  ' 聲明 Private Integer 常數(shù)。

  Private Const MyInt As Integer = 5

  ' 在同一行里聲明多個(gè)常數(shù)。

  Const MyStr = "Hello", MyDouble As Double = 3.4567

  在EXCEL97中,有一個(gè)十分好的功能,他就是把鼠標(biāo)放置在一個(gè)有效數(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)前單元格向左移動(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)一格

  end sub

  如果上述程序產(chǎn)生錯(cuò)誤那是因?yàn)閱卧癫荒芤苿?dòng),為了解除上述錯(cuò)誤,我們可以往

  sub my_offset 之下加一段代碼 on error resume next

  注意以下代碼都不再添加 sub “代碼名稱” 和end sub請(qǐng)自己添加!

  給當(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"

  說(shuō)明:

  1.sheet2被打開(kāi),然后在將“HELLO"放入到A1單元格中。

  2.sheet2不被打開(kāi),將“HELLO"放入到A1單元格中。

  隱藏工作表

  '隱藏SHEET1這張工作表

  sheets("sheet1").Visible=False

  '顯示SHEET1這張工作表

  sheets("sheet1").Visible=True

  有時(shí)候我們想把所有的EXCEL中的SHEET都打印預(yù)覽,請(qǐng)使用該段代碼,它將在你現(xiàn)有的工作簿中循環(huán),直到最后一個(gè)工作簿結(jié)束循環(huán)預(yù)覽。

  Dim my As Worksheet

  For Each my In Worksheets

  my.PrintPreview

  Next my

  得到當(dāng)前單元格的地址

  msgbox ActiveCell.Address

  得到當(dāng)前日期及時(shí)間

  msgbox date & chr(13) & time

  保護(hù)工作簿

  ActiveSheet.Protect

  取消保護(hù)工作簿

  ActiveSheet.Unprotect

  給當(dāng)前工作簿改名為 "liu"

  ActiveSheet.Name = "liu"

  打開(kāi)一個(gè)應(yīng)用程序

  AppActivate (Shell("C:/WINDOWS/CALC.EXE"))

  增加一個(gè)工作簿

  Worksheets.Add

  刪除當(dāng)前工作簿

  activesheet.delete

  打開(kāi)一個(gè)文件

  Workbooks.Open FileName:="C:/My Documents/Book2.xls"

  關(guān)閉當(dāng)前工作簿

  ActiveWindow.Close

  當(dāng)前單元格定為:左對(duì)齊

  Selection.HorizontalAlignment = xlLeft

  當(dāng)前單元格定為:中心對(duì)齊

  Selection.HorizontalAlignment = 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)字

  With Selection.Font

  .Name = "宋體"

  .Size = 20

  End With

  With 語(yǔ)句

  With 對(duì)象

  .描述

  End With

  讓你的機(jī)器發(fā)出響聲

  BEEP

  清除單元格中所有文字、批注、格式、所有的東西!

  ActiveCell.Clear

  測(cè)試選擇狀態(tài)的單元格的行數(shù)

  MsgBox Selection.Rows.Count

  測(cè)試選擇狀態(tài)的單元格的列數(shù)

  MsgBox Selection.Columns.Count

  測(cè)試選擇狀態(tài)的單元格的地址

  Selection.Address

  讓所有的錯(cuò)誤不再發(fā)生

  ON ERROR RESUME NEXT

  產(chǎn)生錯(cuò)誤時(shí)讓錯(cuò)誤轉(zhuǎn)到另一個(gè)地方

  on error goto l

  'code

  l:

  'code

  刪除一個(gè)文件

  kill "c:/1.txt"

  定制自己的狀態(tài)欄

  Application.StatusBar = "現(xiàn)在時(shí)刻: " & Time

  恢復(fù)自己的狀態(tài)欄

  Application.StatusBar = false

  在運(yùn)行期執(zhí)行一個(gè)宏

  Application.Run macro:="text"

  滾動(dòng)窗口到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)生一個(gè)inputbox<輸入框>

  InputBox ("Enter number of months to add")

  得到一個(gè)文件名:

  Dim kk As String

  kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示:請(qǐng)打開(kāi)一個(gè)EXCEL文件:")

  msgbox kk

  打開(kāi)zoom顯示比例對(duì)話框

  Application.Dialogs(xlDialogZoom).Show

  激活字體對(duì)話框

  Application.Dialogs(xlDialogActiveCellFont).Show

  打開(kāi)另存對(duì)話框

  Dim kk As String

  kk = Application.GetSaveAsFilename("excel (*.xls), *.xls")

  Workbooks.Open kk

  此段代碼尋找字符串中特定字符的位置,需要建立一個(gè)窗體,并在窗體中,放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3個(gè)文本框)及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中的運(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ò)用右鍵單擊工作簿,然后選中快捷菜單上的“打開(kāi)”命令來(lái)編輯工作簿的話,工作簿上的控件就能正常工作了。

  (二)當(dāng)ActiveX控件處于激活狀態(tài)時(shí),將禁用某些MicrosoftExcelVisualBasic方法和屬性。例如,當(dāng)某一控件激活時(shí),就不能使用Sort方法,故下述按鈕單擊事件處理過(guò)程中的代碼將失敗(因?yàn)橛脩魡螕舭粹o后,該按鈕就處于激活狀態(tài))。

  PrivateSubCommandButton1 Click

  Range(″a1:a10″) SortKey1:=Range(″a1″)

  EndSub

  解決辦法是通過(guò)選激活工作表上其它元素的方法來(lái)繞過(guò)這種問(wèn)題。例如,可用下列代碼對(duì)單元格區(qū)域排序:

  PrivateSubCommandButton1 Click

  Range(″a1″) Activate

  Range(″a1:a10″) SortKey1:=Range(″a1″)

  CommandButton1 Activate

  End Sub

  (三)在MicrosoftExcel中,用OLEObjects集合中的OLEObject對(duì)象代表ActiveX控件。如果要用編程的方式向工作表添加ActiveX控件,可用OLEObjects集合的Add方法。例如向第一張工作表添加命令按鈕。

  Worksheets(1) OLEObjects Add″Forms CommandButton 1″,_

  Left:=10,Top:=10,Height:=20,Width:=100

  因?yàn)锳ctiveX控件也可用OLEObjects集合中的OLEObject對(duì)象代表,所以也可用該集合中的對(duì)象來(lái)設(shè)置控件的屬性。例如要設(shè)置控件“CommandBotton1”的“左邊位置”屬性。

  Worksheets(1) OLEObjects(″CommandButton1″) Left=10

  那些不屬于OLEObject對(duì)象屬性的控件屬性,可通過(guò)由Object屬性返回的實(shí)際控件對(duì)象來(lái)設(shè)置。例如要設(shè)置控件“CommandButton1”的標(biāo)題。

  Worksheets(1) OLEObjects(″CommandButton1″)

  Object Caption=″runme″

  因?yàn)樗械腛LE對(duì)象也是Shapes集合的成員,所以也可用該集合設(shè)置若干控件的屬性。例如要對(duì)齊第一張工作表上所有控件的左邊框。

  ForEachsInWorksheets(1) Shapes

  Ifs Type=msoOLEControlObjectThens Left=10

  Next

  請(qǐng)注意,當(dāng)在控件所在工作表的類模塊之外使用控件的名稱時(shí),必須用工作表的名稱限定該控件的名稱。在工作表上ActiveX控件的事件處理過(guò)程中,Me關(guān)鍵字所指向的是工作表,而非控件

  在Excel中利用VBA創(chuàng)建多級(jí)選單

  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ǔ)句;

  auto_close():在關(guān)閉工作簿時(shí)系統(tǒng)將自動(dòng)執(zhí)行該函數(shù)。所以我們需要在該函數(shù)中放置刪除用戶自定義選單語(yǔ)句,否則只有退出Excel才能恢復(fù)EXCEL的系統(tǒng)選單。

  在以下語(yǔ)句中,我們定義了選單設(shè)置函數(shù) OpenMyMenu(),用于設(shè)置多級(jí)選單,其他有關(guān)說(shuō)明見(jiàn)程序內(nèi)注釋,詳細(xì)代碼如下:

  Sub OpenMyMenu() ′自定義多級(jí)選單函數(shù)

  On Error Resume Next ′忽略錯(cuò)誤

  MenuBars("MyMenu").Delete ′刪除自定義選單

  MenuBars.Add ("MyMenu") ′自定義選單項(xiàng)

  Sheets("sheet1").Select

  MenuBars("MyMenu").Menus.Add Caption:="金融"

  ′增加第一個(gè)選單項(xiàng)“金融”

  ′以下三句為在“金融”選單下增加“銀行法、貨幣政策和條例”三項(xiàng)選單項(xiàng)

  MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="銀行法", OnAction:="銀行法"

  MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="貨幣政策", OnAction:="貨幣政策"

  MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="條例", OnAction:="條例"

  ′以下為創(chuàng)建如圖所示的多級(jí)選單

  MenuBars("MyMenu").Menus.Add Caption:="經(jīng)濟(jì)" '建立選單項(xiàng)“經(jīng)濟(jì)”

  ′以下三句為在“經(jīng)濟(jì)”選單下增加“農(nóng)業(yè)、工業(yè)和第三產(chǎn)業(yè)”三項(xiàng)選單項(xiàng)

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems.Add Caption:="農(nóng)業(yè)", OnAction:="農(nóng)業(yè)"

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems.Add Caption:="工業(yè)", OnAction:="工業(yè)"

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems.AddMenu Caption:="第三產(chǎn)業(yè)"

  ′以下三句為在“第三產(chǎn)業(yè)”選單下增加“概況、范疇”二項(xiàng)選單項(xiàng)和“飲食服務(wù)業(yè)”子選單

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第三產(chǎn)業(yè)").MenuItems.Add Caption:="概況", OnAction:="概況"

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第三產(chǎn)業(yè)").MenuItems.Add Caption:="范疇", OnAction:="范疇"

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第三產(chǎn)業(yè)").MenuItems.AddMenu Caption:="飲食服務(wù)業(yè)"

  ′以下二句為在“飲食服務(wù)業(yè)”選單下增加“酒店1、酒店2”二項(xiàng)選單項(xiàng)

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第三產(chǎn)業(yè)").MenuItems("飲食服務(wù)業(yè)").MenuItems.Add Caption:="酒店1", OnAction:="酒店1"

  MenuBars("MyMenu").Menus("經(jīng)濟(jì)").MenuItems("第三產(chǎn)業(yè)").MenuItems("飲食服務(wù)業(yè)").MenuItems.Add Caption:="酒店2", OnAction:="酒店2"

  MenuBars("MyMenu").Activate ′激活自定義選單

  End Sub

  Sub auto_open() ′系統(tǒng)自動(dòng)打開(kāi)運(yùn)行宏

  OpenMyMenu ′調(diào)用用戶選單函數(shù)

  End Sub

  Sub auto_close() ′系統(tǒng)自動(dòng)關(guān)閉運(yùn)行宏

  On Error Resume Next ′忽略錯(cuò)誤

  MenuBars("MyMenu").Delete ′刪除自定義選單

  End Sub

  讀者可以在自己的工作簿選單“工具”中的“宏”下,創(chuàng)建以上三個(gè)函數(shù)并將以上函數(shù)語(yǔ)句拷貝到其中即可運(yùn)行。

  用VBA(編程)保護(hù)Excel文檔

  VBA(Visual Basic for Application)是Excel應(yīng)用程序中功能非常強(qiáng)大的編程語(yǔ)言,為了規(guī)范不同的用戶對(duì)Excel應(yīng)用程序的訪問(wèn)能力,需要對(duì)Excel文檔及有關(guān)的數(shù)據(jù)進(jìn)行有效的保護(hù), 這里根據(jù)自己及同行們的體會(huì),從以下二個(gè)方面介紹用VBA編程法實(shí)現(xiàn)對(duì)Excel文檔的保護(hù)。

  對(duì)工作簿的保護(hù)

  1.利用VBA中Workbook對(duì)象的SaveAs方法實(shí)現(xiàn)對(duì)工作簿的保護(hù), 下面就對(duì)SaveAs有 關(guān)的參量作一介紹:

  Filename:該字符串表示要保存的文件名。 可包含完整路徑。 如果不指定路徑,Microsoft Excel 將文件保存到當(dāng)前文件夾。

  FileFormat: 可選,文件的保存格式。

  Password :為一個(gè)區(qū)分大小寫(xiě)的字符串(不超過(guò)15個(gè)字符) ,用于指定文件的保護(hù)密碼。

  WriteResPassword: 該字符串表示文件的寫(xiě)保護(hù)密碼。 如果文件保存時(shí)帶有密碼,但打開(kāi)文件時(shí)不輸入密碼,則該文件以只讀模式打開(kāi)。

  ReadOnlyRecommended :如果為T(mén)rue則在打開(kāi)文件時(shí)顯示一條信息,提示該文件以只讀模式打開(kāi)。

  下例就是在Excel應(yīng)用程序中添加一工作簿,將工作簿按常規(guī)文件格式存為“C:/pj/obj/經(jīng)濟(jì)評(píng)價(jià).xls”文件,并給該文件指定保護(hù)密碼“12”以及寫(xiě)保護(hù)密碼“23”。

  Sub 保護(hù)工作簿()

  NewWorkbook = Workbooks.add

  NewWorkbook.SaveAs FileName: ="C: /pj/obj/經(jīng)濟(jì)評(píng)價(jià).xls", FileFormat: =

  XlNormal,Password:="12",WriteResPassword:=″23″

  End sub

  2.利用VBA中Workbook對(duì)象的Protect方法對(duì)工作簿的結(jié)構(gòu)和窗口進(jìn)行保護(hù),Workbook對(duì)象的Protect方法帶有以下三個(gè)參量:

  Password: 為加在工作表或工作簿上區(qū)分大小寫(xiě)的密碼字符串。 如果省略本參數(shù),不用密碼就可以取消對(duì)該工作簿的保護(hù)。否則,取消對(duì)該工作表或工作簿的保護(hù)時(shí)必須提供該密碼。如果忘記了密碼,就無(wú)法取消對(duì)該工作表或工作簿的保護(hù)。最好在安全的 地方保存一份密碼及其對(duì)應(yīng)文檔名的列表。

  Structure: 若為T(mén)rue則保護(hù)工作簿結(jié)構(gòu)(工作簿中工作表的相對(duì)位置)。默認(rèn)值為False。

  Windows 若為T(mén)rue則保護(hù)工作簿窗口。

  下例就是對(duì)一名為“經(jīng)濟(jì)評(píng)價(jià).xls”的工作簿實(shí)現(xiàn)“結(jié)構(gòu)”和“窗口”保護(hù):

  Sub 保護(hù)工作簿()

  Workbooks (″經(jīng)濟(jì)評(píng)價(jià)″) .Protect Password: ="1234", Structure: =True,

  Windows:=True

  End sub

  Workbook對(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ì)工作簿“book.xls”的隱藏:

  Sub 隱藏工作簿()

  Workbooks("book").Activate

  ActiveWindow.Visible = False

  End sub

  或:

  Sub 隱藏工作簿()

  Workbooks("book").Windows(1).Visible=False

  End sub

  對(duì)工作表的保護(hù)

  1.對(duì)工作表實(shí)現(xiàn)口令保護(hù)利用VBA調(diào)用Worksheet對(duì)象的Protect方法對(duì)工作表進(jìn)行保護(hù),Protect帶有以下參量:

  Password 用于保護(hù)工作表的口令。

  Drawingobjects 若為T(mén)rue,則對(duì)工作表中的Drawingobjects對(duì)象進(jìn)行保護(hù),缺省值為T(mén)rue。

  Contents 若為T(mén)rue,則對(duì)單元格內(nèi)容進(jìn)行保護(hù),缺省值為T(mén)rue。

  下面程序代碼完成對(duì)工作表“基礎(chǔ)數(shù)據(jù)表”的保護(hù):

  Sub 保護(hù)工作表()

  Worksheets(″基礎(chǔ)數(shù)據(jù)表″).Protect Password:="1234"

  End sub

  2.對(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ò)“取消隱藏”對(duì)話框?qū)⑵涓臑轱@示狀態(tài)。當(dāng)Visible的值為XlVerHidden時(shí),只能利用VBA將其重新設(shè)置為T(mén)rue。

  Sub 隱藏工作表()

  Worksheets("基礎(chǔ)數(shù)據(jù)表").Visible=False

  End sub

  求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬(wàn)元"的最簡(jiǎn)代碼.

  求:將所選區(qū)域中的數(shù)值全部轉(zhuǎn)化為"萬(wàn)元"的最簡(jiǎn)代碼.

  或能完成此功能的最便捷的命令操作.

  寫(xiě)了一個(gè),拋磚引玉:

  Sub convt()

  Dim cel As Range

  Dim dec As Variant

  Application.EnableEvents = False

  yesorno = MsgBox("確實(shí)將區(qū)域所有數(shù)值轉(zhuǎn)換為“萬(wàn)元”?", vbYesNo + vbQuestion + vbDefaultButton1)

  If yesorno = vbYes Then

  1: dec = Application.InputBox("請(qǐng)輸入小數(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)) & "萬(wàn)元"

  cel = (Round(cel.Value / 10000, dec))

  End If

  Next

  ElseIf yesorno = vbNo Then

  Exit Sub

  End If

  End Sub

  以下當(dāng)為最簡(jiǎn)代碼吧.

  Sub Macro2()

  Selection.NumberFormatLocal = "#"".""#,"

  End Sub

  在VBA開(kāi)發(fā)環(huán)境中,點(diǎn)擊工具――附加控件,出現(xiàn)如下窗口:

  在可選控件中選擇microsoft orogressbar control,再點(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)度條控件對(duì)象的當(dāng)前值

  Scrolling: 進(jìn)度條的式樣,即一格一格的進(jìn)度條或是沒(méi)有間隔的進(jìn)度條。

  例子:Private Sub UserForm_Activate()

  For i = 1 to 5000

  ProgressBar1.Max = 5000 ‘設(shè)置進(jìn)度條控件的最大值

  ProgressBar1.Value = I ‘進(jìn)度條控件對(duì)象的當(dāng)前值

  next

  End Sub

  在程序中加入進(jìn)度條的辦法是將ProgressBar1.Max=最大值,ProgressBar1.Value = 當(dāng)前值放入循環(huán)中去。

  Excel是一個(gè)優(yōu)秀的電子表格軟件,如果你編的程序需要以報(bào)表的形式顯示最終結(jié)果,它會(huì)是個(gè)不錯(cuò)的選擇。你可以通過(guò)VB控制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)付得了。

  例如合并A2~A5這4個(gè)單元格,你錄制的宏代碼會(huì)是這樣:

  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 就可以解決問(wèn)題。

  表頭形式定了,再就是表頭的內(nèi)容。如果單元格中的文本長(zhǎng)度超過(guò)了列寬,往往只能顯示部分內(nèi)容,行尾那一格的內(nèi)容則會(huì)“越境”進(jìn)入右邊那個(gè)空白單元格,很不美觀。這個(gè)問(wèn)題可以通過(guò)在程序中設(shè)置列寬加以解決。

  Columns(14).columnwidth=12 ‘設(shè)置第14列列寬為12(缺省列寬為8.38)

  如果你不愿意勞神去逐列估計(jì)實(shí)際所需的列寬,干脆來(lái)一行

  Columns(“a:i”).autofit ‘a到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) .VerticalAlignment = xlTop 讓表頭自動(dòng)向上對(duì)齊,這樣比較符合習(xí)慣。

  你還可以給表頭打上底色,讓你的讀者不至于看了打哈欠。

  Rows(2). Interior .ColorIndex = 5 設(shè)置第2行底色為藍(lán)色

  再給表格的標(biāo)題上色,這樣更醒目一點(diǎn)。

  Rows(1).Font.ColorIndex=4

  表頭完成后該填數(shù)據(jù)了,一個(gè)一個(gè)地填實(shí)在是太? ,如果你的數(shù)據(jù)是存放在一個(gè)二維數(shù)組中,那問(wèn)題就簡(jiǎn)單多了。

  Dim Data(3,4)

  ………… ‘數(shù)據(jù)處理

  Range(“a2:d4”).Value=Data

  這樣可以一次填入一個(gè)表的所有數(shù)據(jù),夠快了吧!不過(guò)提醒一句,Range對(duì)象大小最好與數(shù)組匹配,小了無(wú)法顯示所有數(shù)據(jù),大了則會(huì)在空白單元格只填入“N/A”表示沒(méi)有取得數(shù)據(jù)。

  如果需要在結(jié)果中顯示多個(gè)同樣規(guī)格的數(shù)據(jù)表,想在Range對(duì)象中加入循環(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)在該打表格線了,以下幾條語(yǔ)句可以滿足你的要求:

  With Worksheets("Sheet1").Range(cell1,cell2).borders

  .LineStyle=xlContinuous

  .weight=xlThin

  End With

361985