Accessvba編程(我想學(xué)EXCEL的VBA)
1.我想學(xué)EXCEL的VBA基礎知識
VBA概述：VBA是Visual Basic For Application的縮寫(xiě)，是VB在office中的運用。
是基于Visual Basic For Windows發(fā)展而來(lái)的，VB For Windows是Microsoft于1992年推出的開(kāi)發(fā)Windows應用程序的程序設計語(yǔ)言，由于基語(yǔ)法簡(jiǎn)單，易學(xué)易用，所以深受用戶(hù)的歡迎。而VBA和VB For Windows大體相似。
在Office2000之前，VBA在Word,Excel,Access等Office系統軟件中的運用有些有同，但是到Office2000就統一起來(lái)了。Excel是第一個(gè)包含有VBA的應用程序，自Office2000以后，Eexel,Word,PowerPoint,Access中已經(jīng)有了統一標準的宏語(yǔ)言VBA，其中Excel和Access的VBA最為成熟。
在Excel中VBA程序即可以存放有.xls中，也可以單獨以文本形式存放。對VBA的學(xué)習，用戶(hù)首先必須VB有一定的了解（不過(guò)不必很專(zhuān)業(yè)，畢竟經(jīng)常用Excel的用戶(hù)一般是辦公人員，不可能是專(zhuān)業(yè)編程人員），然后結合宏記錄器學(xué)習。
因為，宏記錄器可以記錄宏，用戶(hù)可以非常清楚了然VBA的很多知識。另外，如果不是功能很強大的VBA程序，那么用宏記錄器就足夠了。
打開(kāi)密碼記錄器的方法，通過(guò)“工具->宏->錄制新宏”。另外，用戶(hù)可能用“工具->宏->宏。”
來(lái)管理宏。用“工具->宏->VB 編輯器”或Alt+F11可以打開(kāi)VB編輯器，在VB編程器，可以很方便地整個(gè)VB工程進(jìn)行管理，可以方便地編寫(xiě)VBA代碼，另外，用戶(hù)可以再點(diǎn)擊Alt+F11切換到Excel窗口。
VBA的使用過(guò)程： 1、創(chuàng )建一個(gè)Excel文件。 2、創(chuàng )建一個(gè)控件，然后雙擊控件或是右擊該控件，點(diǎn)擊“查看代碼”，就可以對該控件的某個(gè)事件，如click,keydown等。
進(jìn)行編寫(xiě)執行代碼了。創(chuàng )建控件的方法是，點(diǎn)擊“視圖->工具欄->控件工具箱”，打開(kāi)“控件工具箱”欄，然后就可以直接拖動(dòng)某個(gè)控件到Excel單元格中去。
在Excel中窗口，添加的控件一般是處于執行狀態(tài)的，如果要對這個(gè)控件進(jìn)行編輯，除了第一次建立的時(shí)候可以對它進(jìn)行屬性編輯外，打開(kāi)“控件工具箱”，也可以使控件處于編輯狀態(tài)，如果還不行，可以再添加一個(gè)控件，然后已有的控件絕對會(huì )處于編輯狀態(tài)。當然，對控件修改完畢后，別忘了刪除剛才新添加的沒(méi)有用的控件。
在編輯狀態(tài)中，你可以右擊該控件，點(diǎn)擊“屬性”，那么就可以打開(kāi)屬性窗口，在這個(gè)窗口里，你可以很方便的對這個(gè)控件的名字，標題，大小等屬性進(jìn)行編輯。 3、手動(dòng)或用宏記錄器對該控件的某個(gè)事件進(jìn)行編碼。
宏記錄器簡(jiǎn)單易用，不過(guò)強大的功能還是必須手動(dòng)編寫(xiě)VBA。VBA對象介紹： 編寫(xiě)VBA代碼的最關(guān)鍵在于靈活運用VBA對象，對這些VBA對象的屬性或方法進(jìn)行操作。
另外，你也可以創(chuàng )建自定義函數，來(lái)對某些操作進(jìn)行封裝。既然是VBA，編碼風(fēng)格當然和VB相同，如果會(huì )VB，那么只要對VBA的對象比較了解，就可以編寫(xiě)功能強大的VBA程序；同樣，如果不會(huì )VB，那么，只需要了解VBA的對象就夠了，因為它比較簡(jiǎn)單易學(xué)。
以下分別討論VBA各對象對其屬性與方法： 在一些可以包含其他對象的窗口對象中，有幾個(gè)特殊的屬性，其屬性值是當前活動(dòng)對象，對它們，可以直接引用。表1 一些特殊的屬性 對象名 含義 ActiveWorkbook 當前工作簿，即如果你打開(kāi)了幾個(gè)Excel文件，那么你當然正在編輯的Excel文件即ActiveWorkbook ActiveSheet 當前工作簿中的當前工作表，即當前編輯的Excel文件中正在編輯的工作表 ActiveCell 當前工作表中活動(dòng)單元格 ActiveChart 當前工作簿中的活動(dòng)圖表 Selection 當前被選定的對象 下面詳談各對象及它們的屬性和方法 一、Application對象 此對象指Excel應用程序的工作環(huán)境。
屬性 1.Caption屬性 含義：Excel應用程序標題欄顯示的文本。 舉例：Application.caption=“船員管理系統”，如賦值Empty，則恢復Excel默認的標題欄。
2.Cursor屬性 含義：Excel中鼠標的形狀。 表2 Cursor屬性 屬性值 鼠標形狀 xlDefault 缺少型值，鼠標呈缺少形狀 xlWait 等待型值，鼠標呈不斷翻轉的沙漏形狀 xlNorthwestArrow 箭頭型值，鼠標呈標準箭頭形狀 xlIBeam 文本型值，鼠標呈“I”字形以等待用戶(hù)輸入文本 操作：Application.Cursor=xlWait等。
3、DisplayAlerts屬性 含義：用以確定是否顯示系統的應用提示和警告信息，如果不想顯示，則把些屬性設為false，反之亦然。4、DisplayFormulaBar屬性 含義：用以確定是否顯示公式編輯欄 5、DisplayScrollBars屬性 含義：用以確定是否顯示Excel的滾動(dòng)條 6、DisplayStatusBar屬性 含義：用以確定是否顯示Excel的狀態(tài)欄 7、EnableCancelkey屬性 含義：用以確定是否允許用戶(hù)中斷正在執行著(zhù)的VBA程序。
缺省情況下，在VBA程序執行過(guò)程中，用戶(hù)按下Ctrl+Break能夠中斷VBA程序的執行。此時(shí)此屬性即值為xlInterrupt。
若要禁止中斷VBA程序，由賦值為xlDisabled；若需要VBA執行過(guò)程中遇到錯誤進(jìn)中止，由賦值為xlErrorHandler8、ScreenUpdating屬性 含義：用以確定是否顯示VBA程序的中間運算結果。 9、StatusBar屬性 含義：設置狀態(tài)欄的文本 10、ActiveWorkbook屬性 含義：如表1介紹。
11、ActiveSheet 含義：如表1介紹。 12、ActiveCell屬性 含義：如表1介紹。
13、ThisWorkBook屬性 含義：用以返回正在執行著(zhù)VBA程序。
2.Access的VBA編程問(wèn)題,在線(xiàn)等
“計算”按鈕的_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入門(mén)詳細教程
《Access 2007 教程》【珍藏版】[PDF]作者美國）（michael R.）邁克爾 譯者：謝俊 出版社：人民郵電出版社 出版日期：2008年 內容簡(jiǎn)介 Access是面向個(gè)人用戶(hù)及小型公司的數據庫開(kāi)發(fā)工具，Microsoft Access 2007是該工具的最新版本。
這一版本不僅提供了很多全新的功能，最重要的是提供了全新的界面，因此與過(guò)去所有的Access版本都不同。本書(shū)分為6個(gè)部分，包括Access的組成部分、Microsoft Access編程、更高級的Access技術(shù)、專(zhuān)業(yè)數據庫開(kāi)發(fā)、作為企業(yè)平臺的Access以及附錄，從而由淺入深地介紹了Access 2007的所有功能。
本書(shū)由經(jīng)驗豐富的Access專(zhuān)業(yè)人士編寫(xiě)，并且在隨書(shū)光盤(pán)中提供了幾乎所有章節都用到的示例數據庫，讓讀者可以邊操作邊學(xué)習。 全書(shū)圖文并茂，語(yǔ)言簡(jiǎn)練，是Access初學(xué)者、中高級用戶(hù)和數據庫開(kāi)發(fā)人員的必備書(shū)籍。
編輯推薦 Access是面向個(gè)人用戶(hù)及小型公司的數據庫開(kāi)發(fā)工具，Microsoft Access 2007是該工具的最新版本。這一版本不僅提供了很多全新的功能，最重要的是提供了全新的界面，因此與過(guò)去所有的Access版本都不同。
本書(shū)分為6個(gè)部分，包括Access的組成部分、Microsoft Access編程、更高級的Access技術(shù)、專(zhuān)業(yè)數據庫開(kāi)發(fā)、作為企業(yè)平臺的Access以及附錄，從而由淺入深地介紹了Access 2007的所有功能。 本書(shū)由經(jīng)驗豐富的Access專(zhuān)業(yè)人士編寫(xiě)，并且在隨書(shū)光盤(pán)中提供了幾乎所有章節都用到的示例數據庫，讓讀者可以邊操作邊學(xué)習。
全書(shū)圖文并茂，語(yǔ)言簡(jiǎn)練，是Access初學(xué)者、中高級用戶(hù)和數據庫開(kāi)發(fā)人員的必備書(shū)籍。 目錄 第1部分Access的組成部分 第1章數據庫開(kāi)發(fā)簡(jiǎn)介 第2章創(chuàng )建Access表 第3章出色的數據庫設計 第4章使用查詢(xún)選擇數據 第5章在A(yíng)ccess中使用運算符和表達式 第6章使用“數據表視圖” 第7章創(chuàng )建基本的Access窗體 第8章在A(yíng)ccess窗體上處理數據 第9章使用Access報表呈現數據 第2部分Microsoft Access編程 第10章VBA編程基礎 第11章掌握VBA數據類(lèi)型與過(guò)程 第12章了解Access事件模型 第13章在查詢(xún)和VBA代碼中使用表達式 第14章使用VBA代碼訪(fǎng)問(wèn)數據 第15章使用VBA調試工具 第3部分更高級的Access技術(shù) 第16章使用外部數據 第17章導入和導出數據 第18章高級Access查詢(xún)技術(shù) 第19章高級Access窗體技術(shù) 第20章高級Access報表技術(shù) 第21章構建多用戶(hù)應用程序 第22章將Access和其他應用程序集成 第23章將Access和SharePoint集成 第24章使用ActiveX控件 第25章處理錯誤和異常 第4部分專(zhuān)業(yè)數據庫開(kāi)發(fā) 第26章優(yōu)化Access應用程序 第27章利用VBA進(jìn)行高級數據訪(fǎng)問(wèn) 第28章出色的Access應用程序 第29章保證Access應用程序的安全性 第30章使用Windows API 第31章使用Access復制功能 第32章使用VBA的面向對象編程 第33章借助庫重用VBA代碼 第34章自定義Access功能區 第35章發(fā)布Access應用程序 第36章使用Access宏 第5部分作為企業(yè)平臺的Access 第37章在A(yíng)ccess 2007中使用XML 第38章作為數據源的SharePoint 第39章客戶(hù)端/服務(wù)器概念 第40章作為Access伙伴的SQL Server 第41章將Access數據庫升遷到SQL Server 第6部分附錄 附錄AAccess 2007規范 附錄B光盤(pán)上的內容 附錄CAccess 2007中的新增功能 Size: 149.71 MB 地址：。
4.Access窗體操作及VBA或宏編寫(xiě)
1. 需要建一個(gè)用戶(hù)表，表中要有用戶(hù)名和密碼字段，只建一個(gè)用戶(hù)表就可以；
2. 登陸按鈕的單擊事件代碼：
Private Sub 登陸_Click()
if isnull(me.用戶(hù)名) or isnull(me.密碼) then
msgbox "請輸入正確的用戶(hù)名和密碼！"
elseif isnull(DLookup（"用戶(hù)名"，"用戶(hù)表"，"用戶(hù)名='" & me.用戶(hù)名 & "'"）) then
msgbox "用戶(hù)名不存在！"
elseif DLookup（"密碼"，"用戶(hù)表"，"用戶(hù)名='" & me.用戶(hù)名 & "'"）=me.密碼 then
docmd.openform 個(gè)人信息窗體
docmd.Close acForm,me.name
else
msgbox "密碼錯誤！"
end if
end sub3. 重置按鈕的點(diǎn)擊事件代碼：
Private Sub 重置_Click()
me.用戶(hù)名=null
me.密碼=null
me.用戶(hù)名.SetFocus
end sub
祝你成功！
5.一個(gè)ACCESS的VBA編程
s=0 '把0賦值給變量s For i=1 To 10 step 2 'FOR循環(huán)，步長(cháng)為2，即每循環(huán)一下，i的值加2,1為i的初始值，當i超過(guò)10時(shí)退出循環(huán) s=s+1 's的值增加1 i=i*2 'i的數值擴大1倍 Next i '循環(huán)詳細過(guò)程如下：s=0,i=1，執行第一次循環(huán)后，s=1,i=2next i，即i=i+2 s=1,i=4，執行第二次循環(huán)后，s=2,i=8next i，即i=i+2 s=2,i=10，執行第三次循環(huán)后，s=3,i=20next i，即i=i+2 s=3,i=22,i此時(shí)>10，退出循環(huán)最后s=3,i=22。
