宏運(yùn)用入門(mén)及數(shù)組運(yùn)用

《宏運(yùn)用入門(mén)及數(shù)組運(yùn)用》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、1、宏命令的使用方法1．1按圖1步驟操作可添加控件及編寫(xiě)相關(guān)代碼，圖2為代碼編寫(xiě)窗口圖1在工作表中添加控件圖2編寫(xiě)控件代碼1．2按圖3所示步驟自定義函數(shù)后就可以像使用Excel函數(shù)一樣運(yùn)用它了，如圖4圖3自定義函數(shù)圖4自定義函數(shù)的使用1．3按圖5所示步驟編寫(xiě)自己的宏命令，例如在代碼窗口輸入如下代碼：Subsheetcount()DimnumAsIntegernum=ThisWorkbook.Sheets.CountRange("a1")=numEndSub此函數(shù)功能是求取工作薄中所有工作表的個(gè)數(shù)，按圖6方法運(yùn)行該宏命令，也可以按圖7所示步驟執(zhí)行宏命令圖5編

2、寫(xiě)宏命令圖6運(yùn)行宏命令圖7在Excel中調(diào)用宏命令2、用Array創(chuàng)建數(shù)組按Alt+F11打開(kāi)VBE窗口，插入一新的模塊，在代碼窗口中寫(xiě)入代碼：Subtest()紅繩子=Array("辣1","辣2","辣3","辣4","辣5","辣6","辣7","辣8","辣9","辣10")EndSub按F8，逐行運(yùn)行代碼，程序成功創(chuàng)建了一個(gè)數(shù)組，數(shù)組名稱(chēng)是“紅繩子”，"辣1","辣2","辣3","辣4","辣5","辣6","辣7","辣8","辣9","辣10"是數(shù)組元素。用Array()創(chuàng)建數(shù)組，各元素之間用逗號(hào)隔開(kāi)。元素如果是文本，要用半角引號(hào)作定界符。

3、練習(xí)，創(chuàng)建兩個(gè)數(shù)組：⑴數(shù)組名為cName，數(shù)據(jù)為8個(gè)同學(xué)的姓名：林思明、曾玉婷、曾國(guó)文、林偉權(quán)、林興發(fā)、劉卓懷、曾仙婷、林平⑵數(shù)組名為cj，數(shù)據(jù)為8個(gè)數(shù)值：99,85,92.5,70,78.5,65,84,100參考答案：數(shù)組入門(mén)01.xls點(diǎn)擊瀏覽該文件★推薦：ExcelHome技術(shù)論壇的最佳學(xué)習(xí)方法★山菊花--------------------------------------------------------------------------------3、我們已經(jīng)初步認(rèn)識(shí)了數(shù)組，數(shù)組是把一組數(shù)保存到一個(gè)數(shù)組變量中，它有兩個(gè)重要特征。⑴它是一

4、個(gè)變量，對(duì)一組數(shù)進(jìn)行統(tǒng)一管理帶來(lái)方便。上面建立的姓名數(shù)組，我們要把它寫(xiě)入到工作表區(qū)域A1向右連續(xù)8個(gè)單元格中，可用命令：Range(“a1:h1”)=cname我們認(rèn)識(shí)的這類(lèi)數(shù)組，稱(chēng)為一維數(shù)組，一維數(shù)組是一個(gè)水平數(shù)組，相當(dāng)于工作表中的行。如果要把姓名按垂直方向填充到單元格，可轉(zhuǎn)置命令。如，把這個(gè)數(shù)組寫(xiě)入到A1:A8單元格中：Range(“a1:a8”)=WorksheetFunction.Transpose(cname)練習(xí)：把數(shù)組cname分別寫(xiě)入到單元格C4:J4、D8:D15。答案：數(shù)組入門(mén)02.xls點(diǎn)擊瀏覽該文件⑵第二個(gè)重要的特征，是數(shù)組元素的有

5、序性，一組數(shù)據(jù)有序地保存到數(shù)組變量中。數(shù)組中，用數(shù)組名加序號(hào)(稱(chēng)索引值)構(gòu)成唯一的名稱(chēng)對(duì)元素進(jìn)行引用。元素與序號(hào)一一對(duì)應(yīng)，根據(jù)序號(hào)，可以修改和讀取指定位置上的元素。把一串姓名保存到數(shù)組cName中，數(shù)據(jù)在數(shù)組中按順序保存，默認(rèn)從0開(kāi)始，依次是1、2、3……，用cName(0)表示第一個(gè)姓名、cName(1)表示第二個(gè)姓名，等等。在工作表中插入一個(gè)按鈕，點(diǎn)擊按鈕，把姓名填入單元格A1:A8中：PrivateSubCommandButton1_Click()cname=Array("林思明","曾玉婷","曾國(guó)文","林偉權(quán)","林興發(fā)","劉卓懷","曾仙婷

6、","林平")Fori=1To8Range("a"&i)=cname(i-1)NextEndSub數(shù)組序號(hào)(索引值)默認(rèn)從0開(kāi)始，也可以通過(guò)命令OPTIONBASE1修改為從1開(kāi)始。該命令寫(xiě)在模塊的前面。如果設(shè)定索引值從1開(kāi)始，則上面的代碼修改為：PrivateSubCommandButton1_Click()cname=Array("林思明","曾玉婷","曾國(guó)文","林偉權(quán)","林興發(fā)","劉卓懷","曾仙婷","林平")Fori=1To8Range("a"&i)=cname(i)‘工作表行號(hào)與數(shù)組序號(hào)相吻合NextEndSub參考：數(shù)組入門(mén)03.xl

7、s點(diǎn)擊瀏覽該文件--------------------------------------------------------------------------------4、想起瑞士軍刀Array()很好用，但有時(shí)Split()更好用，我們?nèi)〕鲞@瑞士軍刀的第二利器。Split()把一個(gè)文本，根據(jù)指定的分隔符，建立一個(gè)數(shù)組。看一個(gè)實(shí)例：?jiǎn)卧馎1中有一串姓名：朱清燕(女),林鑫,林秋靜(女),林永鑫,林云艷(女),林嘉惠(女),曾文婷(女),林悅,陳誠(chéng),林偉健,賴(lài)紫嵐(女),曾雁(女),賴(lài)文強(qiáng),鐘娟(女),張琪(女),林文彬,黃曉婷(女),李朕,林依婷

8、(女),林佳利(女),曾德福要求：用Split()，把這串文本創(chuàng)建