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

105833029

是呀,我也是,在这里我学到我很多,我要谢谢那些有些人,谢谢兰老师!

rnwxd

excelhome是好样的,可以帮助象我这样的菜鸟.

rnwxd

试了一下,是A4单元格

Angellong

学的真痛快，可惜我比较笨，还是有不少不明白的。[em06]

有第六讲没有啊？

谢谢大侠们了！

[em05]

兰色幻想

以下是引用[I]sunsoncheng[/I]在2005-12-5 19:12:00的发言：[BR]看完了也用过了,在现实中本人做了一个VBA但解决不了如下问题:

请指教:

1\写了如下的语句:applition.worksheetfunction.isnumber(cells(n,4))却被认为出错,要求对象!说cells的使用不可行!何解?

2\for i =1 to yyy(yyy是D列的最后一个非空格)

dim Ai as boomlion(这个可能串错但不会影响我 的问题!)

next i

本来是想将不定量的A1,A2.....声明为逻辑变量的,运行时没提示问题,但最终没有达到效果

如一个一个地声明就OK,将Ai变为A(i),运行时就要求i 要有变量式!

3\因为数据透视表的范围越大就会导致文件变得更大,所以想随着不同的范围来使用透视表,但可惜不能找到相关变动的属性,如何才好?

各位老师我可是在线等待你们的教导啊

也可以发邮件给我
sunsoncheng@sohu.com
sunson68@sohu.com

1、applition.worksheetfunction.isnumber(cells(n,4))却被认为出错,要求对象!说cells的使用不可行!何解?

阿慧

Renge("A:A").SpecialCells(xlCellTypeBlanks).Rows.Hidden=True

只能隐藏完全空白的空格行

请问兰老师

怎么样才能隐藏A列有格式、有公式的空格行

pwxpss

真是一个好地方

zxh9813

单元格也可以用Cells:

Cells(1,1)=100

但它不表示区域.

xiaoxiaoyu

sorry！临时差一个问题 复制行到另一工作表问题 如果“sheet2表”的第6行第7列包含“报警”字符就复制这行到报“警信息表”的最下面一行， 试验了多次多不行， Worksheets("Sheet2").Activate '激活sheet2表单 r = Sheets("报警信息").[a65536].End(xlUp).Row If Cells(6, 7) = "报警" Then Sheets("报警信息").Range(Cells(r, 1), Cells(r, 25)) = Sheets("sheet2").Range(Cells(6, 1), Cells(6, 30)) If Cells(6, 5) = "报警" Then Rows(6).Copy Sheet2.[a65536].End(xlUp).Offset(1, 0) Sheets("报警信息").Cells(r + 1, 1).EntireRow = Sheets("sheet2").Cells(6, 1).EntireRow 写了三个都不行，请楼主帮我看看吧

qee用

If InStr(1, Cells(6, 7).Text, "报警") > 0 Then Rows(6).Copy Sheets("报警信息").Cells(65535, 1).End(xlUp).Offset(1, 0)