112VBA入門一《與代碼親密接觸》山菊花

VBA入門之一《與代碼親密接觸》去除粗枝繁葉,留一根骨干,作攀天之梯,目的是那金碧光芒的VBA殿堂.一路上,兩旁都是帥氣的姑娘,不要三心二意,請跟我走.閑話少說,言歸正傳.翻開Excel,新建一工作簿.0若是你的對象欄中找不到“控件對象箱”,請翻開它.控件對象箱可懸浮在工作表中,也可?？吭诖翱诘闹車?如4樓圖樣).1點(diǎn)擊敕令按鈕,在工作表中拖動鼠標(biāo)至適合大小.2按鈕出來了.經(jīng)由過程右鍵菜單,能夠編寫它的文字.3點(diǎn)擊控件對象箱中的“屬性”按鈕,或如上圖所示的右鍵菜單中點(diǎn)擊“屬性”.按鈕的前景色.布景色.字體等統(tǒng)稱為“屬性”.4設(shè)置屬性誠然有味,但總可是癮,來點(diǎn)刺激的.雙擊按鈕,眼前是另一片寰宇,它叫做VB編寫器(或稱VBE),VBA的全部平凡將從這里出生.5依樣畫葫蘆.在光標(biāo)處輸入下邊一行代碼：QUOTE:MsgBox"哈哈,我會VBA啦"msgbox不拘大小寫,后邊有一個(gè)空格,引號是半角引號.輸入完成后點(diǎn)擊對象按鈕返回Excel窗口.6點(diǎn)擊控件對象箱中的“退出設(shè)計(jì)模式”按鈕.“芝麻開門”按鈕周圍的小圈圈沒了,變換成運(yùn)轉(zhuǎn)模式.這一步常常要做的,留神.7點(diǎn)擊按鈕“芝麻開門”,這就是代碼運(yùn)轉(zhuǎn)的結(jié)果圖,一個(gè)系統(tǒng)對話框.頻頻演習(xí)一遍：點(diǎn)擊“設(shè)計(jì)模式”按鈕,再點(diǎn)擊“芝麻開門”,這時(shí)按鈕被選擇.點(diǎn)擊“退出設(shè)計(jì)模式”,再點(diǎn)擊“芝麻開門”,又進(jìn)入運(yùn)轉(zhuǎn)情況.8現(xiàn)在,由工作表界面切換到VBE界面,以下方法可任選一種：按Alt+TAB選擇VBE圖標(biāo),松開復(fù)合鍵.工作表標(biāo)簽右鍵菜單-檢討代碼.菜單：對象-宏-VB編寫器.Alt+F11.雙擊控件.將代碼修正為：QUOTE:PrivateSubCommandButton1_Click( )ctxt="哈哈,我會VBA啦"MsgBoxctxt,64,"宣布"EndSub現(xiàn)實(shí)修正的是中央的黑色字體部分.代碼中,藍(lán)色處是一個(gè)空格,粉紅色處是一個(gè)逗號.敕令后邊.敕令與敕令之間,距離一個(gè)以上的空格.參數(shù)與參數(shù)之間,用逗號走開.運(yùn)轉(zhuǎn)代碼的方法,除了在工作表上點(diǎn)擊按鈕,還能夠在VBE窗口中直接運(yùn)轉(zhuǎn),把光標(biāo)定位到代碼首尾之間(從“PrivateSubCommandButton1_Click( )”到“EndSub”),以以下圖所示執(zhí)行菜單敕令或按F8,逐行執(zhí)行代碼.若是執(zhí)行“運(yùn)轉(zhuǎn)-運(yùn)轉(zhuǎn)子進(jìn)度”敕令(按F5),將連續(xù)執(zhí)前進(jìn)度首尾之間的全體代碼.代碼的說明：ctxt叫做自界說變量,就像我們代數(shù)中常常應(yīng)用的同樣.ctxt=""叫做賦值,跟代數(shù)中的賦值是同樣的.11MsgBox是什么器材？我們總是想知道.請選擇MsgBox(現(xiàn)實(shí)上,只要把光標(biāo)定位到敕令中的任意任性地位均可),按F1鍵,系統(tǒng)將彈出幫忙窗口并顯示該敕令的幫忙.12在B2:D4單元格輸入一些數(shù)據(jù)備用.為工作表增添第二個(gè)按鈕.這個(gè)按鈕的功能是：用鼠標(biāo)點(diǎn)擊這些單元格,而后點(diǎn)擊按鈕,像上例同樣彈出一個(gè)對話框,顯示的內(nèi)容為這個(gè)單元格的名稱和內(nèi)容.13雙擊按鈕.在光標(biāo)閃爍處,輸入代碼：msgbox"你點(diǎn)擊的單元格是："&(藍(lán)色地位示意空格),接下來要輸入的代碼是“ActiveCell.Address”,輸入這些代碼能夠應(yīng)用鍵盤輸入,也可以附屬性列表中選擇.按Ctrl+J,在代碼窗口中彈出一個(gè)下拉列表,就是屬性/方法列表,將光標(biāo)挪動到ActiveCell,而后點(diǎn)擊鍵盤上的小數(shù)點(diǎn)“.”,成就ActiveCell連同小數(shù)點(diǎn)被輸入到代碼窗口中.窗口中連續(xù)顯示屬性列表中,選擇屬性“Address”,按空格鍵輸入該屬性.接著,輸入“&Chr(13)_”,回車換行,連續(xù)輸入：&"該單元格的值等于："&ActiveCell.Value,64,"神算子"完整的代碼是：QUOTE:PrivateSubCommandButton2_Click( )MsgBox"你點(diǎn)擊的單元格是："&&Chr(13)_&"該單元格的值等于："&ActiveCell.Value,64,"神算子"EndSub辛勤了.返回Excel,退出設(shè)計(jì)模式,先看一下運(yùn)轉(zhuǎn)的結(jié)果.14切換到Excel,退出設(shè)計(jì)模式,測試代碼：用鼠標(biāo)點(diǎn)擊單元格D4,而后點(diǎn)擊按鈕.結(jié)果以下所示：點(diǎn)擊一定按鈕.點(diǎn)擊其余單元格,再點(diǎn)擊按鈕,多試幾遍.代碼說明：ActiveCell示意運(yùn)動單元格,即光標(biāo)地址的單元格,Address示意地址,中央的“.”是連接符.ActiveCell.Address等于：目前單元格的地址.ActiveCell.Value等于：目前單元格的值.點(diǎn)擊D2單元格,由于目前單元格的地址是“$D$2”,即：ActiveCell.Address="$D$2"D2單元格的值是“2006-8-10”,即：ActiveCell.Value="2006-8-10"因此,點(diǎn)擊按鈕后,對話框中顯示的信息為：QUOTE:你點(diǎn)擊的單元格是：$D$2該單元格的值等于：2006-8-10Chr(13)代表一個(gè)回車符(信息分兩行顯示).后邊的下劃線“_”與顯示沒關(guān),寫代碼的時(shí)刻,若是一行太長,不便利閱讀,可應(yīng)用一個(gè)下劃線把代碼分兩行或多行書寫,不影響運(yùn)行.建議中央休息一下再連續(xù),這一節(jié)義務(wù)不輕.16增添第三個(gè)按鈕,編寫文字為：“畫龍點(diǎn)睛”.這里插一下,這些按鈕上的文字稱為“標(biāo)簽”(標(biāo)簽總是貼在上邊的).不合的按鈕能夠應(yīng)用相同的標(biāo)簽,但每一個(gè)按鈕有一個(gè)自力的名字,看屬性框的第一行.與代碼掛鉤的正是這些名稱.代碼PrivateSub后邊的就是控件的名稱.17“神算子”功能現(xiàn)實(shí)是讀取單元格屬性.我們也能夠設(shè)置單元格屬性：用代碼給單元格輸入內(nèi)容,轉(zhuǎn)變單元格的字體.字號.色彩等,把單元格修飾得帥氣一點(diǎn).雙擊按鈕,在光標(biāo)處輸入代碼：QUOTE:Range("b8").Value=Range("b2").Value退出設(shè)計(jì)模式,點(diǎn)擊按鈕運(yùn)轉(zhuǎn)它,先看看結(jié)果奈何.單元格B8被輸入了與單元格B2相同的文字.原來這Range("b8")即示意單元格B8.代碼說明：單元格B8的值=單元格B2的值.18除了用Range( ),單元格還可用以下形勢示意：QUOTE:[b8].Value=[b2].Value結(jié)果與Range( )形勢完整相同,可把這一行代碼取代原來代碼嘗嘗.還能夠這樣：QUOTE:Cells(8,2).Value=Cells(2,2).Value19屬性Value能夠省略上邊代碼一一能夠省略為以下形勢：Range("b8")=Range("b2")[b8]=[b2]Cells(8,2)=Cells(2,2)在VBE窗口中,綠色(默認(rèn))文字示意是說明文字,不被運(yùn)轉(zhuǎn)的.前面加一半角的單引號即設(shè)置后邊的文字為說明文字.刪除前面的單引號等于取消說明功能.20單元格除了“地址”.“值”兩個(gè)屬性之外,還有好多屬性,如：寬度.高度.字體.字號等等.一一把下邊代碼復(fù)制到進(jìn)度中,運(yùn)轉(zhuǎn)它,不雅察單元格的更改.ActiveCell.ColumnWidth=20'設(shè)置運(yùn)動單元格的寬度為20ActiveCell.RowHeight=40'設(shè)置運(yùn)動單元格的高度為40ActiveCell.Font.Name="黑體"'設(shè)置運(yùn)動單元格的字體的名稱為“黑體”ActiveCell.Font.Size=20'設(shè)置運(yùn)動單元格的字體的尺寸為20也可用指定的單元格取代運(yùn)動單元格(ActiveCel