带你入门VBA，第二讲

兰色幻想

如选取Sheet1第一行有内容单元格区域（假设A1不为空）:

sheets("sheet1").range("a1",range("a1"）.end(xltoright)).select

选取B列有内容单元格区域：(假设B1不为空）:

sheets("sheet1").range("B1",range("B65536").end(XLUP)).select

[此贴子已经被作者于2004-10-5 15:58:42编辑过]

老荷才露

a = Application.WorksheetFunction.CountIf(Range("b:b"), ">106") If a > 1 Then MsgBox "大于106的数有" & a & "个", 1 最后这个，1 怎么解释；a 这个变量是不是省略了dim的声明，不声明也行吗？

兰老师的最后一句中的 1+64，怎么解释

兰色幻想

以下是引用老荷才露在2004-10-5 16:30:00的发言：

a = Application.WorksheetFunction.CountIf(Range("b:b"), ">106") If a > 1 Then MsgBox "大于106的数有" & a & "个", 1 最后这个，1 怎么解释；a 这个变量是不是省略了dim的声明，不声明也行吗？

兰老师的最后一句中的 1+64，怎么解释

其实这个程序是加了个判断，如果统计的结果有>106的值（即A>1）就显示提示对话框,否则就不显示,

1+64参考下面的贴子:

http://club.excelhome.net/dispbbs.asp?boardid=5&star=13&replyid=297359&id=62008&skin=0&page=1

变量在程序中如果事先约定,就必须声明,如果没有约定,就根据实际情况而定,一般来说声明最好,这样可以减少运行程序所占用的内存.

注:约定:相关图片如下(VBE编辑器---工具---选项)

[此贴子已经被作者于2004-10-5 16:42:06编辑过]

先锋

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

现在在原来题的基础上，求B列>106数的个数(包括刚才求单元格B16),并用对话框的形式显示出来

这一问我的已经可以了，我就想在这基础上，同时满足<112的个数，怎么就不行了，试了这么久，还是不行。帮我写一下，让我看看，谢谢！

“继续，把B列>106且<112的数所在单元格填充为红色”，这一问我还没有做到呢？

兰色幻想

以下是引用先锋在2004-10-5 17:33:00的发言：

这一问我的已经可以了，我就想在这基础上，同时满足<112的个数，怎么就不行了，试了这么久，还是不行。帮我写一下，让我看看，谢谢！

“继续，把B列>106且<112的数所在单元格填充为红色”，这一问我还没有做到呢？

For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 And Cells(i, 2) < 112 Then Cells(i, 2).Interior.ColorIndex = 3 End If Next

E1sZHOgF.rar (5.99 KB, 下载次数: 401)

2004-10-5 17:57 上传

点击文件名下载附件
带你入门VBA，第二讲（各位请进，已开始）

lllllll007

Sub 矩形1_单击() Dim i As Integer For i = 1 To 15 Cells(i, 2) = i + 100 Next i Cells(i, 2).Value = Application.WorksheetFunction.Sum(Range("b1", Range("b65536").End(xlUp))) MsgBox "清除最后单元格内容", vbOKOnly Cells(Range("b65536").End(xlUp).Row, 2).ClearContents For i = 1 To Range("b65536").End(xlUp).Row If Cells(i, 2) > 106 And Cells(i, 2) < 112 Then Cells(i, 2).Interior.ColorIndex = 3 End If Next i End Sub

lpdcd

很好，跟着学一学。

老荷才露

今天还继续吗？这和顶置的快快一齐学VBA有冲突吗？

whwin98

今天什么时候开讲呀！！

lpdcd

请问兰色幻想

For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 And Cells(i, 2) < 112 Then Cells(i, 2).Interior.ColorIndex = 3 End If Next 里的Cells(i, 2).Interior.ColorIndex = 3是什么意思能解释一下吗？