excel2010vba筆記(實戰(zhàn)教程)(基礎(chǔ)實例)

1、VBA筆記 8-21.VBA是什么：微軟開發(fā)出來的應用程序一種能共享通用的自動化語言，VBA能使已有的應用程序（excel等）自動化，可以創(chuàng)建自定義的解決方案 .等同：可以用excel的宏語言來使excel自動化使用word BASIC使word自動化，等等。VBA可以稱作excel的遙控器.此外，如果你愿意，還可以 將excel用做開發(fā)平臺實現(xiàn)應用程序.VBA可以實現(xiàn)的功能.使重復的任務(wù)自動化.自定義excel工具欄，菜單和界面.簡化模板的使用.自定義excel,使其成為開發(fā)平臺.創(chuàng)建報表.對數(shù)據(jù)進行復雜的操作和分析.3宏錄制簡單的宏選擇“工具”一“宏”一“錄制新宏”一輸入宏名一確定一開始錄

2、制（狀態(tài)欄中顯示“錄制”）一結(jié)束宏錄制（“工具”一“宏”一“停止錄制”。）*開始錄制并非一個按鈕，而是你的一系列操作，宏會記錄下來變?yōu)樽约旱牟僮鳌?zhí)行宏選擇任何一個單元格一選擇“工具”一“宏”一“宏” （出現(xiàn) “宏”對話框）一選擇相應的宏名一“執(zhí)行”。查看錄制的代碼工具”一“宏”一“宏”（顯示“宏”對話框）一選擇某個宏一“編輯”VBA的編輯器窗口（ VBE ）Sub改變顏色（）宏名 ， 改變顏色Macroxw 記錄的宏 2000-6-10，以上五行錄制時自動生成Range（A5）.Select 表示無論選擇哪個單元格，最后都只作用于A5With Selection.Interior /設(shè)置屬性

3、在選擇區(qū)域的內(nèi)部（開始錄制屬性）.Colorindex = 3/顏色為3號色：紅色.Pattern = xlSolid 區(qū)域內(nèi)部圖案=純色（錄制時自動生成，可刪）PatternColorIndex = xlAutomatic /內(nèi)部圖案底紋顏色 =自動（自動生成，可刪）End With 結(jié)束屬性錄制End Sub能吉束宏錄制一個名為練習的宏：Sub練習（） 練習宏With Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous.Colorindex = 0.TintAndShade = 0.Weight = xlMediumEnd With

4、With Selection.Borders(xlEdgeTop).LineStyle = xlContinuous.Colorindex = 0.TintAndShade = 0.Weight = xlMediumEnd WithWith Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.Colorindex = 0.TintAndShade = 0.Weight = xlMediumEnd WithWith Selection.Borders(xlEdgeRight).LineStyle = xlContinuous.Colo

5、rindex = 0.TintAndShade = 0.Weight = xlMediumEnd WithSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneWith Selection.Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 5296274.TintAndShade = 0.PatternTintAndShade = 0End Wit

6、hWith Selection.Font.Color = -16727809.TintAndShade = 0End WithEnd Sub為宏指定快捷鍵制建宏時指定：只須在錄制宏時在輸入宏名后，在“快捷鍵”文本框中輸入相應的鍵。錄制宏后指定：選擇“工具”一“宏”,顯示“宏”對話框一選擇要指定快捷鍵的宏一“選項”一選項”對話框決定宏保存的位置在創(chuàng)建時選擇保存位置。1)當前工作簿。(只有該工作簿打開時，該宏才可用。)2)新工作簿。3)個人宏工作簿。(要讓某個宏在多個工作簿都能使用，那么就應當創(chuàng)建個人宏工作簿，并將宏保存于其中。個人宏工作簿保存在“XLSTART ”文件夾中。)將宏指定給按鈕工具欄

