VBA最最精典的教程(基礎(chǔ)入門)課件

VBA簡易教程1ppt課件VBA簡易教程1ppt課件直到90年代早期,使應用程序自動化還是充滿挑戰(zhàn)性的領(lǐng)域.對每個需要自動化的應用程序,人們不得不學習

一種不同的自動化語言.例如:可以用EXCEL的宏語言來使EXCEL自動化,使用WORD

BASIC使WORD自動化,等等.微軟決定讓它開發(fā)出來的應用程序共享一種通用的自動化語言--------Visual

Basic

For

Application(VBA),可以認為VBA是非常流行的應用程序開發(fā)語言VASUAL

BASIC

的子集.實際上VBA是“寄生于”VB應用程序的版本.VBA和VB的區(qū)別包括如下幾個方面:

1.

VB是設(shè)計用于創(chuàng)建標準的應用程序,而VBA是使已有的應用程序(EXCEL等)自動化

2.

VB具有自己的開發(fā)環(huán)境,而VBA必須寄生于已有的應用程序.

3.

要運行VB開發(fā)的應用程序,用戶不必安裝VB,因為VB開發(fā)出的應用程序是可執(zhí)行文件(*.EXE),而VBA開發(fā)的程序必須依賴于它的“父”應用程序,例如EXCEL.

盡管存在這些不同,VBA和VB在結(jié)構(gòu)上仍然十分相似.事實上,如果你已經(jīng)了解了VB,會發(fā)現(xiàn)學習VBA非?？?

VBA究竟是什么?更確切地講,它是一種自動化語言,它可以使常用的程序自動化,可以創(chuàng)建自定義的解決方案.

VBA是什么2ppt課件直到90年代早期,使應用程序自動化還是充滿挑戰(zhàn)性的領(lǐng)域.對每EXCEL環(huán)境中基于應用程序自動化的優(yōu)點

也許你想知道VBA可以干什么?使用VBA可以實現(xiàn)的功能包括:

使重復的任務自動化自定義EXCEL工具欄,菜單和界面簡化模板的使用自定義EXCEL,使其成為開發(fā)平臺創(chuàng)建報表對數(shù)據(jù)進行復雜的操作和分析3ppt課件EXCEL環(huán)境中基于應用程序自動化的優(yōu)點也許你想知道VBAEXCEL環(huán)境中基于應用程序自動化的優(yōu)點用EXCEL作為開發(fā)平臺有如下原因:

EXCEL本身功能強大,包括打印,文件處理,格式化和文本編輯

EXCEL內(nèi)置大量函數(shù)

EXCEL界面熟悉

可連接到多種數(shù)據(jù)庫

4ppt課件EXCEL環(huán)境中基于應用程序自動化的優(yōu)點用EXCEL作為開發(fā)錄制簡單的宏

在介紹學習VBA之前，應該花幾分鐘錄制一個宏。新術(shù)語：“宏”，指一系列EXCEL能夠執(zhí)行的VBA語句。

以下將要錄制的宏非常簡單，只是改變單元格顏色。請完成如下步驟：打開新工作簿，確認其他工作簿已經(jīng)關(guān)閉。選擇A1單元格。調(diào)出“常用”工具欄。選擇“工具”―“宏”―“錄制新宏”。輸入“改變顏色”作為宏名替換默認宏名，單擊確定。選擇“格式”的“單元格”，選擇“圖案”選項中的紅色,單擊“確定”。單擊“停止錄制”工具欄按鈕，結(jié)束宏錄制過程。宏名最多可為255個字符，并且必須以字母開始。其中可用的字符包括：字母、數(shù)字和下劃線。5ppt課件錄制簡單的宏在介紹學習VBA之前，應該花幾分鐘錄制一個宏。執(zhí)行宏

選擇任何一個單元格，比如A3選擇“工具”―“宏”―“宏”，顯示“宏”對話框選擇“改變顏色”，選擇“執(zhí)行”，則A3單元格的顏色變?yōu)榧t色當執(zhí)行一個宏時，EXCEL按照宏語句執(zhí)行的情況就像VBA代碼在對EXCEL進行“遙控”。但VBA的“遙控”不僅能使操作變得簡便，還能使你獲得一些使用EXCEL標準命令所無法實現(xiàn)的功能。而且，一旦熟悉了EXCEL的“遙控”，你都會奇怪自己在沒有這些“遙控”的情況下，到底是怎么熬過來的。要

執(zhí)行剛才錄制的宏，可以按以下步驟進行：※試著選擇其它單元格和幾個單元格組成的區(qū)域，然后再執(zhí)行宏，以便加深印象。6ppt課件執(zhí)行宏選擇任何一個選擇“工具”―“宏”―選擇“改變顏色”，查看錄制的代碼

“改變顏色”是宏的名稱注意：有一小圓點，它的作用在于簡化語句，小圓點代替出現(xiàn)在With后的詞,它是With結(jié)構(gòu)的一部分。

Sub

改變顏色()

'

'

改變顏色

Macro

'

xw

記錄的宏

2000-6-10

'

'

With

Selection.Interior

.ColorIndex

=

3

.Pattern

=

xlSolid

.PatternColorIndex

=

xlAutomatic

End

With

End

Sub到底是什么在控制EXCEL的運行呢?你可能有些疑惑.好,讓我們看看VBA的語句吧.

7ppt課件查看錄制的代碼“改變顏色”是注意：有一小圓點，它的作用在于編輯錄制的代碼

Sub

改變顏色()

'

'

改變顏色

Macro

'

xw

記錄的宏

2000-6-10

'

'

With

Selection.Interior

.ColorIndex

=

3

End

With

End

Sub在上一節(jié)，我們錄制了一個宏并查看了代碼，代碼中有兩句實際上并不起作用。哪兩句？現(xiàn)在，在宏中作一個修改，刪除多余行，直到和下面代碼相同：完成后，在工作表中試驗一下。你會發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。在With

語句前加入一行:

Range(“A5”).Select試著運行該宏,則無論開始選擇哪個單元格,宏運行結(jié)果都是使A5單元格變紅.8ppt課件編輯錄制的代碼Sub

改變顏色()

'

'

改變顏色

錄制宏的局限性

錄制的宏無判斷或循環(huán)能力

人機交互能力差,即用戶無法進行輸入,計算機無法給出提示

無法顯示EXCEL對話框

無法顯示自定義窗體

希望自動化的許多EXCEL過程大多都可以用錄制宏來完成.但是宏記錄器存在以下局限性.通過宏記錄器無法完成的工作有:

9ppt課件錄制宏的局限性錄制的宏無判斷或循環(huán)能力人機交互能力差,為宏指定快捷鍵

你也許希望為經(jīng)常使用的宏指定快捷鍵。當給宏指定了快捷鍵后，就可以用快捷鍵來執(zhí)行宏，而不必通過“工具”菜單?！⒁猓寒敯甑墓ぷ鞑敬蜷_時間，為宏指定快捷鍵會覆蓋EXCEL默認的快捷鍵。例如：把CTRL+C指定給某個宏，那么CTRL+C就不再執(zhí)行復制命令。可以在創(chuàng)建宏時指定快捷鍵，也可以在創(chuàng)建后再指定。要在創(chuàng)建（錄制）宏時指定快捷鍵，只須在錄制宏時在輸入宏名后，在“快捷鍵”文本框中輸入相應的鍵。錄制宏后指定快捷鍵也很簡單，只需選擇“工具”-“宏”，顯示“宏”對話框，選擇要指定快捷鍵的宏，再單擊“選項”按鈕，通過“選項”對話框進行設(shè)置。10ppt課件為宏指定快捷鍵你也許希望為經(jīng)常使用的宏指定快捷鍵。當給宏決定宏保存的位置

宏可保存在三種可能的位置：

1）當前工作簿。（只有該工作簿打開時，該宏才可用。）2）新工作簿。3）個人宏工作簿。11ppt課件決定宏保存的位置宏可保存在三種可能的位置：11ppt課件個人宏工作簿

