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

兰色幻想

以下是引用hpw在2004-10-29 10:56:00的发言：

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

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

1、你提供的两个表是什么关系？

2、你录制的宏的多数代码是无用的，能不能把要完成的步骤写出来

hpw

呵呵,这样啊.我的第一个表是个大概的原始表,第二个表是我制定了一下格式,形成的一个标准样式表.(不过我这两个表的数据不是对应的,所以看起来好像是对不上.不好意思,我没有考虑周到)

我的步骤是这样的:

1.处理P值 (就是Crosstabs和Tables之间的那个Pearson Chi-Square改成 P=0.000置于标题后).

2.替换,将所有英文替换成相应的中文,如下:

Total=总计;Count=频数;Col %=百分比;Cases=频数;Col Response %=百分比;Mean=均值;Std Deviation=标准差;Tables=空白;)

3. 在原始表格前插入3列空列和一行空行.(这时整个表格是从D列开始往后放置的.)

4.将所有单元格居左,所有字体改成:宋体,8号字,黑色,英文及数字字体为Arial.

5.更改每一列表格的宽度和行高(列宽:A列=8,B列=5,C列=2,E列=4,F列=20,F列以后的所有列=7) (行高:A行=11.5,B行=50)

6. B行的D-J列为合并单元格,将填充文字"请添加项目标题";C行的D-J列填充灰色,加上外框,并在C行填充文字"请添加部分标题"

7. 添加页眉页脚.并在页眉处加一条横线.

呵呵,但愿不会太复杂!

啊一

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

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

兰老师（我知道你不喜欢这样的称呼可我不知道你的性别和年龄）！

我的意思是选取数据区域之外的行，就是有数据的行的下一行到65536行之间的所有行。我这样写了，也能实现但是是我自己摸索的肯定不是规范的语法，不是最快捷的，请兰老师看看有没有更好的办法：

Sub 隐藏() Dim i As Integer i = Application.WorksheetFunction.Max(Range(Range("B9"), Range("B65536").End(xlUp))) Range(Cells(i, 256), Cells(65536, 256)).EntireRow.Hidden = True End Sub

兰色幻想

以下是引用啊一在2004-10-29 12:35:00的发言：

兰老师（我知道你不喜欢这样的称呼可我不知道你的性别和年龄）！

我的意思是选取数据区域之外的行，就是有数据的行的下一行到65536行之间的所有行。我这样写了，也能实现但是是我自己摸索的肯定不是规范的语法，不是最快捷的，请兰老师看看有没有更好的办法：

Sub 隐藏() Dim i As Integer i = Application.WorksheetFunction.Max(Range(Range("B9"), Range("B65536").End(xlUp))) Range(Cells(i, 256), Cells(65536, 256)).EntireRow.Hidden = True End Sub

Range(Cells(Range("A65536").End(xlUp).Row + 1, 1), Cells(65536, 1)).EntireRow.Hidden = True

啊一

呵呵，老师就是老师，真佩服！我熬了俩小时弄的代码在老师面前简直是垃圾！

感激兰老师。

啊一

还有，麻烦兰老师了：http://club.excelhome.net/viewthread.php?tid=67637 我不是很需要，就是现在在学习VBA，我录制了宏，可是老是出问题。就是在鼠标点击一个文本框的时候其背景图片就出现，松开的时候就消失。请老师指导，谢谢老师！

啊一

老师不用回了，已经在那里回了。

很敬佩老师乐于助人的精神，我也趁老师的帖子发一些我的经验给大家吧！

我们平时一个文件来回修改的久了体积就会变的很大，比如我做的那个成绩册，没多少代码竟然1.47M，后来我想了一个办法把体积缩小了40多倍。

方法：

1、打开那个比较大的文件，再重新打开一个EXECL应用程序，把工作表中的所有控件复制到新的工作表中，然后按原来的宏指定，因为复制过来的时候宏是不能跟着过来的。

2.把那个大文件里面的所有模块拖到新的工作表里.(记住,如果SHEET和TIISWORKBOOK里有代码的话也复制过来.

3.存盘。

这样，新建的这个文件就和原来的大文件一样，而且体积小了许多。

[此贴子已经被作者于2004-11-1 9:18:47编辑过]

啊一

兰老师,我有两个问题:

1.点一个控件的时候就禁止Worksheet_SelectionChange(ByVal Target As Range)里面程序的运行,不知道有没有方法.请老师指导.

2.只要激活指定的单元格的时候才运行Worksheet_SelectionChange(ByVal Target As Range)里面的程序.

谢谢了老师!

shangyu

以下是引用啊一在2004-11-1 9:24:00的发言：

兰老师,我有两个问题:

1.点一个控件的时候就禁止Worksheet_SelectionChange(ByVal Target As Range)里面程序的运行,不知道有没有方法.请老师指导.

2.只要激活指定的单元格的时候才运行Worksheet_SelectionChange(ByVal Target As Range)里面的程序.

谢谢了老师!

1、appliaction.enableevents = false

2、if target.address <> "$C$1" THEN EXIT SUB

[此贴子已经被作者于2004-11-1 9:59:38编辑过]

兰色幻想

以下是引用啊一在2004-11-1 9:24:00的发言：

兰老师,我有两个问题:

1.点一个控件的时候就禁止Worksheet_SelectionChange(ByVal Target As Range)里面程序的运行,不知道有没有方法.请老师指导.

2.只要激活指定的单元格的时候才运行Worksheet_SelectionChange(ByVal Target As Range)里面的程序.

谢谢了老师!

这两个你都可以用条件加以控制，比如第一个，你可以在程序中这样设置，

IF Sheets("sheet1").[a1]=1 then

程序

End if

如果你想用按纽控制，你只须设置

Sheets("sheet1").[A1]=“”

恢复

Sheets("sheet1").[A1]=1

第二同理:

IF Activecell.address="$a$1" then

程序

End if