7、一“按鈕”一添加按鈕完成“指定宏”對話框一選擇宏-確定一改名按鈕名稱將宏指定給圖片或其他對象指定給圖片：單擊某個圖片一單擊菜單中“指定宏”進行設(shè)置即可;將宏指定給“工具欄按鈕”：1）打開“ HOUR2”工作簿，選擇“工具”-“定義”，顯示“自定義工具欄”對話框。2）從“類別”列表框中選擇“宏”，從“命令”列表框中選擇“自定義按鈕”。3）將“自定義按鈕”拖動到工具欄。4）右鍵單擊該按鈕，選擇“指定宏”，顯示“指定宏”對話框。5）選擇“格式化文本”并確定。6）單擊“關(guān)閉”按鈕，關(guān)閉“自定義工具欄”對話框。7）試著在某個單元格中輸入文本，單擊工具欄按鈕運行該宏。.控件向工作表添加控件設(shè)置控件的特性.

8、理解變量創(chuàng)建一個簡單的過程1）創(chuàng)建一個名為你叫什么名字”的過程.2）在過程中輸入如下代碼：Inputbox 輸入你的名字：現(xiàn)在不要擔心inputbox語句的語法，將在第六學時中了解到有關(guān)這條命令的更多信息.3）按下F5鍵運行過程，這時會顯示一個輸入框，要求輸入你的名字.4）輸入你的名字并按確定按鈕，則結(jié)束該過程.變量的數(shù)據(jù)類型VBA 數(shù)據(jù)類型： byte , string, variant, integer,single。聲明變量Dim變量名AS數(shù)據(jù)類型簡單的子程序1）創(chuàng)建一個名為顯示你的名字”的子程序.2）輸入以下代碼：Public Sub顯示你的名字（）Dim s 名字 As String

9、s名字=Inputbox（請輸入你的名字：）Msgbox 你好& s 名字 End Sub3）將鼠標放到過程中的任何地方，按下F5鍵運行過程，會顯示一個輸入框.4）輸入你自己的名字并按回車鍵，會顯示一個消息框，顯示的文字中包含你自己的名字.5）單擊確定按鈕，返回過程中.使用數(shù)組Dim array_name（n） As type （其中n是數(shù)組元素的個數(shù)）例：Dim s學生名字（9） As Integer （保留10個學生名字）Dim dyn_array（） As type （N 可以省略）ReDim dyn_array（）（array_size）:在程序運行時用：ReDim語句指定數(shù)組的大小，

10、array_size代表數(shù)組的新大小。ReDim Preserve dyn_array（array_size）: 保留數(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（輸入考t式成績& i ）Next使用常量const S 銷項稅率 As Long = 0.17通常常量聲明時用全大寫字母以區(qū)分變量公共級變量/常量變： Public variablen

11、ame As datatype常：Public const CONSTANAME datatype = value作用域3.所有過程（通用聲明區(qū)域）：公共級/全局.某一過程頂部：局部 or過程級；2.某一模塊頂部：模塊級 8-226. VBA語言基礎(chǔ)標識符標識變量、常量、過程、函數(shù)、類等。利用它可以完成對變量、常量、過程、函數(shù)、類等的引用。*字母打頭，不能與 VB 保留字重名，如 public,private,dim,goto,next,with,integer,single 等。運算符賦值運算符數(shù)學運算符邏輯運算符關(guān)系運算符&、+（字符連接符）、+（加）、-（減）、Mod （取余）、（整除）

12、、* （乘）、/（除）、-（負號）、人（指數(shù)）Not （非）、=（相同）、And （與）、Or（或卜Xor（異或）、Eqv（相等）、Imp（隱含） （不等）、 （大于）、 （小于）、=（不小于）、=（不大于）、Like、Is位運算符Not （邏輯非）、And（邏輯與）、Or （邏輯或）、Xor （邏輯異或）、Eqv （邏輯等）、Imp （隱含）數(shù)據(jù)類型名稱字符串型String字節(jié)型Byte布爾型Boolean符號$長度字符長度（0-65400）整數(shù)型Integer 長整數(shù)型Long 單精度型Single 雙精度型Double 日期型Date8 公元 100/1/1-99/12/31貨幣型Cur

13、rency 小數(shù)點型Decimal 變體型Variant14無以上任意類型，可變對象型Object變量與常量Dim變量as類型定義為局部變量，如 Dim xyz as integerPrivate變量as類型定義為私有變量，如 Public變量as類型定義為公有變量，如 Global變量as類型定義為全局變量，如Static變量as類型定義為靜態(tài)變量，如Private xyz as byte Public xyz as single Globlal xyz as dateStatic xyz as double作用域的原則是，哪部份定義就在哪部份起作用常量為變量的一種特例，用Const定義，且

14、定義時賦值，程序中不能改變值，見 5.7和5.8節(jié)數(shù)組同5.5節(jié)書寫規(guī)范VBA不區(qū)分標識符的字母大小寫，一律認為是小寫字母；一行可以書寫多條語句，各語句之間以冒號：分開；一條語句可以多行書寫，以空格加下劃線來標識下行為續(xù)行;4)標識符最好能簡潔明了，不造成歧義。7語句判斷語句If Then- - Else 語句： If condition Then statements Else statements。 If condition Then statementsElseIf condition Then statements elseif 。then. else 一 End 例：If Numbe