個人宏工作簿，是為宏而設(shè)計的一種特殊的具有自動隱藏特性的工作簿。第一次將宏創(chuàng)建到個人宏工作簿時，會創(chuàng)建名為“PERSONAL.XLS”的新文件。如果該文件存在，則每當EXCEL啟動時會自動將此文件打開并隱藏在活動工作簿后面如果你要讓某個宏在多個工作簿都能使用，那么就應當創(chuàng)建個人宏工作簿，并將宏保存于其中。個人宏工作簿保存在“XLSTART”文件夾中。具體路徑為：

C:\WINDOWS\Profiles\Application

Data\Microsoft\Excel\XLSTART。12ppt課件個人宏工作簿個人宏工作簿，是為宏而設(shè)計的一種特殊的具有自動個人宏工作簿試著練習一下保存一個簡單的宏到個人宏工作簿,該宏為文本加下劃線并改為斜體,步驟如下:

1）建立一個名為“HOUR2”的工作簿，選擇“工具”-“宏”-“錄制新宏”,顯示“錄制新宏”對話框。2）輸入“格式化文本”作為宏名。3）從“保存在”下拉框中選擇“個人宏工作簿”。4）單擊“確定”按鈕.現(xiàn)在進入錄制模式。5）單擊“斜體”工具欄按鈕.一段時間內(nèi),鼠標出現(xiàn)沙漏,特別是在第一次創(chuàng)建個人宏工作簿時,因為EXCEL在創(chuàng)建該工作簿。6）單擊“下劃線”按鈕。7）停止錄制。13ppt課件個人宏工作簿試著練習一下保存一個簡單的宏到個人宏工作簿,該宏使用并編輯個人宏工作簿中的宏

剛才已經(jīng)保存了一個宏到個人宏工作簿,現(xiàn)在可以在任何工作簿中使用該宏.可按如下步驟操作:

現(xiàn)在A3單元格中，你的名字變?yōu)樾斌w字還帶有下劃線。選擇“窗口”-“取消隱藏”，可以將PERSONAL.XLS顯示出來，通過VBA編輯器可以在其中的模塊中找到“格式化文本”這個宏。在VBA編輯器中可以對該宏進行直接編輯或者刪除。關(guān)閉所有EXCEL工作簿任意打開一個EXCEL文件（EXCEL自動將個人宏工作簿同時打開并隱藏）在A3中輸入您的名字選擇“工具”-“宏”，顯示宏對話框，現(xiàn)在可以在宏列表中看到“格式化文本”這個宏。選擇“格式化文本”宏，并執(zhí)行14ppt課件使用并編輯個人宏工作簿中的宏剛才已經(jīng)保存了一個宏到個人宏工將宏指定給按鈕

“按鈕”是最常見的界面組成元素之一.通過使用“窗體”工具欄，可以為工作簿中的工作表添加按鈕。在創(chuàng)建完一個按鈕后，可以為它指定宏，然后你的用戶就可以通過單擊按鈕來執(zhí)行宏。在本練習中，將創(chuàng)建一個按鈕，并為它指定一個宏，然后用該按鈕來執(zhí)行宏。具體步驟如下：

打開“HOUR2”工作簿調(diào)出”窗體“工具欄單擊”窗體“工具欄中的“按鈕”控件在希望放置按鈕的位置按下鼠標左鍵，拖動鼠標畫出一個矩形在Excel自動出現(xiàn)的“指定宏”對話框中，選擇“格式化文本”，單擊“確定”試著在某個單元格中輸入文本，單擊按鈕運行該宏15ppt課件將宏指定給按鈕“按鈕”是最常見的界面組成元素之一.通過使用將宏指定給圖片或其他對象要執(zhí)行宏有多種方法可以選擇，可以將宏指定給按鈕等控件，還可以指定給圖片、自定義工具欄、窗體甚至可以將宏指定給某個“事件”，比如單擊工作表，雙擊工

作表，激活工作表，打開工作簿等等，“事件”是一個重要的概念，除此而外“方法”“對象”都是將來你會經(jīng)常接觸到的。指定宏到圖片十分簡單，只需單擊某個圖片，單擊快捷菜單中的“指定宏”進行設(shè)置即可。

如果不希望在工作表上添加控件或圖片執(zhí)行宏，還有一種方法可以選擇：將宏指定給“工具欄按鈕”，可按如下步驟進行：

打開“HOUR2”工作簿，選擇“工具”-“定義”，顯示“自定義工具欄”對話框

從“類別”列表框中選擇“宏”，從“命令”列表框中選擇“自定義按鈕”。16ppt課件將宏指定給圖片或其他對象要執(zhí)行宏有多種方法可以選擇，可以將宏將“自定義按鈕”拖動到工具欄

右鍵單擊該按鈕，選擇“指定宏”，顯示“指定宏”對話框

選擇“格式化文本”并確定單擊“關(guān)閉”按鈕，關(guān)閉“自定義工具欄”對話框試著在某個單元格中輸入文本，單擊工具欄按鈕運行該宏17ppt課件將“自定義按鈕”拖動右鍵單擊該按鈕，選擇選擇“格式化文單擊“EXCEL開發(fā)過程簡介

需要對以下問題有個大致的概念.

誰使用這決定了程序的操作難度及界面感觀數(shù)據(jù)來源和保存在哪里這決定了程序的結(jié)構(gòu)如何操作這將決定程序的界面和細節(jié)數(shù)據(jù)處理的結(jié)果最終決定程序的價值18ppt課件EXCEL開發(fā)過程簡介需要對以下問題有個大致的概念.誰使認識不同的控件

開始時請關(guān)閉所有工作簿,打開一個新工作簿并另存為“HOUR3”.在工具欄上單擊鼠標右鍵,從快捷菜單中選擇“窗體”,顯示“窗體”工具欄.其中有16個控件，只有9個可放到工作表內(nèi)。19ppt課件認識不同的控件開始時請關(guān)閉所有工作簿,打開一個新工作簿并另向工作表添加控件

創(chuàng)建新工作簿并另存為“HOUR3”,顯示“窗體”工具欄。選擇“標簽”控件。將鼠標定位到E1,此時鼠標變成小十字。按下左鍵,拖動大約四個單元格長度,放開鼠標左鍵.如果希望控件大小易于控制,可在創(chuàng)建該控件時按下ALT拖動。在標簽1上單擊右鍵,選擇"編輯文字",現(xiàn)在可以輸入文字.完成后,單擊任何單元格退出文字編輯。通過以上步驟可以添加其它控件到工作表中,不再贅述。用EXCEL設(shè)計界面十分簡單,要將控件添加到工作表上,可以按以下步驟操作:

20ppt課件向工作表添加控件創(chuàng)建新工作簿并另存為“HOUR3”,顯示“設(shè)置控件的特性

設(shè)置控件的特性,可以按以下步驟操作:

選中先前創(chuàng)建的復選框控件,如果沒有馬上創(chuàng)建一個.

右擊該控件,選擇"控制"選項卡.

在"單元格鏈接"中輸入A1并確定.

單擊任意單元格,退出設(shè)置.

用鼠標左鍵單擊復選框,A1出現(xiàn)TRUE,這意味著該控件被選中.再次單擊該控件,A1出現(xiàn)FALSE.

選擇剛才創(chuàng)建的滾動條控件.并調(diào)出"設(shè)置控件格式"對話框.

在"單元格鏈接"中輸入A3并確定.

在滾動條外任意單元格單擊鼠標左鍵,使?jié)L動條不被選擇.

用鼠標單擊滾動條上的箭頭,則A1的數(shù)值增加1,繼續(xù)單擊則A1的數(shù)值繼續(xù)增加.

保存并關(guān)閉該工作簿.

21ppt課件設(shè)置控件的特性設(shè)置控件的特性,可以按以下步驟操作:

21給控件命名?使用用戶窗體當創(chuàng)建一個控件時EXCEL會自動給它指定一個名字,但不便于理解和記憶,為控件取名的方法基本和給單元格或區(qū)域取名的方法相同.選中某個控件,再在位于公式欄上的“名字”編輯框輸入控件名字.這樣就給控件更改了名字

。如果希望創(chuàng)建專業(yè)級的應用程序,并且方便用戶輸入數(shù)據(jù),那么應該使用用戶窗體.用戶窗體可以作為程序的對話框和窗口.向用戶窗體添加控件基本類似于向工作表添加控件,然而第一步要創(chuàng)建一個用戶窗體.這可以通過VBA編輯器實現(xiàn).具體按以下步驟操作:1)打開"HOUR3"工作簿,選擇"工具"-"宏"-"VBA編輯器",打開VBA編輯器.2)

