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

apolloh

以下是引用兰色幻想在2004-10-25 22:56:00的发言：

我们平时在程序中会看到

Activesheet

worksheets("sheet1")

sheet1

sheets("sheet1")

Sheets(1)

顺便说一说他们的区别

Activesheet是指当前活动工作表，即你正在操作的工作表

worksheets("sheet1")等同于sheets("sheet1")是特指工作表Sheet1,注意这时的Sheet1是工作表的名子,就如同"员工工资表"一样是工作表的名称,而Sheet1和Sheets(1),不管你如何命名，Sheet1和Sheets(1)就只代表第一个工作表，Sheet2和Sheets(2)代表第二个工作表。。。。

sheet1和sheets(1)不同，sheet1是工作表的对象实例名称，在工作表属性中可以修改，也就是说只要不出现重名，sheets(2)的实例名称也可以是Sheet1

[此贴子已经被作者于2004-10-28 15:54:44编辑过]

hnymlzs

讲的好谢谢!

兰色幻想

以下是引用啊一在2004-10-28 13:40:00的发言：

比如我在SHEET1中放置一个按扭,单击就选定没有数据的行,当然了要VBA自己判断到底到哪一行有数据,然后选择剩下没有数据的空白行.

Range("A1:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Select

liD6RSRT.rar (6.6 KB, 下载次数: 168)

2004-10-28 16:09 上传

点击文件名下载附件
带你入门VBA，第五讲：如何控制单元格

SpecialCells 方法

此对象代表与指定类型及值相匹配的所有单元格。

语法

expression.SpecialCells(Type, Value)

expression 必选。该表达式返回一个 Range 对象。

Type Long 类型，必选。要包含的单元格。可为以下 XlCellType 常量之一。

常量	说明
xlCellTypeAllFormatConditions	任意格式的单元格
xlCellTypeAllValidation	具有有效条件的单元格
xlCellTypeBlanks	空单元格
xlCellTypeComments	包含注释的单元格
xlCellTypeConstants	包含常量的单元格
xlCellTypeFormulas	包含公式的单元格
xlCellTypeLastCell	已用区域的最后一个单元格
xlCellTypeSameFormatConditions	具有相同格式的单元格
xlCellTypeSameValidation	具有相同有效条件的单元格
xlCellTypeVisible	所有可见单元格

Value Variant 类型，可选。如果 Type 为 xlCellTypeConstants 或 xlCellTypeFormulas 之一，此参数可用于确定结果中应包含哪几类单元格。将某几个值相加可使此方法返回多种类型的单元格。默认情况下将选定所有常量或公式，对其类型则不加区别。可为以下 XlSpecialCellsValues 常量之一：xlErrors、xlLogical、xlNumbers 或 xlTextValues。

注：上面的常量是和编辑菜单---定位---定位条件相对应的，说白了，就是通过VBA来控制定位功能

[此贴子已经被作者于2004-10-28 21:11:15编辑过]

兰色幻想

有shangyu版主和apolloh朋友助阵，真好！

希望有更多的VBA高手参与

[em23][em23][em23]

apolloh

看完了，学了不少新东西！

yigepure

晕,今天才来.真是晚了.看来还要加快脚步呀.

我看这个时间定义的与VB稍有不同呀.

yigepure

以下是引用wuaza在2004-10-27 11:32:00的发言：

选中A列连续数据区域中最后一个单元格：

cells(range("a1").CurrentRegion.Rows.count,1).select

CurrentRegion这个不是取它周围的单元格区域吗.为什么不连续就不行呢.

兰色幻想

以下是引用yigepure在2004-10-28 21:55:00的发言：

CurrentRegion这个不是取它周围的单元格区域吗.为什么不连续就不行呢.

A列最后一个单元格可以用

Range("A65536").end(xlup).select

hpw

以下是引用兰色幻想在2004-10-28 13:24:00的发言：

On Error Resume Next 如出错误,执行下一句 K = -9 设置变量K的初始值,设置K目的是控制在"购买可能性"后添加数的位置 EEE = Application.CountIf(Columns(2), "Crosstabs") EEE为循环的次数,有多少个"Crosstabs"就行循环多少次" For I = 1 To EEE 设置循环 K = K + 12 因为每个Pearson Chi-Square相隔12行,所以设置循环一次加12 AAA = Application.Match("Crosstabs", Columns(2), 0) 计算Crosstabs的位置 BBB = Application.Match("Tables", Columns(2), 0) 计算Tables的位置 CCC = Application.Match("Pearson Chi-Square", Columns(2), 0) 计算Pearson Chi-Square的位置 DDD = Format(Cells(CCC, 5), "0.000") 把相应Pearson Chi-Squar的数值赋予DDD，如第一个是0.690 Range(Cells(AAA, 1), Cells(BBB, 1)).EntireRow.Delete 把Crosstabs和Tables之间的行删除(包括含Crosstabs和Tables的行) Cells(K, 2) = "附表 单位购买的可能性(P=" & DDD & ")" 在表头加入相应的内容 Next

兰老师,你真是智慧的好人哪!

我这里还有两个问题:

1. 在这个表中"K = -9"的赋值是可以的,可是如果我的表头位置只能是以"Tables"下的第二个位置来定位,怎么改呢?!(因为不同的文件,表格的行数是变化多种的.嘿嘿,我有点笨笨,换了几种方法都没有对)

2.Cells(K, 2) = "附表 单位购买的可能性(P=" & DDD & ")" 这里的"附表后面的文字也是变化多样的",能有什么办法吗?

hpw

hwhCEreH.rar (23.93 KB, 下载次数: 75)

2004-10-29 10:56 上传

点击文件名下载附件
带你入门VBA，第五讲：如何控制单元格

我是我的新表格以及我的标准表格样例.

不知道该怎么感谢乐! 呵呵!!