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

兰色幻想

请运行下面的一句:

Application.Intersect(Range("a1:a10"), Range("a3:c4")).Select

[此贴子已经被作者于2004-10-25 23:24:40编辑过]

兰色幻想

12楼这句有个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

[此贴子已经被作者于2004-10-25 22:43:03编辑过]

先锋

不对，噢多了个A

[此贴子已经被作者于2004-10-25 22:26:11编辑过]

兰色幻想

运行Activecell.usedrange.Select你会发现，在当前工作表中的所有用过的区域全被选中了。你明白了吗，其实usedrange就是工作表中所有已存在内容的矩形区域，为什么不说是存在内容的单元格呢？原因是比如你在一个空工作表中的B3和C5单元格任意输入一个数值，运行Activecell.usedrange.Select后选取的不只是B3和C5单元格，而是B3:C5单元格区域

[此贴子已经被作者于2004-10-25 22:43:59编辑过]

先锋

试过了，不行的。

shangyu

2003，不支持Aactivecell.usedrange.Select

activesheet.usedrange.select

先锋

以下是引用shangyu在2004-10-25 22:32:00的发言：

2003，不支持Aactivecell.usedrange.Select

activesheet.usedrange.select

可以了！

gvntw

Sheet1.UsedRange.Select

兰色幻想

以下是引用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)代表第二个工作表。。。。

[此贴子已经被作者于2004-10-25 22:58:32编辑过]