15、r10 Then Digits=1ElseIf Number ,上j LxnearGradi tnl 由 Lin&FormatLinkF ormai 由 Li EtCfflumn Jjjl Li5tColumtE 連 Li stDatafomat 名 ListObja?t 面 Liiiffbjicti 瀏 Li stEow jl：ListRowEJ”工叫竺士旦感員 奇區(qū)盟 kprlication11 Ctjunt國1 Creator甯 Itei*陶1 Tar entFunction Ad.dl(/c|j，iici,史FgDiiEr。ks, LitEo Exr el .Li stRn.q 的成員

16、示例 ,下示新IS1T作泡的第一張丁佐表中的就H 口嚴）taZt沛5題TM.電度匕CTRL+G調(diào)出立即窗口F4:調(diào)出屬性窗口F5 :將鼠標放在某過程或函數(shù)，可運行該過程；F8分步運行，適合檢錯;工程-VEtAProject區(qū)莫口料SKt2 (14*2) Cbi.aoSjSkeet4 CbiagJ %1*士 (bi a石 Thi 金。rkhmk立即嬴口Sub mm 0,第三列1-10行的值等于第1和2列值的連接Eim i As ByteFor i - 1 Ta 10 Step 之CaisCi, 3) = ：g(L?；蛉?Cells6x 2)Next iEnd Sub5曲hid”M。,隱制旨定單元

17、格的所在行Dim i As ByteFer i = 1 To 10If OU式i, 3） “ punRowi G）. Hidden =_F*lie rcutts值時怔S是行對象 hi d加踹該村理且有的屬性可將光標放在該息性或者對象上,然后按F1隆克君幫助介紹- J TU|Sh.eeWorksheet按字母序|按分類序|貝皿盯Ri ghtToLef二 IniLiAuteFiltur F小w In&tLtCftlculaiicniTi m3natl eF rmndi: Tiienatil eOutl i ni tl 7al.5*enatLeFivctlatleWn&bhS*l*E“n . 1 -

18、 JtU*R*七ri中Naim11.在打開的 workbook的某個excel worksheet對象中練習sheet2：工程-VBAPtoect土jjggg代碼)fB AT t v jecTTFuBCBE XLU3B-tVBATroject CTBAtant. zls*E- v Ni-CTOEoft Ex ceL 對象堆Sheetl (biaol)理 ShEZ (b“)O Sheets (biao3)O Sheets 6iao4)圉 1 Sh&et5 Q)iid5)Tbi 5WorkboohE3 S窗體國窗體理論H窗體實踐閨荽貢窗體E二售塊離窗體輔助模塊曲過程稹境依函數(shù)模版篇,交互模塊段數(shù)蛆

19、模塊G a小二1類稹塊(i用)匕由?？?H三列1T 口行的值等于第1和2列值的連接Him i As Byt?or i = 1 T& 10 Stp 2Clls(i, 3) = Cells(iT 1) &* &匚山6 2)Jest iSut h?LW0隱藏指定而元格的所在行Him i A與 BytiFor i = 1 To 10If Celli (i, 3) O * Th電rtRmeGI Hidden 二 FJse,raws良Uftibcr)是行對象j hi dd白口是該對象具疔的屬性可相比標放在遽履性或者對象上，皴后接F1蓬.查看幫助介紹End IfNut iZnd Suh3址imr t0 1同

