带你入门VBA,第五讲：如何控制单元格.docVIP

带你入门VBA，第五讲：如何控制单元格 单元格是我们平时接触最多的，所以此讲专门介绍和练习单元格的使用和控制。马上就要开始。。。 在VBA中，单元格常用的表示方法有两种， 一种是RANGE 如A1在VBA的表示方法是Range(a1) A1:100的表法方法是： Range(A1:A100) 和以前一样,大家先在工作表中插入一个矩形作为执行宏的按纽 在按纽上单击右键,单击指定宏,再单击新建,在VBE窗口中的代码窗口会出现 Sub 矩形1_单击() End Sub 在两句中间输入 Range(a1)=1000 Range可以代表一个单元格区域,也可以代表一个单元格,通过 Range(a1)=1000 也可以看出,它的用法是Range后括号中带上A1 就可以表示我们平时在工作表用到的中的A1单元格了, 它在表示一个连续区域时是这个的,Range(区域的左上角单元格：区域的右下角单元格) 请把刚才的代码再加上一句:Range(a1:a10)=1000 对,如果是不连续的单元格多个区域,它是这样表示的: Range(单元格区域1,单元格区域2.....) 把刚才的代码替换为: Range(a1:a10,c1:c10,e1:e10) = 100 再试试 以下是引用matsumi在2004-10-25 21:35:00的发言： [a1]=1000与Range(a1)=1000 有何区别？ [A1]是Range(A1)的简写.二者在用法上没有什么区别,但在输入时有点不同,如当你输入[A1]后加点时,后面不会出现属性和方法列表,而输入Range(A1)加点后则会出现属性列表供你选取 以下是引用gvntw在2004-10-25 21:40:00的发言： 也可以这样吧：Union([a1:a10], [b3:c10], [d5:f7]) = 100 Union是求多个单元格区域的并集，用法是Union（单元格区域1，单元格区域2.....） 它返回的是所有区域的所有单元格集合 请运行下面的一句: Application.Intersect(Range(a1:a10), Range(a3:c4)).Select 这句有个Select,它是单元格被选取的意思。在我们录制宏时，会出现大量的select,其实在程序中多数Select是多余的，它影响速度又会影响程序的运行。 如： Range(C16).Select ActiveCell.FormulaR1C1 = 100 Range(C11).Select 其实我只是在C16单元格中填入数值100，就会出现这么一大堆代码，这此代码可以优化为： Range(C16).=100 以下是引用兰色幻想在2004-10-25 21:51:00的发言： 下面请运行下面的一句: Application.Intersect(Range(a1:a10), Range(a3:c4)).Select 这一句的意思是选中区域A1：A10 和 A3:C4重叠的区域，即两个区域共有的区域，此名代码运行的结果是选中区域A3：A4 注意Intersect 方法是一个非常实用的一个方法，比如我们在动态选取工作表Sheet1A列中已存在数据的区域时，就会用到它。在介绍这个用法前还要介绍一下另一个工作表中非常实用的属性：Usedrange 你可以选试着运行一下:Activecell.usedrange.Select 运行Activecell.usedrange.Select你会发现，在当前工作表中的所有用过的区域全被选中了。你明白了吗，其实usedrange就是工作表中所有已存在内容的矩形区域，为什么不说是存在内容的单元格呢？原因是比如你在一个空工作表中的B3和C5单元格任意输入一个数值，运行Activecell.usedrange.Select后选取的不只是B3和C5单元格，而是B3:C5单元格区域 以下是引用gvntw在2004-10-25 22:42:00的发言： Sheet1.UsedRange.Select 我们平时在程序中会看到 Activesheet worksheets(sheet1) sheet1 sheets(sheet1) Sheets(1) 顺便说一说他们的区别 Activesheet是指当前活动工作表，即你正在操作的工作表 worksheets(sheet1)等同于sheets(sheet1)是特指工作表Sheet1,注意这时的Sheet1是工作表的名子,就如同员工工资表一样是工作表的名称,而Sheet1和Sheets(1),不管你如何命名，Sheet1和Sheets(1)就只代表第一个工作表，Sheet2和Sheets(2)代表第二个工作表。。。。 下面以一个实例说明如何动态选取一个