单元格在VBA的表示方法.doc

单元格在VBA的表示方法： 1、Range(单元格地址)?? 如Range(a1)?? 即为A1单元格2、CELLS（行，列）?? 如CELLS（1，1）也为A1单元格，CELLS（2，1）为 A2单元格工作表在VBA中表示方法：sheets(工作表名)每个函数前都要加Application.WorksheetFunction.？答：如果是单个调用必须加如果是多个调用就可以用WITH语句省去后面的如Sub 矩形1_单击()Dim i As IntegerFor i = 1 To 20Sheets(sheet1).Cells(i, 1) = iNextWith Application.WorksheetFunctionRange(a21).Value = .Sum(Range(a1:a20))??????????注意SUM前面要有个点才行Range(a22).Value = .Average(Range(a1:a20))End WithEnd SubCOLUMN是指列,COLUMNS是指列的集合ROW是表示行,ROWS是行的集合如果用Sheets(sheet1).columns.select?? 会选定所有列即整个工作表SUB 语句，需要有个事件触发它，才能执行，就比如一个箱子，只有去搬、推等外力施加与它时，它才会动。设置个按纽目的就是为了执行SUB语句Range(A1:A22).ClearContents该语句是清除内容的语句Private 的中文意思是私有的，Private Sub中的程序只能在本程序内部运行而不能被其他程序调用，而SUB语句则可以如：SUB BB（） END SUBSUB AA（）?? BB?????????? END SUBRange(B65536).End(xlUp).Row是指B列最后一个非空单元格，END（XLUP）是向上数第一个非空单元格，为了准备找到最下面的非空单元格，当然要从RANGE（B65536）开始向上找了MSGBOX 有时带()比如AAA=MSGBOX()这种情况下可以取到用户点击对话框按纽的返回值,以确定下一步该怎么做而不带括号只是提示的作用,不能取得返回的值如MSGBOX 以下是引用playgirl在2004-10-5 15:18:00的发言： 那为为什么要用K=K+1。如果向下数第一个非空单元格就是range(b1).end(xldown).row向左数第一个非空单元格：range(iv1).end(xlleft).column向右数第一个非空单元格：range(a1).end(xlright).column是这样吗？谢谢！向右是End(xltoright)??向左End(xltoleft)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-5 16:30:00的发言： a = Application.WorksheetFunction.CountIf(Range(b:b), 106)If a 1 ThenMsgBox 大于106的数有 a 个, 1最后这个，1 怎么解释；a 这个变量是不是省略了dim的声明，不声明也行吗？兰老师的最后一句中的 1+64，怎么解释其实这个程序是加了个判断，如果统计的结果有106的值（即A1）就显示提示对话框,否则就不显示,1+64参考下面的贴子: HYPERLINK /dispbbs.asp?boardid=5star=13replyid=297359id=62008skin=0page=1 \t _blank /dispbbs.asp?boardid=5star=13replyid=297359id=62008skin=0page=1变量在程序中如果事先约定,就必须声明,如果没有约定,就根据实际情况而定,一般来说声明最好,这样可以减少运行程序所占用的内存.注:约定:相关图片如下(VBE编辑器工具选项)此主题相关图片如下：Function panduan(aa As Range)????????If aa.Value 0 Thenpanduan = 大于零ElseIf aa.Value = 0 Thenpanduan = 等于零Elsepanduan = 小于零End IfEnd FunctionFunction panduan(aa As Range)?????