20、單元格或者苧干祜體域插1蜀據(jù)dll = 10Eekt4 = 11= 12Hangs (feS ： eLO ) = 13Him i As ByteFor i = 2 To 10Cells (i, 4= Int (Rrtd 0 * 100)Ed口為產(chǎn)生。T之間隨機翻括用函建，在上2節(jié)數(shù)學國數(shù)中有力雄Noxt iEnd Subsheet3 :程-VBAProjectVBAteMLHtem - Sheetz (CJijojxrBATroject (FUICKES.VBAPr eject (VBAttit.Mi crozoft Escel 對象道Shstl Cbil) Qi fiiM ByteFor i

21、 = 1 To 10 Step 2C$H, 3) = Celia ii, 1 & CellsG, Hext iEnd EnLthisworkbook :工程-VSAProject“ VBAt&Kt.xkm - 5tif?KZ (fiiRi)FE尊 OfcTroject始 VBfcProject日Hicrusof t Sheet!器fflje埴言CWAtext. rlsaExcel對臻Qi aol)3hmtE 0i iqZ)Sh#et3 (bi io3)th電電t4 Giafi4jSheet5 (tri aoS)Thi or kb c ok函圖體理論隹I窗瘁賣迷圖多頁窗體-、模塊點：茵體輔助稹埃

22、次過程梗埃段函邀模塊 曲交互槿塊 盤藪鯉槿塊區(qū)3 ；類槿塊| ii*=ertt - TtiiiWorkbook二1按字母序|塊分類序j信前)flccur acyrsi onThistforkbookMitoUpdat cFre： queCh印/宅Hi stflryDraOCLeckComp 磯b iliqF0si.|C ckelEL i c iKt salu-ti. a 1 r xlVKarStBoliuD i *pl ayDr 4w i ftgObj - 21Q4 * ：:lii i =p =D i spl iylikkC om mTDoNtrrciBptForCon EnnblcAxit

23、oKacover TniEncrypt i onFrovi deEwfiloptFisibl* ：FklsFiNF -il.seof ceTuJ_ 1C =al_c JLat F siseHi ghl i gKf.ChaiLges0 F J三已Ii&ctivLi stB ord Tru,I &AddinSub traiksEtO將表2中的17列的ITO行的值復制到表3中 Dim i Am Byi j g Ey七巨 For 二 1 T。 3For i = 1 T 10 Step 1麗n表示號次增加nr如果為Wj則表示循環(huán)為3 國 V1Tl 9默認好3可省略 5hgtE(3LriJO j): Sh

24、NtfCS Clls(i, j)明iKext nEnd. 5ub_Snb numk 維tsera 0 將屆宿 變?yōu)?口Dim i ks ByteDim rrtll Am R&iLg總For i = 1 To 10SM re ell = Workshtsrshta) Cells Ci, 4)If IsNumer icfrcell. Value) ThenI rctll V*lu 50 Then rctll 比=50 End IfEnd If Next i End. Sub &jb 1mdKctfp七八)尋找第一個空單元格斯在行，并將再填充為當期日期 Dim i Ae 0yta j As Eyte

25、 For j = 1 To 3For i = 1 To 10I Isbnpt CSKe ets C2?. Cells G, JJ) Tken MsgBox firit empty cll tcw iw 強 i ShetsQl Cells Ci., j) = DaU Exi t ForExiI ForEnd If Nwt j Next j E SjibSub cqLor暮h*H Q 奇丁行帝加添色 Uin i fix BytFor i = 1 To pplication.ctiQDr Rows. CountI i Nd 2 = 1 ThSelecti cd. Rews (iJ. Interi o

26、r. Color - R1100, 150, 200)End INext i End Sub SubODim mykUitk _A* A. 需使用C5岫(Jibber)進行轉(zhuǎn)換 bitr - hoZLL:Q aitrMsSox tr.EM池中Sub01測試自定義的少數(shù)增數(shù)Dim a. An IM eg er, t kw Integer, c As Integera. = 100 口卜二I。C - myiaddE, 1)MsjgBoM：.過 End SulSub manipuloLti oris 0圖毯程擊With. Activ&Shfist.Shippsrt*Mtbiji 1”)J移動名為TH