在VBA編輯器中選擇工具欄上的"插入用戶窗體"按鈕或者選擇"插入"菜單,從下拉菜單中選擇"用戶窗體"

現(xiàn)在,VBA編輯器中出現(xiàn)一個名為"USERFORM1"的窗體,"控件工具箱"同時出現(xiàn),在其中有許多已經(jīng)熟悉的控件,另外還有一些新的控件.

這些新的控件是:22ppt課件給控件命名?使用用戶窗體當創(chuàng)建一個控件時EXCEL會自動給它使用用戶窗體切換按鈕該控件如果被選中,那么會保持被按下的狀態(tài).如果再次單擊它就恢復為沒有按下的狀態(tài).EXCEL工具欄中有幾個這樣的按鈕,例如:"全屏顯示","加粗","下劃線"以及"窗體"工具欄中的"切換網(wǎng)格"等.選項卡條(TabStrip)它是包含多個選項卡的控件.通常用來對相關(guān)的信息進行組織或分類.例如:你也許希望用選項卡條來顯示各個地區(qū)的銷售信息,可以給每個地區(qū)設(shè)置一個選項卡.在默認時,選項卡包含兩頁,分別叫做TAB1和TAB2,可以添加更多的選項卡.多頁外觀類似選項卡條,是包含一頁或多頁的控件.選項卡條給人相似的外觀,而多頁控件的各頁包含各自不同的控件,有各自不同的布局.多頁的例子很多,例如:"設(shè)置控件格式"對話框和"工具"菜單中的"選項"對話框.以及"格式“菜單中的"單元格..."對話框.23ppt課件使用用戶窗體切換按鈕該控件如果被選中,那么會保持被按下的狀態(tài)

使用用戶窗體圖像控件它允許向窗體上放置圖片.圖片格式須為:*.bmp,*.cur,*.gif,*.ico,*.jpg,*.wmf.RefEdit這是工具箱中默認情況下的最后一個控件。它外觀象文本框，通過這個控件可以將用戶窗體折疊起來，以便選擇單元格區(qū)域。在對用戶窗體設(shè)計得滿意時，可以對其進行預覽，方法是在VBA編輯器中選擇該窗體，單擊“運行”菜單中的三角符號“運行子過程/用戶窗體”，三角符號在

VBA工具欄上也可能看得到，旁邊是一個垂直的等于符號，最右邊是個小正方形符號，它們類似于錄音機上的按鈕。運行窗體的另一個方法是按F5鍵。小結(jié)24ppt課件使用用戶窗體圖像控件它允許向窗體上放置圖片.圖片格式須代碼存在的位置

VBA代碼必須存放在某個位置，這個地方就是模塊。有兩種基本類型的模塊：標準模塊和類模塊。模塊中的每個過程或者是函數(shù)過程，或者是子程序概念.新術(shù)語：

你的大部分工作集中在標準模塊中（簡稱為模塊）當錄制宏時如果不存在模塊，EXCEL自動創(chuàng)建一個。EXCEL和VBA不關(guān)心代碼存放在哪一個模塊中，只要代碼存在于打開的工作簿中即可。

模塊：它是作為一個單元保存在一起的VBA定義和過程的集合。類模塊：VBA允許你創(chuàng)建自己的對象，對象的定義包含在類模塊中。25ppt課件代碼存在的位置VBA代碼必須存放在某個位置，這個地方就是模

對模塊的概覽

Sub

cmdSmallFont_Click()

With

Selection.Font

.Name="Arial"

.FontStyle="Regular"

.Size=16

End

With

End

sub過程被定義為VBA代碼的一個單元，過程中包括一系列用于執(zhí)行某個任務或是進行某種計算的語句。上面列出的過程實際上是一個事件過程。這個過程的名字是由一個按鈕對象的名字CmdSmallFont和一個事件的名字Click組成的，兩者之間用下劃線分開。當單擊這個命令按鈕時，就會運行這個事件過程。26ppt課件

對模塊的概覽Sub

cmdSmallFont_Click函數(shù)過程通常情況下稱為函數(shù)，要返回一個數(shù)值。這個數(shù)值通常是計算的結(jié)果或是測試的結(jié)果，例如False

或True.正如前面所說，可以用VBA創(chuàng)建自定義函數(shù)。實際上可以在工作表上使用你創(chuàng)建的函數(shù)。程序清單4-2是一個計算價格的10%為運費的簡單例子。簡單的用戶定義函數(shù)示例。Public

Function

Shipping(Price)Shipping

=

Price

*

0.1

End

Function這個函數(shù)使用一個參數(shù)（Price).子程序和函數(shù)都可以使用參數(shù)。Price可以是數(shù)字和單元格引用。27ppt課件Public

Function

