Accessvba編程(我想學(xué)EXCEL的VBA)

1.我想學(xué)EXCEL的VBA基礎(chǔ)知識(shí)

VBA概述：VBA是Visual Basic For Application的縮寫(xiě)，是VB在office中的運(yùn)用。

是基于Visual Basic For Windows發(fā)展而來(lái)的，VB For Windows是Microsoft于1992年推出的開(kāi)發(fā)Windows應(yīng)用程序的程序設(shè)計(jì)語(yǔ)言，由于基語(yǔ)法簡(jiǎn)單，易學(xué)易用，所以深受用戶的歡迎。而VBA和VB For Windows大體相似。

在Office2000之前，VBA在Word,Excel,Access等Office系統(tǒng)軟件中的運(yùn)用有些有同，但是到Office2000就統(tǒng)一起來(lái)了。Excel是第一個(gè)包含有VBA的應(yīng)用程序，自O(shè)ffice2000以后，Eexel,Word,PowerPoint,Access中已經(jīng)有了統(tǒng)一標(biāo)準(zhǔn)的宏語(yǔ)言VBA，其中Excel和Access的VBA最為成熟。

在Excel中VBA程序即可以存放有.xls中，也可以單獨(dú)以文本形式存放。對(duì)VBA的學(xué)習(xí)，用戶首先必須VB有一定的了解（不過(guò)不必很專業(yè)，畢竟經(jīng)常用Excel的用戶一般是辦公人員，不可能是專業(yè)編程人員），然后結(jié)合宏記錄器學(xué)習(xí)。

因?yàn)?，宏記錄器可以記錄宏，用戶可以非常清楚了然VBA的很多知識(shí)。另外，如果不是功能很強(qiáng)大的VBA程序，那么用宏記錄器就足夠了。

打開(kāi)密碼記錄器的方法，通過(guò)“工具->宏->錄制新宏”。另外，用戶可能用“工具->宏->宏。”

來(lái)管理宏。用“工具->宏->VB 編輯器”或Alt+F11可以打開(kāi)VB編輯器，在VB編程器，可以很方便地整個(gè)VB工程進(jìn)行管理，可以方便地編寫(xiě)VBA代碼，另外，用戶可以再點(diǎn)擊Alt+F11切換到Excel窗口。

VBA的使用過(guò)程： 1、創(chuàng)建一個(gè)Excel文件。 2、創(chuàng)建一個(gè)控件，然后雙擊控件或是右擊該控件，點(diǎn)擊“查看代碼”，就可以對(duì)該控件的某個(gè)事件，如click,keydown等。

進(jìn)行編寫(xiě)執(zhí)行代碼了。創(chuàng)建控件的方法是，點(diǎn)擊“視圖->工具欄->控件工具箱”，打開(kāi)“控件工具箱”欄，然后就可以直接拖動(dòng)某個(gè)控件到Excel單元格中去。

在Excel中窗口，添加的控件一般是處于執(zhí)行狀態(tài)的，如果要對(duì)這個(gè)控件進(jìn)行編輯，除了第一次建立的時(shí)候可以對(duì)它進(jìn)行屬性編輯外，打開(kāi)“控件工具箱”，也可以使控件處于編輯狀態(tài)，如果還不行，可以再添加一個(gè)控件，然后已有的控件絕對(duì)會(huì)處于編輯狀態(tài)。當(dāng)然，對(duì)控件修改完畢后，別忘了刪除剛才新添加的沒(méi)有用的控件。

在編輯狀態(tài)中，你可以右擊該控件，點(diǎn)擊“屬性”，那么就可以打開(kāi)屬性窗口，在這個(gè)窗口里，你可以很方便的對(duì)這個(gè)控件的名字，標(biāo)題，大小等屬性進(jìn)行編輯。 3、手動(dòng)或用宏記錄器對(duì)該控件的某個(gè)事件進(jìn)行編碼。

宏記錄器簡(jiǎn)單易用，不過(guò)強(qiáng)大的功能還是必須手動(dòng)編寫(xiě)VBA。VBA對(duì)象介紹： 編寫(xiě)VBA代碼的最關(guān)鍵在于靈活運(yùn)用VBA對(duì)象，對(duì)這些VBA對(duì)象的屬性或方法進(jìn)行操作。

另外，你也可以創(chuàng)建自定義函數(shù)，來(lái)對(duì)某些操作進(jìn)行封裝。既然是VBA，編碼風(fēng)格當(dāng)然和VB相同，如果會(huì)VB，那么只要對(duì)VBA的對(duì)象比較了解，就可以編寫(xiě)功能強(qiáng)大的VBA程序；同樣，如果不會(huì)VB，那么，只需要了解VBA的對(duì)象就夠了，因?yàn)樗容^簡(jiǎn)單易學(xué)。