27、tboX 1蕨輸I位置，并浪費其大小過程模塊.Left = IQL Top 10Ji 堿h = 35.H“和二 15End HthTith ActivaShvat.移動第二個圖我，.Select,Left = 20-Top - 10一的 Nth = 15一 5；&t = 15End WitKEnd ufe并改變其大小區(qū)程-VBAProiect日-3劇T鼠弓蹌rkbcsok 囪窗體國窗體理論國度甘實俄3?！囪也微固體轆助模決 微過程模塊 微函數(shù)模塊 微交互模埃 微數(shù)組模塊E 類模塊3國國申號目ELPrJ也已t臼盛 YSAPraject白S仙”。*包 亶| M*tl 胤 Eht2-Sheet3訃*

28、鼠4 直 5gM5(yinrcMS. ilm(VBiltextr 翼In秋.以對匏(bkadl)(bta*2)Cbi ao3)(biio4)(biao5)Hj要J盟置 現(xiàn)幻Sheet!Slieet2SheetsSlieet-4(FVWCKES I LAI： GTBAteEt. xlsa Ekc巨1對象 (biaol) iao2) Cb i 自 03 )Qi 當。4) I蛔豆快atprb&ea. zls CkTf BAH, ILM丁程-VBA Project.距囹越=1魅VEAFroj eelVBAProj eel,當 Microscft B She ell .1 Sheets 物 Sheets

29、 閶 ShatUShft a 15(FimCKES. XLAl) sIsb)Excel對去(bi(bi ao2)(bi 重 q3，(bi *聞(bi ao5)ThisflorlboskI- f窗體?圖窗體理治 m1窗陣實裁 國多頁囪達-1模塊帚窗體輔助模塊 儆遠程模決End SubSub tir aiks c oikt ent ()剪切或復制顏據(jù)到目標區(qū)域WcrkzLeets 饞),Acrti vat。fl fil.SiltSelection,Cut CestinitAon.：=fiin4Cel ： tS*) , cut 可用 mpy替族Srtd SubSub statict%sU 0靜套數(shù)里

30、，每次運行后內(nèi)容不丟失合一直保存，適合做累計統(tǒng)計Static totalcostDim ncwcQstl AwDim newcQstl As SingJ enewcostl = In嬴七Eqh“給入本次費用：返回字符串類型值newcostZ = CSngCjiewcostL)匚三揮字符串轉(zhuǎn)換為單精度變量即winglztctalcOs I of.al cost + n.ewcos t2MmgBoH ”本收費用為：ft new co st ft 累 1/1總朝用為：也 totalcot 變更顯示輸入的宜本和變量時，注意在痂之間加空格,來區(qū)分的包含箍唱否則會出惜End u.t_Le - VBAPrn

31、jEct年I VBAtewhHkm 過行惠塊代碼）J-J-|值用）二 |insert?sheet|棗期日田田(ATFVBUI. ILA!WAPh4_Ju七(yUICRES. ILAIJVBAPtoject (XBAtext. xlsb)Microsoft lx cel 對象(j Skl2 由1=2)-豳Skeet3 (L i ao3 )瞽| SheeH (bi4)邕 EhrtS aio5)靶 ThiorkbockT窗體圖用體理論3盲瑋實熊匡二.0像T稹奧溜窖作輔助模決4Z過程模塊附函數(shù)模塊段交互模塊盟數(shù)組模崗j類模塊鋒敏內(nèi)存Ead SulStib iiss6bj i Jtvai-l ibi&)

32、對于有凄多次引用的較長對象可以定義對象耍量來優(yōu)度其位置Dini ihyibjeflt A.5 Ohj4ct定義對襄變量可以為籠懶Must對轅也可以為f詢手,野6甘k學hrt w眩kb sk等且瘁的對象Set mycbiect = WorksheetsC2), RarigeCall ：cl1 11對孽變基底值需使用“tmyobj ect border Around Wticht ：=KlMed.ium $卜國設(shè)置邊框Const coir As Byte = 30定義常數(shù)Wi th rayobj ect. Interior.ColocrlndjeK -亡口lr取值范圍為T到定.Tatkiern -

