单元格在VBA表示方法

单元格在VBA表示方法

ID:36568270

大小:127.00 KB

页数:13页

时间:2019-05-12

单元格在VBA表示方法_第1页
单元格在VBA表示方法_第2页
单元格在VBA表示方法_第3页
单元格在VBA表示方法_第4页
单元格在VBA表示方法_第5页
资源描述:

《单元格在VBA表示方法》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、单元格在VBA的表示方法:1、Range("单元格地址")  如Range("a1")  即为A1单元格2、CELLS(行,列)  如CELLS(1,1)也为A1单元格,CELLS(2,1)为A2单元格工作表在VBA中表示方法:sheets("工作表名")每个函数前都要加Application.WorksheetFunction.?答:如果是单个调用必须加如果是多个调用就可以用WITH语句省去后面的如Sub矩形1_单击()DimiAsIntegerFori=1To20Sheets("sheet1").Cells(i,1)=iNextWithApplicatio

2、n.WorksheetFunctionRange("a21").Value=.Sum(Range("a1:a20"))          注意SUM前面要有个点才行Range("a22").Value=.Average(Range("a1:a20"))EndWithEndSubCOLUMN是指列,COLUMNS是指列的集合ROW是表示行,ROWS是行的集合如果用Sheets("sheet1").columns.select  会选定所有列即整个工作表SUB语句,需要有个事件触发它,才能执行,就比如一个箱子,只有去搬、推等外力施加与它时,它才会动。设置个按纽目的

3、就是为了执行SUB语句Range("A1:A22").ClearContents该语句是清除内容的语句Private的中文意思是私有的,PrivateSub中的程序只能在本程序内部运行而不能被其他程序调用,而SUB语句则可以如:SUBBB()ENDSUBSUBAA()  BB          ENDSUBRange("B65536").End(xlUp).Row是指B列最后一个非空单元格,END(XLUP)是向上数第一个非空单元格,为了准备找到最下面的非空单元格,当然要从RANGE("B65536")开始向上找了MSGBOX有时带()比如AAA=MSGBOX

4、()这种情况下可以取到用户点击对话框按纽的返回值,以确定下一步该怎么做而不带括号只是提示的作用,不能取得返回的值如MSGBOX......以下是引用playgirl在2004-10-515:18:00的发言:那为为什么要用K=K+1。如果向下数第一个非空单元格就是range("b1").end(xldown).row向左数第一个非空单元格:range("iv1").end(xlleft).column向右数第一个非空单元格:range("a1").end(xlright).column是这样吗?谢谢!向右是End(xltoright)  向左End(xltol

5、eft)K=K+1是在原来的基础加1如选取Sheet1第一行有内容单元格区域(假设A1不为空):sheets("sheet1").range("a1",range("a1").end(xltoright)).select选取B列有内容单元格区域:(假设B1不为空):sheets("sheet1").range("B1",range("B65536").end(XLUP)).select以下是引用老荷才露在2004-10-516:30:00的发言:a=Application.WorksheetFunction.CountIf(Range("b:b"),">106

6、")Ifa>1ThenMsgBox"大于106的数有"&a&"个",1最后这个,1怎么解释;a这个变量是不是省略了dim的声明,不声明也行吗?兰老师的最后一句中的1+64,怎么解释其实这个程序是加了个判断,如果统计的结果有>106的值(即A>1)就显示提示对话框,否则就不显示,1+64参考下面的贴子:http://club.excelhome.net/dispbbs.asp?boardid=5&star=13&replyid=297359&id=62008&skin=0&page=1变量在程序中如果事先约定,就必须声明,如果没有约定,就根据实际情况而定,一般来

7、说声明最好,这样可以减少运行程序所占用的内存.注:约定:相关图片如下(VBE编辑器---工具---选项)此主题相关图片如下:Functionpanduan(aaAsRange)        Ifaa.Value>0Thenpanduan="大于零"ElseIfaa.Value=0Thenpanduan="等于零"Elsepanduan="小于零"EndIfEndFunctionFunctionpanduan(aaAsRange)      panduan即是你定义的函数名称,就如IF,MATCT等函数名称一样(aaAsRange)  aa是该函数的参数,aa

8、AsRange是定义该参数为单元格,在

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。