Shipping(Price創(chuàng)建過程

創(chuàng)建第一個過程需要兩個基本步驟。首先，需要向工作簿中添加一個模塊。接著需要向模塊中添加一個工程。對于創(chuàng)建的每一個應用程序，只需添加一次模塊。可以使用多個模塊，但這是不必要的。某些開發(fā)者喜歡使用多個模塊，以便根據(jù)他們的目的或者窗體對過程進行組織。在本練習中，創(chuàng)建的過程只顯示一個消息框。

在本練習中創(chuàng)建的過程只顯示一個消息框。在本練習中使用Msgbox是為了提供一個可見的例子，雖然我們還沒有介紹過Msgbox語句，但是在本例中將使用它。要創(chuàng)建該過程，請按如下步驟進行：打開一個新工作簿。選擇"工具"-"宏"-"Visual

Basic編輯器"，打開VBA編輯器窗口。28ppt課件創(chuàng)建過程創(chuàng)建第一個過程需要兩個基本步驟。打開一個新工作簿。在`VBA編輯器的左面，可以看到“工程資源管理器”窗口。在工程資源管理器窗口的“Thisworkbook"上單擊鼠標右鍵，選擇“插入”-“模塊”，這樣就將一個模塊添加到應用程序中了。(如果你沒有看見“工程資源管理器”窗口，可以按Ctrl+R)。選擇“插入”“過程”，顯示“添加過程”對話框。輸入“第一個工程”作為過程名字。在“類型”分組框中，確認選擇了“子程序”。單擊“確定”按鈕。這樣一個新的過程就添加到模塊中了?？梢栽谀K中看到以

Public

Sub

第一個過程（）開始，以End

Sub結(jié)束的語句結(jié)構(gòu)。29ppt課件在`VBA編輯器的左面，可以看到“工程資源管理器”窗口。選擇6）在過程中插入光標，輸入以下語句并回車：Msgbox

"這是我的第一個過程"在輸入Msgbox后，會自動彈出一個消息框告訴你有關(guān)這條命令的信息，稱之為自動列表技術(shù)。輸入完成的過程如下所示：Public

Sub

第一個過程（）

Msgbox

"這是我的第一個過程"

End

SubVBA對子程序和函數(shù)有如下的命名規(guī)則：

*

名字中可以包含字母數(shù)字和下劃線。

*

名字中不能包含空格句號驚嘆號，也不能包含字符@

&

$

#.?

*

名字最多可以包含255個字符。30ppt課件6）在過程中插入光標，輸入以下語句并回車：在輸入Msgbo運行宏

創(chuàng)建這個過程后，可以運行一下。運行一個過程有幾種方法：可以直接使用“運行”菜單，“運行子程序/用戶窗體”工具欄按鈕或按下F5鍵。要運行一個過程，可以按照如下步驟：

1）單擊“運行子程序/用戶窗體”工具欄按鈕，過程執(zhí)行并顯示一個消息框。

2）單擊消息框之中的“確定”按鈕，關(guān)閉該消息框。

31ppt課件運行宏創(chuàng)建這個過程后，可以運行一下。31ppt課件保存對模塊所做的改變

要保存新過程,需要保存過程所駐留的工作簿.可以用VBA編輯器保存工作簿.具體步驟如下:

選擇"文件"-"保存工作簿".因為本工作簿還沒有保存過,所以要給它命名.輸入“HOUR4”作為文件名并按回車鍵,則工作簿和模塊與過程都保存下來了.

32ppt課件保存對模塊所做的改變要保存新過程,需要保存過程所駐留的工作變量

變量是用于臨時保存數(shù)值的地方.每次應用程序運行時,變量可能包含不同的數(shù)值,而在程序運行時,變量的數(shù)值可以改變.

為了說明為什么需要變量,可以按照如下步驟創(chuàng)建一個簡單的過程:

1)創(chuàng)建一個名為"你叫什么名字"的過程.

2)在過程中輸入如下代碼:

Inputbox

"輸入你的名字:"3)按下F5鍵運行過程,這時會顯示一個輸入框,要求輸入你的名字.

4)輸入你的名字并按"確定"按鈕,則結(jié)束該過程.

你輸入的名字到那里去了?如何找到用戶在輸入框中輸入的信息?在這種情況下,需要使用變量來存儲用戶輸入的結(jié)果.33ppt課件變量變量是用于臨時保存數(shù)值的地方.33ppt課件變量的數(shù)據(jù)類型

使用變量的第一步是了解變量的數(shù)據(jù)類型.變量的數(shù)據(jù)類型控制變量允許保存何種類型的數(shù)據(jù).表列出了VBA支持的數(shù)據(jù)類型,還列出了各種類型的變量所需要的存儲空間和能夠存儲的數(shù)值范圍.34ppt課件變量的數(shù)據(jù)類型使用變量的第一步是了解變量的數(shù)據(jù)類型.變量的變量的數(shù)據(jù)類型35ppt課件變量的數(shù)據(jù)類型35ppt課件用Dim語句創(chuàng)建變量(聲明變量)

現(xiàn)在,你對變量可以使用的數(shù)據(jù)類型已經(jīng)比較熟悉了,以下我們將創(chuàng)建變量.創(chuàng)建變量可以使用Dim語句,創(chuàng)建變量通常成為"聲明變量"。Dim語句的基本語法如下:

Dim

變量名

AS

數(shù)據(jù)類型變量名必須以字母開始,并且只能包含字母數(shù)字和特定的特殊字符,不能包含空格句號驚嘆號,也不能包含字符@

&

$?

#.名字最大長度為255個字符。36ppt課件用Dim語句創(chuàng)建變量(聲明變量)現(xiàn)在,你對變量可以使用的數(shù)變量命名的慣例

下表給出了推薦的變量命名慣例

數(shù)據(jù)類型短前綴長前綴

37ppt課件變量命名的慣例下表給出了推薦的變量命名慣例

數(shù)據(jù)類型短前綴使用數(shù)組如果你使用過其他編程序語言,可能對數(shù)組已經(jīng)比較熟悉了.數(shù)組是具有相同數(shù)據(jù)類型并共同享有一個名字的一組變量的集合.數(shù)組中的元素通過索引數(shù)字加以區(qū)分,定義數(shù)組的方法如下:Dim

array_name(n)

As

type(其中n是數(shù)組元素的個數(shù))例如,如果要創(chuàng)建保存10個學生名字的數(shù)組,可以用以下語句:Dim

s學生名字(9)

As

Integer38ppt課件使用數(shù)組如果你使用過其他編程序語言,可能對數(shù)組已經(jīng)比較熟悉了使用數(shù)組聲明數(shù)組時的另一種方法是不給定大小?？梢栽诔绦蜻\行時定義其大小。通過創(chuàng)建動態(tài)數(shù)組就可以做到。例如，你的程序要創(chuàng)建一表格，可以提示用戶輸入表格的行和列的數(shù)目。聲明動態(tài)數(shù)組的語法如下：Dim

dyn_array()

As

type對數(shù)組聲明后可以在程序運行時用ReDim語句指定數(shù)組的大小：ReDim

dyn_array()(array_size)參數(shù)array_size代表數(shù)組的新大小。如果要保留數(shù)組的數(shù)值，請在ReDim語句后使用保留字Preserve,具體語法如下：ReDim

Preserve

dyn_array(array_size)39ppt課件使用數(shù)組聲明數(shù)組時的另一種方法是不給定大小?？梢栽诔绦蜻\行時變量賦值

聲明變量后就可以給變量賦值。請注意下列語句中為數(shù)組變量賦值時索引數(shù)字的使用。

Dim

i人數(shù)

As

IntegerDim

i考試成績

As

IntegerDim

i

As

Integeri人數(shù)

=

inputbox("輸入學生的人數(shù)：")ReDim

Preserve

i考試成績(i數(shù)量)For

i

=

1

to

i人數(shù)i考試成績(i)

=

inputbox("輸入考試成績"&

i

)Next40ppt課件變量賦值聲明變量后就可以給變量賦值。請注意下列語句中為數(shù)組使用常量

現(xiàn)在,你已經(jīng)知道變量是存儲非靜態(tài)信息的存儲容器.當存儲靜態(tài)信息時可以創(chuàng)建常量.它可以供程序多次使用而且便于記憶.比如圓周率比3.1415926好理解得多.

要聲明常量并設(shè)置常量的值,需要使用const語句.常量聲明后,不能對它賦一個新的值.例如,假設(shè)需要聲明一個常量來保存銷項稅率,可以使用以下語句:

通常常量聲明時用全大寫字母以區(qū)分變量.

const

銷項稅率

As

Long

=

0.1741ppt課件使用常量現(xiàn)在,你已經(jīng)知道變量是存儲非靜態(tài)信息的存儲容器.當作用域

到現(xiàn)在為止,已經(jīng)學習了如何定義變量和常量,但是還不知道在何處定義.可以在兩個地

方定義常量和變量:

過程中定義和在模塊頂部一個名為“通用聲明”的區(qū)域內(nèi)定義.定義的位置決定租用域.在過程中聲明,該變量只能在該過程中使用,其他過程中不能使用這個變量和常量,這中變量成為局部變量或過程級變量；在模塊頂部聲明的變量稱為模塊級變量，該變量在該模塊的所有過程中都可以使用。42ppt課件作用域到現(xiàn)在為止,已經(jīng)學習了如何定義變量和常量,但作用域還有一種等級的作用域稱為公共級。公共級變量可以在應用程序的任何過程中使用，不論過程和變量是否定義在一個模塊。這就使得公共級變量在使用中十分靈活，但是公共級變量在程序運行時一直保留在內(nèi)存中，這樣就占用了系統(tǒng)資源。要創(chuàng)建公共級變量，可以用Public語句，具體語法如下：Public

variablename

As

datatype要創(chuàng)建公共級常量，具體語法如下：Public

const

CONSTANAME

datatype

=

value※公共級變量或常量必須在模塊頂部的“通用聲明”區(qū)域中定義。43ppt課件作用域還有一種等級的作用域稱為公共級。Public

vari利用VBA設(shè)置工作表使用權(quán)限

Excel

Home

一般保護工作表采取的方法是用EXCEL菜單中的“保護”命令，有時這尚嫌不足，比如一些機密文件根本要讓某些使用者無法看到，但又需要他來操作工作簿中的其他表，怎么辦？

可以打開VBA編輯器，打開“工程資源管理器”，雙擊該工作表，現(xiàn)在出現(xiàn)的是設(shè)置該表的屬性的編輯窗口，單擊窗口左上的下拉列表框，選擇

worksheet

,這時再從該窗口右上方的列表框中選擇Active(“激活”），這時自動顯示如下的語句塊：Private

Sub

Worksheet_Activate()

End

Sub

44ppt課件利用VBA設(shè)置工作表使用權(quán)限Excel

Home

一般利用VBA設(shè)置工作表使用權(quán)限在其中加入代碼：(假設(shè)用“123”作為密碼,Sheet“機密文檔”為限制權(quán)限文檔,sheet"普通文檔"為工作簿中你認為任何適合的工作表)If

Application.InputBox("請輸入操作權(quán)限密碼:")

=

123

ThenRange("A1").SelectElseMsgbox

"密碼錯誤,即將退出!"Sheets("普通文檔").SelectEnd

if45ppt課件利用VBA設(shè)置工作表使用權(quán)限在其中加入代碼：(假設(shè)用“123利用VBA設(shè)置工作表使用權(quán)限完整的程序如下：Private

Sub

Worksheet_Activate()If

Application.

InputBox("請輸入操作權(quán)限密碼:")

=

123

ThenRange("A1").SelectElseMsgBox

"密碼錯誤,即將退出!"Sheets("普通文檔").SelectEnd

IfEnd

Sub46ppt課件利用VBA設(shè)置工作表使用權(quán)限完整的程序如下：Private

利用VBA設(shè)置工作表使用權(quán)限

這樣做仍有一個問題，就是越權(quán)使用者仍會看到一些文件的片段，即在提示密碼的那段時間。你可以這樣做，用上述方法選擇工作表的Deactivate事件,輸入以下代碼：Sheets("機密文檔").Cells.Font.ColorIndex

=

2這段程序使得此工作表在不被激活時，所有文字為白色。然后，在第一個程序中的Range("A1").Select后插入一行，寫入以下代碼：ActiveSheet.Cells.Font.ColorIndex

=

56這段程序，在你輸入正確密碼后，將該表所有文字轉(zhuǎn)變?yōu)樯罨疑?7ppt課件利用VBA設(shè)置工作表使用權(quán)限這樣做仍有一個問題，就是越利用VBA設(shè)置工作表使用權(quán)限完整的程序如下：Private

Sub

Worksheet_Activate()If

Application.InputBox("請輸入操作權(quán)限密碼:")

=

123

ThenRange("A1").SelectSheets("機密文檔").Cells.Font.ColorIndex

=

56ElseMsgBox

"密碼錯誤,即將退出!"Sheets("普通文檔").SelectEnd

If48ppt課件利用VBA設(shè)置工作表使用權(quán)限完整的程序如下：Private

提高VBA運行效率由于Microsoft

Office辦公套件的廣泛應用，以及該軟件版本的不斷提升，功能不斷完善，在Office辦公套件平臺上開發(fā)出的VBA應用程序越來越多，而VBA是一種宏語言，在運行速度上有很大的限制。因此VBA編程的方法直接關(guān)系到VBA程序運行的效率，本文列舉了一些提高VBA程序運行效率的方法。

方法1：盡量使用VBA原有的屬性、方法和Worksheet函數(shù)由于Excel對象多達百多個，對象的屬性、方法、事件多不勝數(shù)，對于初學者來說可能對它們不全部了解，這就產(chǎn)生了編程者經(jīng)常編寫與Excel對象的屬性、方法相同功能的VBA代碼段，而這些代碼段的運行效率顯然與Excel對象的屬性、方法完成任務的速度相差甚大。49ppt課件提高VBA運行效率由于Microsoft

Office辦公套提高VBA運行效率For

Each

c

InWorksheet(1).Range(〃A1:A1000〃)TotalValue

=

TotalValue

＋

c.ValueNextAverageValue

=

TotalValue

/

Worksheet(1).Range(〃A1:A1000〃).Rows.Count如求平均工資的例子：例如用Range的屬性

CurrentRegion來返回Range

對象，該對象代表當前區(qū)。（當前區(qū)指以任意空白行及空白列的組合為邊界的區(qū)域）。同樣功能的VBA代碼需數(shù)十行。因此編程前應盡可能多地了解Excel對

象的屬性、方法。充分利用Worksheet函數(shù)是提高程序運行速度的極度有效的方法。50ppt課件提高VBA運行效率For

Each

c

InWorkshe提高VBA運行效率而下面代碼程序比上面例子快得多：AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(〃A1:A1000〃))其它函數(shù)如Count,

Counta,

Countif,

Match,

Lookup等等，都能代替相同功能的VBA程序代碼，提高程序的運行速度。

尤其在循環(huán)中每一個Excel對象的屬性、方法的調(diào)用都需要通過OLE接口的一個或多個調(diào)用，這些OLE調(diào)用都是需要時間的，減少使用對象引用能加快VBA代碼的運行。方法2：盡量減少使用對象引用51ppt課件提高VBA運行效率而下面代碼程序比上面例子快得多：Avera提高VBA運行效率例如

1．使用With語句。Workbooks(1).Sheets(1).Range(〃A1:A1000〃).Font.Name=〃Pay〃Workbooks(1).Sheets(1).Range(〃A1:A1000〃).Font.FontStyle=〃Bold〃

...則以下語句比上面的快With

Workbooks(1).Sheets(1).Range(〃A1:A1000〃).Font.Name

=

〃Pay〃.FontStyle

=

〃Bold〃...End

With52ppt課件提高VBA運行效率例如

1．使用With語句。Workboo提高VBA運行效率2．使用對象變量。如果你發(fā)現(xiàn)一個對象引用被多次使用，則你可以將此對象用Set

設(shè)置為對象變量，以減少對對象的訪問。如：Workbooks(1).Sheets(1).Range(〃A1〃).Value

=

100Workbooks(1).Sheets(1).Range(〃A2〃).Value

=

200則以下代碼比上面的要快：Set

MySheet

=

Workbooks(1).Sheets(1)MySheet.Range(〃A1〃).Value

=

100MySheet.Range(〃A2〃).Value

=

20053ppt課件提高VBA運行效率2．使用對象變量。如果你發(fā)現(xiàn)一個對象引用被提高VBA運行效率3．在循環(huán)中要盡量減少對象的訪問。For

k

=

1

To

1000

Sheets(〃Sheet1〃).SelectCells(k,1).Value

=

Cells(1,1).ValueNext

k則以下代碼比上面的要快：Set

TheValue

=

Cells(1,1).Value

Sheets(〃Sheet1〃).SelectFor

k

=

1

To

1000Cells(k,1).Value

=

TheValueNext

k54ppt課件提高VBA運行效率3．在循環(huán)中要盡量減少對象的訪問。For

提高VBA運行效率方法3：減少對象的激活和選擇如果你的通過錄制宏來學習VBA的，則你的VBA程序里一定充滿了對象的激活和選擇，例如Workbooks(XXX).Activate,Sheets

(XXX).Select,Range(XXX).Select等,但事實上大多數(shù)情況下這些操作不是必需的。例如：Sheets(〃Sheet3〃).Select

Range(〃A1〃).Value

=

100

Range(〃A2〃).Value

=

200可改為：With

Sheets(〃Sheet3〃)

.Range(〃A1〃).Value

=

100

.Range(〃A2〃).Value

=

200End

With55ppt課件提高VBA運行效率方法3：減少對象的激活和選擇如果你的通過錄提高VBA運行效率方法4：關(guān)閉屏幕更新如果你的VBA程序前面三條做得比較差，則關(guān)閉屏幕更新是提高VBA程序運行速度的最有效的方法，縮短運行時間2/3左右。關(guān)閉屏幕更新的方法：Application.ScreenUpdate

=

False請不要忘記VBA程序運行結(jié)束時再將該值設(shè)回來：Application.ScreenUpdate

=

True56ppt課件提高VBA運行效率方法4：關(guān)閉屏幕更新如果你的VBA程序前面用過

Excel

97

里的加載宏

"定時保存"

嗎？可惜它的源程序是加密的，現(xiàn)在就上傳一篇介紹實現(xiàn)它的文檔。

在

Office

里有個方法是

application.ontime，具體函數(shù)如下：

expression.OnTime(EarliestTime,

Procedure,

LatestTime,

Schedule)

如

果想進一步了解，請參閱

Excel的幫助。

這個函數(shù)是用來安排一個過程在將來的特定時間運行，（可為某個日期的指定時間，也可為指定的時間段之后）。通過這個函數(shù)我們就可以在

Excel

里編寫自己的定時程序了。下面就舉兩個例子來說明它。

1.在下午

17:00:00

的時候顯示一個對話框。

Sub

Run_it()

Application.OnTime

TimeValue("17:00:00"),

"Show_my_msg"

'設(shè)置定時器在

17:00:00

激活，激活后運行

Show_my_msg。

End

Sub

Sub

Show_my_msg()

msg

=

MsgBox("現(xiàn)在是

17:00:00

！",

vbInformation,

"自定義信息")

End

Sub57ppt課件用過

Excel

97

里的加載宏

"定時保存"

嗎？可惜它2.模仿

Excel

97

里的

"自動保存宏",在這里定時

5

秒出現(xiàn)一次

Sub

auto_open()

MsgBox

"歡迎你，在這篇文檔里，每

5

秒出現(xiàn)一次保存的提示！",

vbInformation,

"請注意！"

Call

runtimer

'打開文檔時自動運行

End

Sub

Sub

runtimer()

Application.OnTime

Now

+

TimeValue("00:00:05"),

"saveit"

'

Now

+

TimeValue("00:15:00")

指定在當前時間過

5

秒鐘開始運行

Saveit

這個過程。

End

Sub58ppt課件2.模仿

Excel

97

里的

"自動保存宏",在這里定時

以上只是兩個簡單的例子，有興趣的話，可以利用

Application.Ontime

這個函數(shù)寫出更多更有用的定時程序Sub

SaveIt()

msg

=

MsgBox("朋友，你已經(jīng)工作很久了，現(xiàn)在就存盤嗎？"

&

Chr(13)

_

&

"選擇是：立刻存盤"

&

Chr(13)

_

&

"選擇否：暫不存盤"

&

Chr(13)

_

&

"選擇取消：不再出現(xiàn)這個提示",

vbYesNoCancel

+

64,

"休息一會吧！")

'提示用戶保存當前活動文檔。

If

msg

=

vbYes

Then

ActiveWorkbook.Save

Else

If

msg

=

vbCancel

Then

Exit

Sub

Call

runtimer

'如果用戶沒有選擇取消就再次調(diào)用

Runtimer

End

Sub59ppt課件Sub

SaveIt()

msg

=

MsgBox("朋友VBA簡易教程60ppt課件VBA簡易教程1ppt課件直到90年代早期,使應用程序自動化還是充滿挑戰(zhàn)性的領(lǐng)域.對每個需要自動化的應用程序,人們不得不學習

一種不同的自動化語言.例如:可以用EXCEL的宏語言來使EXCEL自動化,使用WORD

BASIC使WORD自動化,等等.微軟決定讓它開發(fā)出來的應用程序共享一種通用的自動化語言--------Visual

Basic

For

Application(VBA),可以認為VBA是非常流行的應用程序開發(fā)語言VASUAL

BASIC

的子集.實際上VBA是“寄生于”VB應用程序的版本.VBA和VB的區(qū)別包括如下幾個方面:

1.

VB是設(shè)計用于創(chuàng)建標準的應用程序,而VBA是使已有的應用程序(EXCEL等)自動化

2.

VB具有自己的開發(fā)環(huán)境,而VBA必須寄生于已有的應用程序.

3.

要運行VB開發(fā)的應用程序,用戶不必安裝VB,因為VB開發(fā)出的應用程序是可執(zhí)行文件(*.EXE),而VBA開發(fā)的程序必須依賴于它的“父”應用程序,例如EXCEL.

盡管存在這些不同,VBA和VB在結(jié)構(gòu)上仍然十分相似.事實上,如果你已經(jīng)了解了VB,會發(fā)現(xiàn)學習VBA非?？?

VBA究竟是什么?更確切地講,它是一種自動化語言,它可以使常用的程序自動化,可以創(chuàng)建自定義的解決方案.

VBA是什么61ppt課件直到90年代早期,使應用程序自動化還是充滿挑戰(zhàn)性的領(lǐng)域.對每EXCEL環(huán)境中基于應用程序自動化的優(yōu)點

也許你想知道VBA可以干什么?使用VBA可以實現(xiàn)的功能包括:

使重復的任務自動化自定義EXCEL工具欄,菜單和界面簡化模板的使用自定義EXCEL,使其成為開發(fā)平臺創(chuàng)建報表對數(shù)據(jù)進行復雜的操作和分析62ppt課件EXCEL環(huán)境中基于應用程序自動化的優(yōu)點也許你想知道VBAEXCEL環(huán)境中基于應用程序自動化的優(yōu)點用EXCEL作為開發(fā)平臺有如下原因:

EXCEL本身功能強大,包括打印,文件處理,格式化和文本編輯

EXCEL內(nèi)置大量函數(shù)

EXCEL界面熟悉

可連接到多種數(shù)據(jù)庫

63ppt課件EXCEL環(huán)境中基于應用程序自動化的優(yōu)點用EXCEL作為開發(fā)錄制簡單的宏

在介紹學習VBA之前，應該花幾分鐘錄制一個宏。新術(shù)語：“宏”，指一系列EXCEL能夠執(zhí)行的VBA語句。

以下將要錄制的宏非常簡單，只是改變單元格顏色。請完成如下步驟：打開新工作簿，確認其他工作簿已經(jīng)關(guān)閉。選擇A1單元格。調(diào)出“常用”工具欄。選擇“工具”―“宏”―“錄制新宏”。輸入“改變顏色”作為宏名替換默認宏名，單擊確定。選擇“格式”的“單元格”，選擇“圖案”選項中的紅色,單擊“確定”。單擊“停止錄制”工具欄按鈕，結(jié)束宏錄制過程。宏名最多可為255個字符，并且必須以字母開始。其中可用的字符包括：字母、數(shù)字和下劃線。64ppt課件錄制簡單的宏在介紹學習VBA之前，應該花幾分鐘錄制一個宏。執(zhí)行宏

選擇任何一個單元格，比如A3選擇“工具”―“宏”―“宏”，顯示“宏”對話框選擇“改變顏色”，選擇“執(zhí)行”，則A3單元格的顏色變?yōu)榧t色當執(zhí)行一個宏時，EXCEL按照宏語句執(zhí)行的情況就像VBA代碼在對EXCEL進行“遙控”。但VBA的“遙控”不僅能使操作變得簡便，還能使你獲得一些使用EXCEL標準命令所無法實現(xiàn)的功能。而且，一旦熟悉了EXCEL的“遙控”，你都會奇怪自己在沒有這些“遙控”的情況下，到底是怎么熬過來的。要

執(zhí)行剛才錄制的宏，可以按以下步驟進行：※試著選擇其它單元格和幾個單元格組成的區(qū)域，然后再執(zhí)行宏，以便加深印象。65ppt課件執(zhí)行宏選擇任何一個選擇“工具”―“宏”―選擇“改變顏色”，查看錄制的代碼

“改變顏色”是宏的名稱注意：有一小圓點，它的作用在于簡化語句，小圓點代替出現(xiàn)在With后的詞,它是With結(jié)構(gòu)的一部分。

Sub

改變顏色()

'

'

改變顏色

Macro

'

xw

記錄的宏

2000-6-10

'

'

With

Selection.Interior

.ColorIndex

=

3

.Pattern

=

xlSolid

.PatternColorIndex

=

xlAutomatic

End

With

End

Sub到底是什么在控制EXCEL的運行呢?你可能有些疑惑.好,讓我們看看VBA的語句吧.

66ppt課件查看錄制的代碼“改變顏色”是注意：有一小圓點，它的作用在于編輯錄制的代碼

Sub

改變顏色()

'

'

改變顏色

Macro

'

xw

記錄的宏

2000-6-10

'

'

With

Selection.Interior

.ColorIndex

=

3

End

With

End

Sub在上一節(jié)，我們錄制了一個宏并查看了代碼，代碼中有兩句實際上并不起作用。哪兩句？現(xiàn)在，在宏中作一個修改，刪除多余行，直到和下面代碼相同：完成后，在工作表中試驗一下。你會發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。在With

語句前加入一行:

Range(“A5”).Select試著運行該宏,則無論開始選擇哪個單元格,宏運行結(jié)果都是使A5單元格變紅.67ppt課件編輯錄制的代碼Sub

改變顏色()

'

'

改變顏色

錄制宏的局限性

錄制的宏無判斷或循環(huán)能力

人機交互能力差,即用戶無法進行輸入,計算機無法給出提示

無法顯示EXCEL對話框

無法顯示自定義窗體

希望自動化的許多EXCEL過程大多都可以用錄制宏來完成.但是宏記錄器存在以下局限性.通過宏記錄器無法完成的工作有:

68ppt課件錄制宏的局限性錄制的宏無判斷或循環(huán)能力人機交互能力差,為宏指定快捷鍵

你也許希望為經(jīng)常使用的宏指定快捷鍵。當給宏指定了快捷鍵后，就可以用快捷鍵來執(zhí)行宏，而不必通過“工具”菜單?！⒁猓寒敯甑墓ぷ鞑敬蜷_時間，為宏指定快捷鍵會覆蓋EXCEL默認的快捷鍵。例如：把CTRL+C指定給某個宏，那么CTRL+C就不再執(zhí)行復制命令?？梢栽趧?chuàng)建宏時指定快捷鍵，也可以在創(chuàng)建后再指定。要在創(chuàng)建（錄制）宏時指定快捷鍵，只須在錄制宏時在輸入宏名后，在“快捷鍵”文本框中輸入相應的鍵。錄制宏后指定快捷鍵也很簡單，只需選擇“工具”-“宏”，顯示“宏”對話框，選擇要指定快捷鍵的宏，再單擊“選項”按鈕，通過“選項”對話框進行設(shè)置。69ppt課件為宏指定快捷鍵你也許希望為經(jīng)常使用的宏指定快捷鍵。當給宏決定宏保存的位置

宏可保存在三種可能的位置：

1）當前工作簿。（只有該工作簿打開時，該宏才可用。）2）新工作簿。3）個人宏工作簿。70ppt課件決定宏保存的位置宏可保存在三種可能的位置：11ppt課件個人宏工作簿

個人宏工作簿，是為宏而設(shè)計的一種特殊的具有自動隱藏特性的工作簿。第一次將宏創(chuàng)建到個人宏工作簿時，會創(chuàng)建名為“PERSONAL.XLS”的新文件。如果該文件存在，則每當EXCEL啟動時會自動將此文件打開并隱藏在活動工作簿后面如果你要讓某個宏在多個工作簿都能使用，那么就應當創(chuàng)建個人宏工作簿，并將宏保存于其中。個人宏工作簿保存在“XLSTART”文件夾中。具體路徑為：

C:\WINDOWS\Profiles\Application

Data\Microsoft\Excel\XLSTART。71ppt課件個人宏工作簿個人宏工作簿，是為宏而設(shè)計的一種特殊的具有自動個人宏工作簿試著練習一下保存一個簡單的宏到個人宏工作簿,該宏為文本加下劃線并改為斜體,步驟如下:

1）建立一個名為“HOUR2”的工作簿，選擇“工具”-“宏”-“錄制新宏”,顯示“錄制新宏”對話框。2）輸入“格式化文本”作為宏名。3）從“保存在”下拉框中選擇“個人宏工作簿”。4）單擊“確定”按鈕.現(xiàn)在進入錄制模式。5）單擊“斜體”工具欄按鈕.一段時間內(nèi),鼠標出現(xiàn)沙漏,特別是在第一次創(chuàng)建個人宏工作簿時,因為EXCEL在創(chuàng)建該工作簿。6）單擊“下劃線”按鈕。7）停止錄制。72ppt課件個人宏工作簿試著練習一下保存一個簡單的宏到個人宏工作簿,該宏使用并編輯個人宏工作簿中的宏

剛才已經(jīng)保存了一個宏到個人宏工作簿,現(xiàn)在可以在任何工作簿中使用該宏.可按如下步驟操作:

現(xiàn)在A3單元格中，你的名字變?yōu)樾斌w字還帶有下劃線。選擇“窗口”-“取消隱藏”，可以將PERSONAL.XLS顯示出來，通過VBA編輯器可以在其中的模塊中找到“格式化文本”這個宏。在VBA編輯器中可以對該宏進行直接編輯或者刪除。關(guān)閉所有EXCEL工作簿任意打開一個EXCEL文件（EXCEL自動將個人宏工作簿同時打開并隱藏）在A3中輸入您的名字選擇“工具”-“宏”，顯示宏對話框，現(xiàn)在可以在宏列表中看到“格式化文本”這個宏。選擇“格式化文本”宏，并執(zhí)行73ppt課件使用并編輯個人宏工作簿中的宏剛才已經(jīng)保存了一個宏到個人宏工將宏指定給按鈕

“按鈕”是最常見的界面組成元素之一.通過使用“窗體”工具欄，可以為工作簿中的工作表添加按鈕。在創(chuàng)建完一個按鈕后，可以為它指定宏，然后你的用戶就可以通過單擊按鈕來執(zhí)行宏。在本練習中，將創(chuàng)建一個按鈕，并為它指定一個宏，然后用該按鈕來執(zhí)行宏。具體步驟如下：

打開“HOUR2”工作簿調(diào)出”窗體“工具欄單擊”窗體“工具欄中的“按鈕”控件在希望放置按鈕的位置按下鼠標左鍵，拖動鼠標畫出一個矩形在Excel自動出現(xiàn)的“指定宏”對話框中，選擇“格式化文本”，單擊“確定”試著在某個單元格中輸入文本，單擊按鈕運行該宏74ppt課件將宏指定給按鈕“按鈕”是最常見的界面組成元素之一.通過使用將宏指定給圖片或其他對象要執(zhí)行宏有多種方法可以選擇，可以將宏指定給按鈕等控件，還可以指定給圖片、自定義工具欄、窗體甚至可以將宏指定給某個“事件”，比如單擊工作表，雙擊工

作表，激活工作表，打開工作簿等等，“事件”是一個重要的概念，除此而外“方法”“對象”都是將來你會經(jīng)常接觸到的。指定宏到圖片十分簡單，只需單擊某個圖片，單擊快捷菜單中的“指定宏”進行設(shè)置即可。

如果不希望在工作表上添加控件或圖片執(zhí)行宏，還有一種方法可以選擇：將宏指定給“工具欄按鈕”，可按如下步驟進行：

打開“HOUR2”工作簿，選擇“工具”-“定義”，顯示“自定義工具欄”對話框

從“類別”列表框中選擇“宏”，從“命令”列表框中選擇“自定義按鈕”。75ppt課件將宏指定給圖片或其他對象要執(zhí)行宏有多種方法可以選擇，可以將宏將“自定義按鈕”拖動到工具欄

右鍵單擊該按鈕，選擇“指定宏”，顯示“指定宏”對話框

選擇“格式化文本”并確定單擊“關(guān)閉”按鈕，關(guān)閉“自定義工具欄”對話框試著在某個單元格中輸入文本，單擊工具欄按鈕運行該宏76ppt課件將“自定義按鈕”拖動右鍵單擊該按鈕，選擇選擇“格式化文單擊“EXCEL開發(fā)過程簡介

需要對以下問題有個大致的概念.

誰使用這決定了程序的操作難度及界面感觀數(shù)據(jù)來源和保存在哪里這決定了程序的結(jié)構(gòu)如何操作這將決定程序的界面和細節(jié)數(shù)據(jù)處理的結(jié)果最終決定程序的價值77ppt課件EXCEL開發(fā)過程簡介需要對以下問題有個大致的概念.誰使認識不同的控件

開始時請關(guān)閉所有工作簿,打開一個新工作簿并另存為“HOUR3”.在工具欄上單擊鼠標右鍵,從快捷菜單中選擇“窗體”,顯示“窗體”工具欄.其中有16個控件，只有9個可放到工作表內(nèi)。78ppt課件認識不同的控件開始時請關(guān)閉所有工作簿,打開一個新工作簿并另向工作表添加控件

創(chuàng)建新工作簿并另存為“HOUR3”,顯示“窗體”工具欄。選擇“標簽”控件。將鼠標定位到E1,此時鼠標變成小十字。按下左鍵,拖動大約四個單元格長度,放開鼠標左鍵.如果希望控件大小易于控制,可在創(chuàng)建該控件時按下ALT拖動。在標簽1上單擊右鍵,選擇"編輯文字",現(xiàn)在可以輸入文字.完成后,單擊任何單元格退出文字編輯。通過以上步驟可以添加其它控件到工作表中,不再贅述。用EXCEL設(shè)計界面十分簡單,要將控件添加到工作表上,可以按以下步驟操作:

79ppt課件向工作表添加控件創(chuàng)建新工作簿并另存為“HOUR3”,顯示“設(shè)置控件的特性

設(shè)置控件的特性,可以按以下步驟操作:

選中先前創(chuàng)建的復選框控件,如果沒有馬上創(chuàng)建一個.

右擊該控件,選擇"控制"選項卡.

在"單元格鏈接"中輸入A1并確定.

單擊任意單元格,退出設(shè)置.

用鼠標左鍵單擊復選框,A1出現(xiàn)TRUE,這意味著該控件被選中.再次單擊該控件,A1出現(xiàn)FALSE.

選擇剛才創(chuàng)建的滾動條控件.并調(diào)出"設(shè)置控件格式"對話框.

在"單元格鏈接"中輸入A3并確定.

在滾動條外任意單元格單擊鼠標左鍵,使?jié)L動條不被選擇.

用鼠標單擊滾動條上的箭頭,則A1的數(shù)值增加1,繼續(xù)單擊則A1的數(shù)值繼續(xù)增加.

保存并關(guān)閉該工作簿.

80ppt課件設(shè)置控件的特性設(shè)置控件的特性,可以按以下步驟操作:

21給控件命名?使用用戶窗體當創(chuàng)建一個控件時EXCEL會自動給它指定一個名字,但不便于理解和記憶,為控件取名的方法基本和給單元格或區(qū)域取名的方法相同.選中某個控件,再在位于公式欄上的“名字”編輯框輸入控件名字.這樣就給控件更改了名字

。如果希望創(chuàng)建專業(yè)級的應用程序,并且方便用戶輸入數(shù)據(jù),那么應該使用用戶窗體.用戶窗體可以作為程序的對話框和窗口.向用戶窗體添加控件基本類似于向工作表添加控件,然而第一步要創(chuàng)建一個用戶窗體.這可以通過VBA編輯器實現(xiàn).具體按以下步驟操作:1)打開"HOUR3"工作簿,選擇"工具"-"宏"-"VBA編輯器",打開VBA編輯器.2)

在VBA編輯器中選擇工具欄上的"插入用戶窗體"按鈕或者選擇"插入"菜單,從下拉菜單中選擇"用戶窗體"

現(xiàn)在,VBA編輯器中出現(xiàn)一個名為"USERFORM1"的窗體,"控件工具箱"同時出現(xiàn),在其中有許多已經(jīng)熟悉的控件,另外還有一些新的控件.

這些新的控件是:81ppt課件給控件命名?使用用戶窗體當創(chuàng)建一個控件時EXCEL會自動給它使用用戶窗體切換按鈕該控件如果被選中,那么會保持被按下的狀態(tài).如果再次單擊它就恢復為沒有按下的狀態(tài).EXCEL工具欄中有幾個這樣的按鈕,例如:"全屏顯示","加粗","下劃線"以及"窗體"工具欄中的"切換網(wǎng)格"等.選項卡條(TabStrip)它是包含多個選項卡的控件.通常用來對相關(guān)的信息進行組織或分類.例如:你也許希望用選項卡條來顯示各個地區(qū)的銷售信息,可以給每個地區(qū)設(shè)置一個選項卡.在默認時,選項卡包含兩頁,分別叫做TAB1和TAB2,可以添加更多的選項卡.多頁外觀類似選項卡條,是包含一頁或多頁的控件.選項卡條給人相似的外觀,而多頁控件的各頁包含各自不同的控件,有各自不同的布局.多頁的例子很多,例如:"設(shè)置控件格式"對話框和"工具"菜單中的"選項"對話框.以及"格式“菜單中的"單元格..."對話框.82ppt課件使用用戶窗體切換按鈕該控件如果被選中,那么會保持被按下的狀態(tài)

使用用戶窗體圖像控件它允許向窗體上放置圖片.圖片格式須為:*.bmp,*.cur,*.gif,*.ico,*.jpg,*.wmf.RefEdit這是工具箱中默認情況下的最后一個控件。它外觀象文本框，通過這個控件可以將用戶窗體折疊起來，以便選擇單元格區(qū)域。在對用戶窗體設(shè)計得滿意時，可以對其進行預覽，方法是在VBA編輯器中選擇該窗體，單擊“運行”菜單中的三角符號“運行子過程/用戶窗體”，三角符號在

VBA工具欄上也可能看得到，旁邊是一個垂直的等于符號，最右邊是個小正方形符號，它們類似于錄音機上的按鈕。運行窗體的另一個方法是按F5鍵。小結(jié)83ppt課件使用用戶窗體圖像控件它允許向窗體上放置圖片.圖片格式須代碼存在的位置

VBA代碼必須存放在某個位置，這個地方就是模塊。有兩種基本類型的模塊：標準模塊和類模塊。模塊中的每個過程或者是函數(shù)過程，或者是子程序概念.新術(shù)語：

你的大部分工作集中在標準模塊中（簡稱為模塊）當錄制宏時如果不存在模塊，EXCEL自動創(chuàng)建一個。EXCEL和VBA不關(guān)心代碼存放在哪一個模塊中，只要代碼存在于打開的工作簿中即可。

模塊：它是作為一個單元保存在一起的VBA定義和過程的集合。類模塊：VBA允許你創(chuàng)建自己的對象，對象的定義包含在類模塊中。84ppt課件代碼存在的位置VBA代碼必須存放在某個位置，這個地方就是模

對模塊的概覽

Sub

cmdSmallFont_Click()

With

Selection.Font

.Name="Arial"

.FontStyle="Regular"

.Size=16

End

With

End

sub過程被定義為VBA代碼的一個單元，過程中包括一系列用于執(zhí)行某個任務或是進行某種計算的語句。上面列出的過程實際上是一個事件過程。這個過程的名字是由一個按鈕對象的名字CmdSmallFont和一個事件的名字Click組成的，兩者之間用下劃線分開。當單擊這個命令按鈕時，就會運行這個事件過程。85ppt課件

對模塊的概覽Sub

cmdSmallFont_Click函數(shù)過程通常情況下稱為函數(shù)，要返回一個數(shù)值。這個數(shù)值通常是計算的結(jié)果或是測試的結(jié)果，例如False

或True.正如前面所說，可以用VBA創(chuàng)建自定義函數(shù)。實際上可以在工作表上使用你創(chuàng)建的函數(shù)。程序清單4-2是一個計算價格的10%為運費的簡單例子。簡單的用戶定義函數(shù)示例。Public

Function

Shipping(Price)Shipping

=

Price

*

0.1

End

Function這個函數(shù)使用一個參數(shù)（Price).子程序和函數(shù)都可以使用參數(shù)。Price可以是數(shù)字和單元格引用。86ppt課件Public

Function

Shipping(Price創(chuàng)建過程

創(chuàng)建第一個過程需要兩個基本步驟。首先，需要向工作簿中添加一個模塊。接著需要向模塊中添加一個工程。對于創(chuàng)建的每一個應用程序，只需添加一次模塊?？梢允褂枚鄠€模塊，但這是不必要的。某些開發(fā)者喜歡使用多個模塊，以便根據(jù)他們的目的或者窗體對過程進行組織。在本練習中，創(chuàng)建的過程只顯示一個消息框。

在本練習中創(chuàng)建的過程只顯示一個消息框。在本練習中使用Msgbox是為了提供一個可見的例子，雖然我們還沒有介紹過Msgbox語句，但是在本例中將使用它。要創(chuàng)建該過程，請按如下步驟進行：打開一個新工作簿。選擇"工具"-"宏"-"Visual

Basic編輯器"，打開VBA編輯器窗口。87ppt課件創(chuàng)建過程創(chuàng)建第一個過程需要兩個基本步驟。打開一個新工作簿。在`VBA編輯器的左面，可以看到“工程資源管理器”窗口。在工程資源管理器窗口的“Thisworkbook"上單擊鼠標右鍵，選擇“插入”-“模塊”，這樣就將一個模塊添加到應用程序中了。(如果你沒有看見“工程資源管理器”窗口，可以按Ctrl+R)。選擇“插入”“過程”，顯示“添加過程”對話框。輸入“第一個工程”作為過程名字。在“類型”分組框中，確認選擇了“子程序”。單擊“確定”按鈕。這樣一個新的過程就添加到模塊中了。可以在模塊中看到以

Public

Sub

第一個過程（）開始，以End

Sub結(jié)束的語句結(jié)構(gòu)。88ppt課件在`VBA編輯器的左面，可以看到“工程資源管理器”窗口。選擇6）在過程中插入光標，輸入以下語句并回車：Msgbox

"這是我的第一個過程"在輸入Msgbox后