以下分別討論VBA各對(duì)象對(duì)其屬性與方法： 在一些可以包含其他對(duì)象的窗口對(duì)象中，有幾個(gè)特殊的屬性，其屬性值是當(dāng)前活動(dòng)對(duì)象，對(duì)它們，可以直接引用。表1 一些特殊的屬性 對(duì)象名 含義 ActiveWorkbook 當(dāng)前工作簿，即如果你打開(kāi)了幾個(gè)Excel文件，那么你當(dāng)然正在編輯的Excel文件即ActiveWorkbook ActiveSheet 當(dāng)前工作簿中的當(dāng)前工作表，即當(dāng)前編輯的Excel文件中正在編輯的工作表 ActiveCell 當(dāng)前工作表中活動(dòng)單元格 ActiveChart 當(dāng)前工作簿中的活動(dòng)圖表 Selection 當(dāng)前被選定的對(duì)象 下面詳談各對(duì)象及它們的屬性和方法 一、Application對(duì)象 此對(duì)象指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的滾動(dòng)條 6、DisplayStatusBar屬性 含義：用以確定是否顯示Excel的狀態(tài)欄 7、EnableCancelkey屬性 含義：用以確定是否允許用戶中斷正在執(zhí)行著的VBA程序。

缺省情況下，在VBA程序執(zhí)行過(guò)程中，用戶按下Ctrl+Break能夠中斷VBA程序的執(zhí)行。此時(shí)此屬性即值為xlInterrupt。

若要禁止中斷VBA程序，由賦值為xlDisabled；若需要VBA執(zhí)行過(guò)程中遇到錯(cuò)誤進(jìn)中止，由賦值為xlErrorHandler8、ScreenUpdating屬性 含義：用以確定是否顯示VBA程序的中間運(yùn)算結(jié)果。 9、StatusBar屬性 含義：設(shè)置狀態(tài)欄的文本 10、ActiveWorkbook屬性 含義：如表1介紹。

11、ActiveSheet 含義：如表1介紹。 12、ActiveCell屬性 含義：如表1介紹。

13、ThisWorkBook屬性 含義：用以返回正在執(zhí)行著VBA程序。

2.Access的VBA編程問(wèn)題,在線等

“計(jì)算”按鈕的_onclick事件程序

With Me

If Not IsNull(.Tt1.Value) Then

If IsNumeric(.Tt1.Value) Then

If Not IsNull(.Tt2.Value) Then

If IsNumeric(.Tt2.Value) Then

.Tt3.Value = Val(.Tt1.Value) + Val(.Tt2.Value)

End If

End If

End If

End If

End With

“關(guān)閉”按鈕的_onclick事件程序

docmd.close acform, me.name, acsaveyes

3.Access2007入門詳細(xì)教程

《Access 2007 教程》【珍藏版】[PDF]作者美國(guó)）（michael R.）邁克爾 譯者：謝俊 出版社：人民郵電出版社 出版日期：2008年 內(nèi)容簡(jiǎn)介 Access是面向個(gè)人用戶及小型公司的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，Microsoft Access 2007是該工具的最新版本。

這一版本不僅提供了很多全新的功能，最重要的是提供了全新的界面，因此與過(guò)去所有的Access版本都不同。本書(shū)分為6個(gè)部分，包括Access的組成部分、Microsoft Access編程、更高級(jí)的Access技術(shù)、專業(yè)數(shù)據(jù)庫(kù)開(kāi)發(fā)、作為企業(yè)平臺(tái)的Access以及附錄，從而由淺入深地介紹了Access 2007的所有功能。

本書(shū)由經(jīng)驗(yàn)豐富的Access專業(yè)人士編寫(xiě)，并且在隨書(shū)光盤中提供了幾乎所有章節(jié)都用到的示例數(shù)據(jù)庫(kù)，讓讀者可以邊操作邊學(xué)習(xí)。 全書(shū)圖文并茂，語(yǔ)言簡(jiǎn)練，是Access初學(xué)者、中高級(jí)用戶和數(shù)據(jù)庫(kù)開(kāi)發(fā)人員的必備書(shū)籍。

編輯推薦 Access是面向個(gè)人用戶及小型公司的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，Microsoft Access 2007是該工具的最新版本。這一版本不僅提供了很多全新的功能，最重要的是提供了全新的界面，因此與過(guò)去所有的Access版本都不同。

本書(shū)分為6個(gè)部分，包括Access的組成部分、Microsoft Access編程、更高級(jí)的Access技術(shù)、專業(yè)數(shù)據(jù)庫(kù)開(kāi)發(fā)、作為企業(yè)平臺(tái)的Access以及附錄，從而由淺入深地介紹了Access 2007的所有功能。 本書(shū)由經(jīng)驗(yàn)豐富的Access專業(yè)人士編寫(xiě)，并且在隨書(shū)光盤中提供了幾乎所有章節(jié)都用到的示例數(shù)據(jù)庫(kù)，讓讀者可以邊操作邊學(xué)習(xí)。

