VBA的使用過程：
1、創(chuàng)建一個Excel文件。
2、創(chuàng)建一個控件，然后雙擊控件或是右擊該控件，點擊“查看代碼”，就可以對該控件的某個事件，如click,keydown等。
進(jìn)行編寫執(zhí)行代碼了。創(chuàng)建控件的方法是，點擊“視圖->工具欄->控件工具箱”，打開“控件工具箱”欄，然后就可以直接拖動某個控件到Excel單元格中去。在Excel中窗口，添加的控件一般是處于執(zhí)行狀態(tài)的，如果要對這個控件進(jìn)行編輯，除了第一次建立的時候可以對它進(jìn)行屬性編輯外，打開“控件工具箱”，也可以使控件處于編輯狀態(tài)，如果還不行，可以再添加一個控件，然后已有的控件絕對會處于編輯狀態(tài)。當(dāng)然，對控件修改完畢后，別忘了刪除剛才新添加的沒有用的控件。在編輯狀態(tài)中，你可以右擊該控件，點擊“屬性”，那么就可以打開屬性窗口，在這個窗口里，你可以很方便的對這個控件的名字，標(biāo)題，大小等屬性進(jìn)行編輯。
3、手動或用宏記錄器對該控件的某個事件進(jìn)行編碼。宏記錄器簡單易用，不過強大的功能還是必須手動編寫VBA。
VBA對象介紹：
編寫VBA代碼的最關(guān)鍵在于靈活運用VBA對象，對這些VBA對象的屬性或方法進(jìn)行操作。另外，你也可以創(chuàng)建自定義函數(shù)，來對某些操作進(jìn)行封裝。既然是VBA，編碼風(fēng)格當(dāng)然和VB相同，如果會VB，那么只要對VBA的對象比較了解，就可以編寫功能強大的VBA程序；同樣，如果不會VB，那么，只需要了解VBA的對象就夠了，因為它比較簡單易學(xué)。
以下分別討論VBA各對象對其屬性與方法：
在一些可以包含其他對象的窗口對象中，有幾個特殊的屬性，其屬性值是當(dāng)前活動對象，對它們，可以直接引用。
表1 一些特殊的屬性
對象名 含義
ActiveWorkbook 當(dāng)前工作簿，即如果你打開了幾個Excel文件，那么你當(dāng)然正在編輯的Excel文件即ActiveWorkbook
ActiveSheet 當(dāng)前工作簿中的當(dāng)前工作表，即當(dāng)前編輯的Excel文件中正在編輯的工作表
ActiveCell 當(dāng)前工作表中活動單元格
ActiveChart 當(dāng)前工作簿中的活動圖表
Selection 當(dāng)前被選定的對象
下面詳談各對象及它們的屬性和方法
一、Application對象
此對象指Excel應(yīng)用程序的工作環(huán)境。
＜一＞屬性
1.Caption屬性
含義：Excel應(yīng)用程序標(biāo)題欄顯示的文本。
舉例：Application.caption=“船員管理系統(tǒng)”，如賦值Empty,則恢復(fù)Excel默認(rèn)的標(biāo)題欄。
2.Cursor屬性
含義：Excel中鼠標(biāo)的形狀。
表2 Cursor屬性
屬性值 鼠標(biāo)形狀
xlDefault 缺少型值，鼠標(biāo)呈缺少形狀
xlWait 等待型值，鼠標(biāo)呈不斷翻轉(zhuǎn)的沙漏形狀
xlNorthwestArrow 箭頭型值，鼠標(biāo)呈標(biāo)準(zhǔn)箭頭形狀
xlIBeam 文本型值，鼠標(biāo)呈“I”字形以等待用戶輸入文本
操作：Application.Cursor=xlWait等。
3、DisplayAlerts屬性
含義：用以確定是否顯示系統(tǒng)的應(yīng)用提示和警告信息，如果不想顯示，則把些屬性設(shè)為false，反之亦然。
4、DisplayFormulaBar屬性
含義：用以確定是否顯示公式編輯欄
5、DisplayScrollBars屬性
含義：用以確定是否顯示Excel的滾動條
6、DisplayStatusBar屬性
含義：用以確定是否顯示Excel的狀態(tài)欄
7、EnableCancelkey屬性
含義：用以確定是否允許用戶中斷正在執(zhí)行著的VBA程序。缺省情況下，在VBA程序執(zhí)行過程中，用戶按下Ctrl+Break能夠中斷VBA程序的執(zhí)行。此時此屬性即值為xlInterrupt。若要禁止中斷VBA程序，由賦值為xlDisabled；若需要VBA執(zhí)行過程中遇到錯誤進(jìn)中止，由賦值為xlErrorHandler
8、ScreenUpdating屬性
含義：用以確定是否顯示VBA程序的中間運算結(jié)果。
9、StatusBar屬性
含義：設(shè)置狀態(tài)欄的文本
10、ActiveWorkbook屬性
含義：如表1介紹。
11、ActiveSheet
含義：如表1介紹。
12、ActiveCell屬性
含義：如表1介紹。
13、ThisWorkBook屬性
含義：用以返回正在執(zhí)行著VBA程序所在的工作簿對象。這不是當(dāng)前工作簿。例如有多個工作簿打開時，ActiveWorkbook屬性返回當(dāng)前工作簿對象，ThisWorkbook返回正在運行著VBA程序所在工作簿對象。
14、PathSeparator屬性
含義：返回文件文件路徑分隔符“\”，該屬性是一個只讀屬性。
舉例：Dim strPath as String
strPath=Application.ThisWorkbook.Path&Application.PathSeperator
Workbooks.Open strPath&"myExcel.xls"
15、UserName屬性
含義：設(shè)置當(dāng)前用戶名稱。缺省用戶是由Excel選項對話框的“常規(guī)”選項卡中“用戶姓名”決定的。用戶可以從“工具”菜單中選擇“選項”命令來打開選項并在“常規(guī)”選項卡的“用戶姓名”文本框中重新設(shè)置缺省的用戶名稱。
＜二＞方法
1、Calculate方法
含義：對Excel打開的工作簿中所有的公式進(jìn)行重新計算。
2、Goto方法
含義：選擇工作簿中的一個Range對象或一個VBA過程，格式如下：
Application.Goto Reference,Scroll
Reference參數(shù)表示Goto方法的目的地,Scroll參數(shù)若為True,滾動條滾動以使Range對象出現(xiàn)在工作簿窗口左上角，為False，當(dāng)前工作簿窗口不屬性變化。缺省值為Galse
舉例：Application.Goto Range("C3"),True
3、InputBox方法
含義：用于打開一個輸入對話框，允許用戶輸入數(shù)據(jù)。格式如下：
Application.InputBox(prompt,title,left,top,helpFile,helpContextID,type)
prompt參數(shù) 用于設(shè)置輸入對話框的提示信息
title參數(shù) 用于設(shè)置輸入對話框的標(biāo)題文字
default參數(shù) 用于設(shè)置輸入對話框的缺省輸入值
left和top參數(shù) 用于設(shè)置輸入對話框左上角的坐標(biāo)值
helpFile參數(shù) 用于設(shè)置輸入對話框在線幫助的名稱
helpContextID參數(shù) 用于設(shè)置輸入對話框在線幫助主題的上下文標(biāo)識號
type參數(shù) 用于設(shè)置輸入對話框輸入數(shù)據(jù)的類型。缺省情況下，為文本型
舉例：UserValue=Application.InputBox("請輸入數(shù)據(jù)","數(shù)據(jù)輸入",Type:=7)
4、Onkey方法
含義：按下某個或組合鍵時執(zhí)行一段VBA代碼。自己嘗試一下就知道了,也可看一下VB編輯器的提示（即輸入Applicatio.Onkey后，VB編輯器彈出的下拉提示。
二、Workbooks對象集
當(dāng)前所有打開的工作簿對象的集合
<一>屬性
1、Count屬性，只讀，返回Excel打開的工作簿數(shù)
<二>方法
1、Add方法，向工作簿對象集中一個新的工作簿，相當(dāng)于“文件->新建”命令。格式如下：
Workbooks.Add Template
2、Open方法，打開一個指定的工作簿。格式看一下VBA編輯器中的提示就行，太累了，不想寫得這么全。
3、Close方法，關(guān)閉一個工作簿文件
三、Workbook對象
代表一個獨立的工作簿文件
<一>屬性
1、ActiveSheet屬性，返回當(dāng)前工作簿中的活動工作表對象
2、Author屬性，返回或設(shè)定工作簿的作者姓名，由此確定工作簿的所有者
3、Saved屬性，用于瓢工作簿文件是否做過修改。
<二>方法
1、Activate方法，用于霜一個工作簿為當(dāng)前活動工作簿，如，Workbooks("myOffice.xls").Activate
2、Close方法，用于關(guān)閉指定的工作簿
3、Save方法，用于保存指定的工作簿
4、SaveAs方法，用于另存為指定的工作簿
四、Worksheets對象集
代表當(dāng)前工作簿所有的工作表(Worksheet)的集合。
<一>屬性
1、Count屬性，返回當(dāng)前工作簿中的的工作表的數(shù)量
<二>方法
1、Add方法，向工作表對象集中添加一個新的工作表對象，格式如下：
Worksheets.Add Before,After,Count,Type
Before和After參數(shù)指哪一個工作表之前或之后插入新工作表。取值為Worksheet
如：Worksheets.Add Before:=Worksheets("Sheet2"),則相當(dāng)于在Sheet2工作表之前插入了一個新的工作表
五、Worksheet對象
代表工作簿一個獨立的工作表。
獲取某個工作表，可以用Worksheets("辦公費用"),也可以用Worksheets(3)之類的語句
<一>屬性
1、Name屬性，設(shè)置或返回工作表對象的名稱
2、Visible屬性，確定是否隱藏某個工作表
<二>方法
1、Calculate法，對指定的工作表中的所有公式進(jìn)行重新計算
2、Copy方法,用于復(fù)制指定的工作表，并放置在指定的位置，實際是一個復(fù)制與粘貼并重的函數(shù),
格式：Worksheet-Object.Copy Before,After
如Worksheet("Sheet2").Copy After:=Worksheets("辦公費用"),相當(dāng)于把Sheet2工作表復(fù)制，并把它放置在名為“辦公費用”的工作表之后
3、Move方法，移動指定的工作表并放置在指定的位置，用戶同Copy方法，區(qū)別只天于復(fù)制與剪切之不同
4、Delete方法，無參數(shù)刪除指定的工作表，如Worksheet("Sheet2").Delete
5、Cell方法，獲取指定工作表指定行列的某個單元格
格式：Worksheet-Object.Cells(Row,Col),Row,Col為整型，行列值都從1開始
如Worksheet("Sheet2").Cell(1,1)，相當(dāng)于獲取Sheet2工作表的第一行第一列的單元格
五、Range對象
代表一個半橋區(qū)域，可以由多個半橋組成，也可是由一個單元格組成。
引用單元格可用以下兩種方法：
一是使用單元格引用,如Range("A1"),Range("A1:C3")
二是使用單元格區(qū)域名稱，如Range("myRange")。
<一>屬性
1、FormulaR1C1屬性，為指定的單元格或單元格區(qū)域建立和存儲公式，
如Range("C5").FormulaR1C1="=SUM(R[-4]C:R[-1]C)"
2、Value屬性，為指定的單元格或單元格區(qū)域賦值，如為多個單元格，則都賦為同樣的值
3、Cell屬性，以指定的單元格為苦戰(zhàn)來描述被引用的單元格，把指定的單元格視為第1行第1列
格式：Range-Object.Cells(Row,Col)
4、Offset，以指定的單元格為苦戰(zhàn)來描述被引用的單元格，把指定的單元格視為第0行第0列
格式：Range-Object.Cells(Row,Col)
5、Name屬性，返回或設(shè)定指定的單元格或單元格區(qū)域的名稱，然后在VBA中，可以直接用名稱為引用它
6、Count屬性，返回指定的單元格區(qū)域中包含的單元格的數(shù)目，只讀
7、CurrentRegion屬性，返回以某個單元格為基點的存儲有數(shù)據(jù)的一個連結(jié)的單元格區(qū)域
<二>方法
1、Select方法方法，用于選擇指定的單元格區(qū)域，執(zhí)行后，該單元格區(qū)域左上角的第一個單元格成為活動單元格
如Range("A1:C3").Select,Range("A1:C3,D5:E6,A8:E8).Select
2、Activate方法，用于選擇指定的單元格并指定其成為活動單元格，當(dāng)然只有該單元格區(qū)域左上角的第一個單元格成為活動單元格。
3、AutoFit方法，調(diào)整選定的單元格區(qū)域所在行和列的行高與列寬，使其行高與列寬自動設(shè)定的最佳的高度與寬度。
如:Range("A4").CurrentRegion.Select
Selection.Rows.AutoFit
4、Clear方法，清除指定的單元格區(qū)域的內(nèi)容，格式和批注，相當(dāng)于“編輯－＞清除－＞全部”
如:Range("A4:C5").Clear
5、ClearContents方法，清除指定的單元格區(qū)域的內(nèi)容，相當(dāng)于“編輯－＞清除－＞內(nèi)容”
6、ClearFormats方法，清除指定的單元格區(qū)域的內(nèi)容，相當(dāng)于“編輯－＞清除－＞格式”
7、ClearComments和ClearNotes方法，清除指定的單元格區(qū)域的內(nèi)容，相當(dāng)于“編輯－＞清除－＞批注”
8、Copy方法，將指定單元格區(qū)域中的數(shù)據(jù)庫復(fù)制到剪貼板或指定的目的單元格區(qū)域中
9、Cut方法，將指定單元格區(qū)域中的數(shù)據(jù)庫剪切到剪貼板或指定的目的單元格區(qū)域中
10、PasteSpecial方法，用于將剪貼板中復(fù)制或剪切下來的單元格區(qū)域中的數(shù)據(jù)庫有選擇地粘貼到指定的目的單元格區(qū)域中
格式：Range-Object.PasteSpecial Paste,Operation,ShipBlanks,Transpose
Paste參數(shù)規(guī)定了選擇體積類型的數(shù)據(jù)進(jìn)行粘貼，如公式，內(nèi)容，批注等，具體取值可參考VB編輯器中的提示
