單元格在VBA表示方法

單元格在VBA表示方法

ID:36568270

大小:127.00 KB

頁(yè)數(shù):13頁(yè)

時(shí)間:2019-05-12

單元格在VBA表示方法_第1頁(yè)
單元格在VBA表示方法_第2頁(yè)
單元格在VBA表示方法_第3頁(yè)
單元格在VBA表示方法_第4頁(yè)
單元格在VBA表示方法_第5頁(yè)
資源描述:

《單元格在VBA表示方法》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、單元格在VBA的表示方法:1、Range("單元格地址")??如Range("a1")??即為A1單元格2、CELLS(行,列)??如CELLS(1,1)也為A1單元格,CELLS(2,1)為A2單元格工作表在VBA中表示方法:sheets("工作表名")每個(gè)函數(shù)前都要加Application.WorksheetFunction.?答:如果是單個(gè)調(diào)用必須加如果是多個(gè)調(diào)用就可以用WITH語(yǔ)句省去后面的如Sub矩形1_單擊()DimiAsIntegerFori=1To20Sheets("sheet1").Cells(i,1)=iNextWithApplicatio

2、n.WorksheetFunctionRange("a21").Value=.Sum(Range("a1:a20"))??????????注意SUM前面要有個(gè)點(diǎn)才行Range("a22").Value=.Average(Range("a1:a20"))EndWithEndSubCOLUMN是指列,COLUMNS是指列的集合ROW是表示行,ROWS是行的集合如果用Sheets("sheet1").columns.select??會(huì)選定所有列即整個(gè)工作表SUB語(yǔ)句,需要有個(gè)事件觸發(fā)它,才能執(zhí)行,就比如一個(gè)箱子,只有去搬、推等外力施加與它時(shí),它才會(huì)動(dòng)。設(shè)置個(gè)按紐目的

3、就是為了執(zhí)行SUB語(yǔ)句Range("A1:A22").ClearContents該語(yǔ)句是清除內(nèi)容的語(yǔ)句Private的中文意思是私有的,PrivateSub中的程序只能在本程序內(nèi)部運(yùn)行而不能被其他程序調(diào)用,而SUB語(yǔ)句則可以如:SUBBB()ENDSUBSUBAA()??BB??????????ENDSUBRange("B65536").End(xlUp).Row是指B列最后一個(gè)非空單元格,END(XLUP)是向上數(shù)第一個(gè)非空單元格,為了準(zhǔn)備找到最下面的非空單元格,當(dāng)然要從RANGE("B65536")開始向上找了MSGBOX有時(shí)帶()比如AAA=MSGBOX

4、()這種情況下可以取到用戶點(diǎn)擊對(duì)話框按紐的返回值,以確定下一步該怎么做而不帶括號(hào)只是提示的作用,不能取得返回的值如MSGBOX......以下是引用playgirl在2004-10-515:18:00的發(fā)言:那為為什么要用K=K+1。如果向下數(shù)第一個(gè)非空單元格就是range("b1").end(xldown).row向左數(shù)第一個(gè)非空單元格:range("iv1").end(xlleft).column向右數(shù)第一個(gè)非空單元格:range("a1").end(xlright).column是這樣嗎?謝謝!向右是End(xltoright)??向左End(xltol

5、eft)K=K+1是在原來(lái)的基礎(chǔ)加1如選取Sheet1第一行有內(nèi)容單元格區(qū)域(假設(shè)A1不為空):sheets("sheet1").range("a1",range("a1").end(xltoright)).select選取B列有內(nèi)容單元格區(qū)域:(假設(shè)B1不為空):sheets("sheet1").range("B1",range("B65536").end(XLUP)).select以下是引用老荷才露在2004-10-516:30:00的發(fā)言:a=Application.WorksheetFunction.CountIf(Range("b:b"),">106

6、")Ifa>1ThenMsgBox"大于106的數(shù)有"&a&"個(gè)",1最后這個(gè),1怎么解釋;a這個(gè)變量是不是省略了dim的聲明,不聲明也行嗎?蘭老師的最后一句中的1+64,怎么解釋其實(shí)這個(gè)程序是加了個(gè)判斷,如果統(tǒng)計(jì)的結(jié)果有>106的值(即A>1)就顯示提示對(duì)話框,否則就不顯示,1+64參考下面的貼子:http://club.excelhome.net/dispbbs.asp?boardid=5&star=13&replyid=297359&id=62008&skin=0&page=1變量在程序中如果事先約定,就必須聲明,如果沒有約定,就根據(jù)實(shí)際情況而定,一般來(lái)

7、說(shuō)聲明最好,這樣可以減少運(yùn)行程序所占用的內(nèi)存.注:約定:相關(guān)圖片如下(VBE編輯器---工具---選項(xiàng))此主題相關(guān)圖片如下:Functionpanduan(aaAsRange)????????Ifaa.Value>0Thenpanduan="大于零"ElseIfaa.Value=0Thenpanduan="等于零"Elsepanduan="小于零"EndIfEndFunctionFunctionpanduan(aaAsRange)??????panduan即是你定義的函數(shù)名稱,就如IF,MATCT等函數(shù)名稱一樣(aaAsRange)??aa是該函數(shù)的參數(shù),aa

8、AsRange是定義該參數(shù)為單元格,在

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動(dòng)畫的文件,查看預(yù)覽時(shí)可能會(huì)顯示錯(cuò)亂或異常,文件下載后無(wú)此問題,請(qǐng)放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫(kù)負(fù)責(zé)整理代發(fā)布。如果您對(duì)本文檔版權(quán)有爭(zhēng)議請(qǐng)及時(shí)聯(lián)系客服。
3. 下載前請(qǐng)仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動(dòng)等原因無(wú)法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶請(qǐng)聯(lián)系客服處理。