资源描述：
《第二期：带你入门VBA.doc资料》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、2003vba1、要求做一个按纽，执行程序后在B1：B15填入101至115的数值，并在最后一行的单元格求和Sub按钮1_单击()DimiAsIntegerFori=1To15Sheets("Sheet1").Cells(i,2)=i+100NextRange("b16").Value=Application.WorksheetFunction.Sum(Range("b1:b15"))EndSub2、在上题的基础上，求B列>106数的个数(包括刚才求单元格B16),并用对话框的形式显示出来Sub矩形1_单击()Fori=1ToRange("B65536").End(
2、xlUp).RowIfCells(i,2)>106ThenK=K+1EndIfNextMsgBox"大于106数值个数有"&K&"个",1+64,"统计信息"EndSub补充：Range("B65536").End(xlUp).Row是指B列最后一个非空单元格，END（XLUP）是向上数第一个非空单元格，为了找到最下面的非空单元格，当然要从RANGE（"B65536"）开始向上找了。如选取Sheet1第一行有内容单元格区域（假设A1不为空）:sheets("sheet1").range("a1",range("a1"）.end(xltoright)).select选
3、取B列有内容单元格区域：(假设B1不为空）:sheets("sheet1").range("B1",range("B65536").end(XLUP)).selectMSGBOX有时带()，比如AAA=MSGBOX()这种情况下可以取到用户点击对话框按纽的返回值,以确定下一步该怎么做；而不带括号只是提示的作用,不能取得返回的值MsgBox函数:MsgBox("对话框中的提示信息",buttons,title,helpfile,context)提示语句:仅有的一个必需的参数。最大长度大约为1024个字符。如内容超过一行，则可以在每一行之间用回车符(Chr(13))、换
4、行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。Buttons可以是由下列列表中的一个或多个，可将这些数字相加以生成buttons参数值。省略时值为0。VbOKOnly=0:只显示OK按钮VbOKCancel=1:显示OK及Cancel按钮VbAbortRetryIgnore=2:显示Abort、Retry及Ignore按钮VbYesNoCancel=3:显示Yes、No及Cancel按钮VbYesNo=4:显示Yes及No按钮VbRetryCancel=5:显示Retry及Cancel按钮VbCritical=16:显
5、示CriticalMessage图标VbQuestion=32:显示WarningQuery图标VbExclamation=48:显示WarningMessage图标VbInformation=64:InformationMessage图标vbDefaultButton1=0:第一个按钮是缺省值vbDefaultButton2=256:第二个按钮是缺省值vbDefaultButton3=512:第三个按钮是缺省值vbDefaultButton4=768:第四个按钮是缺省值vbApplicationModal=0:应用程序强制返回；应用程序被挂起，直到用户对消息框作出
6、响应才继续工作。VbSystemModal=4096:系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。VbMsgBoxHelpButton=16384：将Help按钮添加到消息框VbMsgBoxSetForeground=65536：指定消息框窗口作为前景窗口VbMsgBoxRight=524288：文本为右对齐VbMsgBoxRtlReading=1048576：指定文本应为在希伯来和阿拉伯语系统中的从右到左显示返回值：vbOK=1：OKvbCancel=2：CancelvbAbort=3：AbortvbRetry=4：RetryvbIgn
7、ore=5：IgnorevbYes=6：YesvbNo=7：Nohelpfile字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。Helpfile与context是相配合的。Context为数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。当不需要返回值时,可以这样写(标题和按钮参数可以省略,系统默认用缺省值):msgbox"刷新成功!"当要判断返回值时,可以这样写(标题和按钮参数一样可以省略,系统默认用缺省值):i=msgbox("需要刷新目录吗?如果确定请点确定按钮,否则请点取消按钮.",VbOKCancel,"提示窗口")ifi=
