带你入门VBA，第二讲

rylane

msgbox、inputbox这两个函数都可以实现在程序运行中,出现信息提示，与用户互动交流。 不同之处msgbox只能跟据预设的几个按钮来返回有限的信息，而inputbox却可以返回用户自由输入的内容，虽然字数有限，但处理的方法就灵活多了，这两个各有所长。

(后来的加的补充)

homerzhang

对于

Sub 矩形3_单击() Dim i As Integer Dim k As Integer

For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then k = k + 1 Cells(i, 2).Interior.ColorIndex = 3 End If Next MsgBox "大于106数值个数有" & k & "个", 1 + 64, "统计信息"

End Sub 如果B列中有字符单元格，也认为大于106。这不对吧？

兰色幻想

以下是引用homerzhang在2004-10-10 12:32:00的发言：

对于

Sub 矩形3_单击() Dim i As Integer Dim k As Integer

For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then k = k + 1 Cells(i, 2).Interior.ColorIndex = 3 End If Next MsgBox "大于106数值个数有" & k & "个", 1 + 64, "统计信息"

End Sub 如果B列中有字符单元格，也认为大于106。这不对吧？

这一段程序是处理数据的，如果数据字符都有

If Cells(i, 2) > 106 Then 改为If Val(Cells(i, 2) )> 106 Then

happy91

疑问1.if语句单元格前为什么不用‘Sheets("sheet1").’

2.赋值语句的变量在sub外还有效吗（如你的i)

3.K不用赋值，是因为在IF中？

4.这里是不是不能用countif求值

5.Range("b16") = Application.WorksheetFunction.Sum(Range("b1:b15"))中不用value怎么也行

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

兰色幻想

以下是引用happy91在2004-10-11 9:12:00的发言：

疑问1.if语句单元格前为什么不用‘Sheets("sheet1").’

2.赋值语句的变量在sub外还有效吗（如你的i)

3.K不用赋值，是因为在IF中？

4.这里是不是不能用countif求值

5.Range("b16") = Application.WorksheetFunction.Sum(Range("b1:b15"))中不用value怎么也行

1、如果这个宏只在当前工作表运行，可以省去，如果在另个一个工作表执行宏，则必须加上，省略时默认是当前工作表的单元格

2、在SUB外无效

3、K不用赋值，是因为新的变量没声明时初始值都为0

4、可以用COUNIF求值

5、VLAUE可以省略

happy91

1.两个模块的代码怎么移到一个模块中；

2.end sub后怎么自动产生另一个sub,即不用输入sub...,end sub

3.还有怎么样默认宏的位置在当前工作薄

4.VB编辑器中存的程序是在所有工作薄还是当前工作薄，或......我没找到啊，默认好象是所有工作薄

[此贴子已经被作者于2004-10-13 14:03:03编辑过]

黑色幽默

怎么第二讲落后这么远啊？顶一下。

黑色幽默

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

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

1+64参考下面的贴子:

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

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

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

中文Excel应用论坛-『 Excel与会计电算化 』-快快快！！！我们一起学习-----VBA(10月12日更新)错误信息
您在"快快快！！！我们一起学习-----VBA(10月12日更新)"的时候发生错误,共有1项,下面是错误的详细信息
错误的版面参数！请确认您是从有效的连接进入。
请仔细阅读论坛帮助文件，确保您有相应的操作权限。
<< 返回上一页

你的链接无效，我还没弄明白“1+64”跟“1+32”的意思。谢谢了。

黑色幽默

兰老师你的关于“1+64”，“1+32”的有关说明的那个连接无效，打不开，能帮我解答一下么？谢谢。

happy91

以下是引用黑色幽默在2004-10-13 11:51:00的发言：

兰老师你的关于“1+64”，“1+32”的有关说明的那个连接无效，打不开，能帮我解答一下么？谢谢。

答案在33楼