33、 xlSli 1Ead Hi thS*t my object = WorkshettsCjjl. C*at2 . Jmyobj tct. Formula 二 Int QindO + 10)*七 rnycEie= Notking,表示為胃需霎謠對聚變盤jEnd Sul)MxfBoK 完成Sib simpleithnl0* i f then的判朝語唳習 Dim ss As Siririjg On Error GoT 口 veryend1避免錯誤操作引屈的不必要干猶提慰.55 = LnputEnN請施工一個主商串：.rr三m 6 tool血-同一衍要同時執(zhí)行慳個話剪，聲官號分開Mm或。豈 11 tr

34、y Agairi. Mimpl 屯;1】磨：Debug friat mm J在立即窗口捐出夾量的值 End Ifv*ryanJ:End SutSul1C)需判鼾項較多，用巨工“】您彎If IsEmpiveCslL) 1h4 第一個if MwgBw the cell is wmjtyUseIf I裔B&rieMti四匚曲 11. Valut) TKn J M l if If 4utiF亂ell. Value - 0 Then ,第三，JiAtftivdTsll. Offett (10, O. Value - 土嗓臚也Els elf Acti vCgll. Valut0 ThenkctiCell.

35、 Offset (0. 0 Yalufe 二工匕也七加點ElsIf ActiveCell. /alut 0 ThtaAciivsCell. Offset C0. 1). Vslut - *D.aat i End工E 結(jié)束第三個lj即逆序結(jié)束Elsa： Act iveC4ll. Offset (U? iLValu* = tex七Act iveCell. Offset (Uj 1),Interior.ColorlndeK = EOEnd 結(jié)束第二個準End If 結(jié)束第TifEnd Sub,彈-VBA ProjectBAteHt.Mkm -過程根塊代嗎J.(I 2口二口P3IM5inplei f

36、tlieiDZ圖-由：日獨心丑工工(ATFVBkEI ILM ITBAProject CPU1COS. IUdlJ IFBJlPx-mij ect QTB4七em七丫 kI 互me監(jiān)crosoft El對第W letl Oicl)& Sim52 (bUo2)置處匕5$曲強W)置 Girtd 6i4)屈| SleetS (bi5) Tliiscrkbc4k三f窗體國窗體理論國富體實球國客頁裔住F r模塊微窗體輔助?？旃捱^程慢塊段函數(shù)模決微交互模塊 罐數(shù)組稹塊 由二】類根塊Eikd SubSilL si impl&E elc tcS.s el ()1 .elect 博習再種決策方塞的選擇j比工F嵌

37、套更直現(xiàn)Dim k A與 Intag*r函數(shù)模塊工程-VSAPrOjeLL干田 魅 Np.h皿工Im UlTPW皿,KLM VEAPxfljecL (FWCRl. 1LAI)白驅(qū)七七(VA(eL. xl)一口 IN i c ro so ft Ex c el 對藪下D w白，飛模塊M赭體輔助模奧段題程模改湍函數(shù)模塊 盟交互模塊 遍數(shù)蛆模塊 -D類模塊k = InputBox Cinder t a numb er、Slt k以曲值作為判斷條件C直時。-k為口則做以下步驟Msox力錯謖*C*h i To 10 既在1到1。之間心磔中x “數(shù)量軾少”Ca.se Ls 11既大于 10Me酢閃門合格”匚

38、上賓-1-y -5既為塞個不立續(xù)選項相當于if睪條件中的0R船竦班百可選宿圖”Elk值為再他.此句用相據(jù)情況省略pl6ase ixisrt ag.ain11;inplelecteaselDim nrk As Singlerm. = GfliEi scoiMti Cs)調(diào)用線定好的函醺Ms eBox mi * 10 ft 折En.d SubSub dowhiltKt 0循環(huán)續(xù)習.do條件，當條件為。工.時，循環(huán)結(jié)束，無法礴定而環(huán)次數(shù)Him i A工 Byte i = 0Lq Whil i 10i = i 1 1With UyorkEheets G). Cells (i, 7) .Sd&c t.I

