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

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

　　6、添加批注

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

　　Dim 批注文本 As String

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

　　ActiveCell.AddComment '添加批注

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

　　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è)置基本類似。詳見下例。

　　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

　　在刪除完成后，再重新打開Excel的警告提示

　　Application.DisplayAlerts = True

　　六)、工作簿

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

　　Dim 存盤文件名 As String

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

　　存盤文件名="工作表名"

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

　　在另存時(shí)，若指定的存盤文件名不包含路徑，則保存在該工作簿的打開目錄下。而若此存盤文件已存在，也可用關(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，這樣自我感覺更象一個(gè)完整的程序。其實(shí)完全有必要考慮其他用戶是否也在用EXCEL，所以，必須做好一下判斷，不要自作聰明全部退出來(lái)，還幫忙把每個(gè)工作簿都保存一下。

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

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

　　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被打開，然后在將“HELLO"放入到A1單元格中。

　　2.sheet2不被打開，將“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"

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

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

　　增加一個(gè)工作簿

　　Worksheets.Add

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

　　activesheet.delete

　　打開一個(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)打開一個(gè)EXCEL文件：")

　　msgbox kk

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

　　Application.Dialogs(xlDialogZoom).Show

　　激活字體對(duì)話框

　　Application.Dialogs(xlDialogActiveCellFont).Show

　　打開另存對(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ò)用右鍵單擊工作簿，然后選中快捷菜單上的“打開”命令來(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ò)這種問題。例如，可用下列代碼對(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)表，沒有注意其他功能，其實(shí)利用Excel內(nèi)嵌的 VBA 語(yǔ)言完全可以快速開發(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() ：在打開工作簿時(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ō)明見程序內(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)打開運(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)用程序的訪問能力，需要對(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ū)分大小寫的字符串(不超過(guò)15個(gè)字符) ，用于指定文件的保護(hù)密碼。

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

　　ReadOnlyRecommended ：如果為True則在打開文件時(shí)顯示一條信息，提示該文件以只讀模式打開。

　　下例就是在Excel應(yīng)用程序中添加一工作簿，將工作簿按常規(guī)文件格式存為“C:/pj/obj/經(jīng)濟(jì)評(píng)價(jià).xls”文件，并給該文件指定保護(hù)密碼“12”以及寫保護(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ū)分大小寫的密碼字符串。 如果省略本參數(shù)，不用密碼就可以取消對(duì)該工作簿的保護(hù)。否則，取消對(duì)該工作表或工作簿的保護(hù)時(shí)必須提供該密碼。如果忘記了密碼，就無(wú)法取消對(duì)該工作表或工作簿的保護(hù)。最好在安全的 地方保存一份密碼及其對(duì)應(yīng)文檔名的列表。

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

　　Windows 若為True則保護(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 若為True，則對(duì)工作表中的Drawingobjects對(duì)象進(jìn)行保護(hù),缺省值為True。

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

　　下面程序代碼完成對(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è)置為True。

　　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)代碼.

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

　　寫了一個(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開發(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)度條或是沒有間隔的進(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é)，也不是沒有權(quán)宜之計(jì)：你可以打開Excel中的工具→宏→錄制新宏，然后進(jìn)行手工操作，結(jié)束后把所錄的宏代碼貼進(jìn)你的VB程序就行。這樣得到的程序一般都能正常運(yùn)行，但其中的宏代碼往往不夠簡(jiǎn)潔，效率和可讀性都不高。

　　Excel編程碰到的第一個(gè)問題是表頭。有時(shí)表頭的形式比較復(fù)雜，需要橫向或縱向合并單元格。請(qǐng)放心，只要沒有斜杠，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 就可以解決問題。

　　表頭形式定了，再就是表頭的內(nèi)容。如果單元格中的文本長(zhǎng)度超過(guò)了列寬，往往只能顯示部分內(nèi)容，行尾那一格的內(nèi)容則會(huì)“越境”進(jìn)入右邊那個(gè)空白單元格，很不美觀。這個(gè)問題可以通過(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)換行就好了。沒問題，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ù)組中，那問題就簡(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”表示沒有取得數(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