全書(shū)圖文并茂，語(yǔ)言簡(jiǎn)練，是Access初學(xué)者、中高級(jí)用戶和數(shù)據(jù)庫(kù)開(kāi)發(fā)人員的必備書(shū)籍。 目錄 第1部分Access的組成部分 第1章數(shù)據(jù)庫(kù)開(kāi)發(fā)簡(jiǎn)介 第2章創(chuàng)建Access表 第3章出色的數(shù)據(jù)庫(kù)設(shè)計(jì) 第4章使用查詢選擇數(shù)據(jù) 第5章在Access中使用運(yùn)算符和表達(dá)式 第6章使用“數(shù)據(jù)表視圖” 第7章創(chuàng)建基本的Access窗體 第8章在Access窗體上處理數(shù)據(jù) 第9章使用Access報(bào)表呈現(xiàn)數(shù)據(jù) 第2部分Microsoft Access編程 第10章VBA編程基礎(chǔ) 第11章掌握VBA數(shù)據(jù)類型與過(guò)程 第12章了解Access事件模型 第13章在查詢和VBA代碼中使用表達(dá)式 第14章使用VBA代碼訪問(wèn)數(shù)據(jù) 第15章使用VBA調(diào)試工具 第3部分更高級(jí)的Access技術(shù) 第16章使用外部數(shù)據(jù) 第17章導(dǎo)入和導(dǎo)出數(shù)據(jù) 第18章高級(jí)Access查詢技術(shù) 第19章高級(jí)Access窗體技術(shù) 第20章高級(jí)Access報(bào)表技術(shù) 第21章構(gòu)建多用戶應(yīng)用程序 第22章將Access和其他應(yīng)用程序集成 第23章將Access和SharePoint集成 第24章使用ActiveX控件 第25章處理錯(cuò)誤和異常 第4部分專業(yè)數(shù)據(jù)庫(kù)開(kāi)發(fā) 第26章優(yōu)化Access應(yīng)用程序 第27章利用VBA進(jìn)行高級(jí)數(shù)據(jù)訪問(wèn) 第28章出色的Access應(yīng)用程序 第29章保證Access應(yīng)用程序的安全性 第30章使用Windows API 第31章使用Access復(fù)制功能 第32章使用VBA的面向?qū)ο缶幊?第33章借助庫(kù)重用VBA代碼 第34章自定義Access功能區(qū) 第35章發(fā)布Access應(yīng)用程序 第36章使用Access宏 第5部分作為企業(yè)平臺(tái)的Access 第37章在Access 2007中使用XML 第38章作為數(shù)據(jù)源的SharePoint 第39章客戶端/服務(wù)器概念 第40章作為Access伙伴的SQL Server 第41章將Access數(shù)據(jù)庫(kù)升遷到SQL Server 第6部分附錄 附錄AAccess 2007規(guī)范 附錄B光盤上的內(nèi)容 附錄CAccess 2007中的新增功能 Size: 149.71 MB 地址：。

4.Access窗體操作及VBA或宏編寫(xiě)

1. 需要建一個(gè)用戶表，表中要有用戶名和密碼字段，只建一個(gè)用戶表就可以；

2. 登陸按鈕的單擊事件代碼：

Private Sub 登陸_Click()

if isnull(me.用戶名) or isnull(me.密碼) then

msgbox "請(qǐng)輸入正確的用戶名和密碼！"

elseif isnull(DLookup（"用戶名"，"用戶表"，"用戶名='" & me.用戶名 & "'"）) then

msgbox "用戶名不存在！"

elseif DLookup（"密碼"，"用戶表"，"用戶名='" & me.用戶名 & "'"）=me.密碼 then

docmd.openform 個(gè)人信息窗體

docmd.Close acForm,me.name

else

msgbox "密碼錯(cuò)誤！"

end if

end sub3. 重置按鈕的點(diǎn)擊事件代碼：

Private Sub 重置_Click()

me.用戶名=null

me.密碼=null

me.用戶名.SetFocus

end sub

祝你成功！

5.一個(gè)ACCESS的VBA編程

s=0 '把0賦值給變量s For i=1 To 10 step 2 'FOR循環(huán)，步長(zhǎng)為2，即每循環(huán)一下，i的值加2,1為i的初始值，當(dāng)i超過(guò)10時(shí)退出循環(huán) s=s+1 's的值增加1 i=i*2 'i的數(shù)值擴(kuò)大1倍 Next i '循環(huán)詳細(xì)過(guò)程如下：s=0,i=1，執(zhí)行第一次循環(huán)后，s=1,i=2next i，即i=i+2 s=1,i=4，執(zhí)行第二次循環(huán)后，s=2,i=8next i，即i=i+2 s=2,i=10，執(zhí)行第三次循環(huán)后，s=3,i=20next i，即i=i+2 s=3,i=22,i此時(shí)>10，退出循環(huán)最后s=3,i=22。