39、nt&rior. Colorlnlex - i + 2End nthLgp “鼠莪條件團以接到北好后面則衰示至少先運行一次儲環(huán) En.d SubSuh0循環(huán)城刁.do .Hit.il條件，當條件為tn曲循環(huán)結(jié)束.無法確定循環(huán)次數(shù) Lim i Am Bytt 1 = LI Do Until i = 11二- 1Wiih Worksheets G) CsllsG, 8) .Select. Inter icr- C) g 工xiti算et myadd - a bEnd Fimcti qbFuncti on GetDi s coimt Ii-itli ts olJl As Integer J,函數(shù)城匚

40、as已磨句Select Case uxli tsSoldC=自 1 To 200GitDicflimt = CLUEC=r 201 To 500GtDisccuiit = 0. 1Ctse 501 T 1000GctDiTS 5t = Cwe Is 1000 GetDicoujit - Ca.se ElseGetDiscount - End Select End Functi on. 2數(shù)組模塊_L程-VRAProjectElCKTPVBAI ILMj . VDAtcKt.Mkm -k蜃 iEMUKfaTl-! x|健用)v| I廬明)J2 魅 VfiAFrojec 域 VBATr口ject在

41、 官體(FUTCKKS.XLAfl) (1TBA-t ext. xLsb) Esc-ilL 對象臼圈根決1段 窗體幡助模塊:潞過程跳 離函數(shù)桎快 微變互模塊 眼數(shù)娼模塊 由囹類蹶Ontinn. EgDliei t . . . , Option Ease i 必須在wu泛上：春制數(shù)瓦下限.史1 ,若無表”且F限為口 Siib arrayt eittl。定義教能房方Dim cmnpoay G) As String 包含4：T成員的薊組下限為cw口Qny口)Divri 亡urnDim i Kf Bytefliunpoiiy (i)=工nputB尤輸入城市的名字：“J i也一Si emp口ityll)

42、 后 也 cumponyC2) & _* * 貪 cuhpoiiy C3)F ocr ajch c um In crumrp ony ttzgoK cum lie2tt.兩種顯不觀察區(qū)別End SulSuh Favori leCi lies3 () 聲明數(shù)想，調(diào)用其他過程 Dim ci ties (6) ks String ci tis (1) = kl+imog ai (2)- AHant aci ties (4)二 nfftshinston.dip1 色) - 1fM酬 TatY5 o =恒的 551rci ties (6) - TrmtootHallo citi es 6 調(diào)用下面的Ha

43、llo過程.并需eiti5 ()值傳通給它 Eil J SuJbSul Hallo Cci ti es 0 As S IriRg含有數(shù)組變量的過程可進曲程間變量的調(diào)用便遞本過程未給數(shù)組五Li電三賦值因為它們的值逋過在上個過程的調(diào)用中使遞程到 Difii counter As Inttggr For counter = 1 To ftMgBox Hello ft cities (countar J用_3 二田,Jie VBAProjectatpvbaen.xls (ATTVAEff ILAJQUICRES. 1LM) tVlAtMt.工1 Elt)Exsl對象由辱VBAPraj*譴 臼摩 VBA

44、FraJect+ -： Mi cr osoftit-Q窗體;-&模塊盤窗體輔助模境尉過程模塊 微函數(shù)量塊 心交互槿塊 幽數(shù)坦槎埃舉模件XS-VBAProject口 1 u.田 廉七pba/ir 工1工 UTFVBAE3 ILM國 尊 雅仙“七(FUWOS. ILA1J口VBJLPr aj ed 0TBA/ck七-工1 e.):二 MiuroEoEt Ekc1 對第由二窗體E+與稹換微窗體情助模塊微過程模塊 微函數(shù)模塊 d：交互模塊 潞數(shù)蝸模塊E- - J弱掘13.在窗體中進行練習a .窗體工具箱控件介紹拄件額外控件|點擊工具箱上的按鈕，然后點擊窗體，即出現(xiàn)相應控件，可選擇控件調(diào)整大小，雙擊工具

45、箱控件標識可連續(xù)添加多個，再點擊后停止選擇B.將控件添加到窗體后可以通過更改屬性來設(shè)置控件樣式等：如下，在相應控件處有基礎(chǔ)使用介紹，更多可自行實踐摸索漫前條：value當期值；fliut母大值；min昆 小值；1yg.thy 鼠標點擊滂動條肉黃時苴 vainm改堊的步長：Effi*llch*ngs點擊濠動條萌 頭的箭頭時，其mlw改變的步長無交互線作的Checksax!刊換初s 美似按鈕定引用的單元榕區(qū)域 工e 口工由以七（Hint為列數(shù)（左側(cè)）旅轉(zhuǎn)按鈕：常和文字框結(jié)框架中的元案是相互排斥的，如上兩個 按用,能選其一n ar(fwrap- true=用自動換行m：_i andfiu t q o

46、ut2多列時需要1止1-下拉活單顯示項目數(shù) matchrsqiiired-falst用戶可直接輸入 .tyla-O/cwndo允許用戶選擇或直接箱 人7門】浜只允許從清單選擇文字框：nulti line-tru.eVBAte客jp名稱賽砌dka10L2：00：X 曲b20ie5T2013-B-27二*|1Jr仔細閱讀上面的圖例，你已經(jīng)掌握基本使用下面是開始實際應用創(chuàng)建一個新的窗體，本實例為“窗體實踐”：設(shè)計內(nèi)部如下：注意：1、圖片空間 內(nèi)部的圖片需要在屬性 picture中進行上傳設(shè)置然后更改 Picturesizemode （=0,1,2 ）2、每一個控件都有其自己的“名稱”，一定要設(shè)置，通

47、過設(shè)置名稱，我們就可以在代碼中對其進行引用修改等操作?！懊Q”表示該控件的名字，方便在VBA編碼中引用；caption表示該控件中填充的內(nèi)容按字母序按分美序圖片Picture黃i tmap)Pictur eAligpjnent2 - fmFictur*Al i grumeiitC1PictureSizeMode1 - fmPiiac3） Shtet4 （bi ao4）H Sh&tS （bi靶 ThiWorkbook白&國體崗窗體理論國窗體實踐國率國宣悻且0稹塊濫窗體輔助模塊W過程模塊公函數(shù)模塊依交互模塊微數(shù)組模塊_由U類模取二回到窗體實踐編碼窗口繼續(xù)： 由于用到了旋轉(zhuǎn)按鈕與文字框組合的形式，則

48、需將二者的值關(guān)聯(lián)起來，分別設(shè)置代碼如下：（注意改變控件復合框的選擇哦?。﹊tHt.Klsm - 窗體實霸（代媽|Sf iuButl oal-舊刈-3End Eul，F(xiàn)rint. Sub SpiTLSuttonl Ch皿w）旃錯帝鈕與文手悔狙合, 使取英按鈕奇以改變文字程 使用得率.Value = SpinButtful. ValueEnd Sut _Private 小使用概率時皿宜字框與讀轉(zhuǎn)按鈕娼含文宇輸入對應改變旋轉(zhuǎn)按鈕的內(nèi)部值DLim entryl As TyteOn Errcr Resume U&xtsjitryl = Ik 使用概率.Vftlu士If 電nt1d討 100 T溫nent

49、ryl = 100Ms3,超出上限I。“5一使用物率.mu* = (ntrylEnd IE室)inButtoiil Vilua -使用慨率 ValueEnd完畢，該設(shè)置過程的控件已設(shè)置，現(xiàn)在設(shè)置關(guān)鍵的OK和CANCE按鈕| d ye恥敏出sen -窗體實噩（代另） 1口 1 XOEbnltonjJCliclKfi ivate Sub cancaltuttoa Click0 取消窗口只是隋建并不取內(nèi)存道除窗口其對北和星性依然可被使用 ms ttnloid城套窗口 .從由在商除,需用1也氫用詞用才目秘隨用Ertd SubFrivate Sub DiCbutt(?i_Click() 口時?鈕i殳詈 j 導入數(shù)據(jù)到exdMa.HidvD