第二期：带你入门VBA.doc

2003vba1、 要求做一个按纽，执行程序后在B1：B15填入101至115的数值，并在最后一行的单元格求和Sub 按钮1_单击() Dim i As IntegerFor i = 1 To 15 Sheets(Sheet1).Cells(i, 2) = i + 100 Next Range(b16).Value = Application.WorksheetFunction.Sum(Range(b1:b15)End Sub2、 在上题的基础上，求B列106数的个数(包括刚才求单元格B16),并用对话框的形式显示出来Sub 矩形1_单击() For i = 1 To Range(B65536).End(xlUp).Row If Cells(i, 2) 106 Then K = K + 1 End IfNext MsgBox 大于106数值个数有 & K & 个, 1 + 64, 统计信息 End Sub补充：Range(B65536).End(xlUp).Row是指B列最后一个非空单元格，END（XLUP）是向上数第一个非空单元格，为了找到最下面的非空单元格，当然要从RANGE（B65536）开始向上找了。如选取Sheet1第一行有内容单元格区域（假设A1不为空）:sheets(sheet1).range(a1,range(a1）.end(xltoright).select选取B列有内容单元格区域：(假设B1不为空）:sheets(sheet1).range(B1,range(B65536).end(XLUP).selectMSGBOX 有时带()，比如AAA=MSGBOX()这种情况下可以取到用户点击对话框按纽的返回值,以确定下一步该怎么做；而不带括号只是提示的作用,不能取得返回的值MsgBox函数: MsgBox(对话框中的提示信息,buttons,title,helpfile,context) 提示语句: 仅有的一个必需的参数。最大长度大约为1024个字符。如内容超过一行，则可以在每一行之间用回车符(Chr(13)、换行符(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:显示CriticalMessage图标 VbQuestion =32:显示WarningQuery图标 VbExclamation=48:显示WarningMessage图标 VbInformation=64: InformationMessage图标 vbDefaultButton1=0 :第一个按钮是缺省值 vbDefaultButton2=256:第二个按钮是缺省值 vbDefaultButton3=512:第三个按钮是缺省值 vbDefaultButton4=768:第四个按钮是缺省值 vbApplicationModal=0:应用程序强制返回；应用程序被挂起，直到用户对消息框作出响应才继续工作。 VbSystemModal=4096:系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。 VbMsgBoxHelpButton =16384：将Help按钮添加到消息框 VbMsgBoxSetForeground=65536：指定消息框窗口作为前景窗口 VbMsgBoxRight =524288：文本为右对齐 VbMsgBoxRtlReading =1048576：指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 返回值： vbOK=1：OK vbCancel=2：Cancel vbAbort =3：Abort vbRetry =4：Retry vbIgnore=5：Ignore vbYes=6：Yes vbNo =7：No helpfile字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。Helpfile与context是相配合的。Context为数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。当不需要返回值时,可以这样写(标题和按钮参数可以省略,系统默认用缺省值): msgbox 刷新成功!当要判断返回值时,可以这样写(标题和按钮参数一样可以省略,系统默认用缺省值): i=msgbox (需要刷新目录吗?如果确定请点确定按钮,否则请点取消按钮.,VbOKCancel,提示窗口)if i=vbcalcel then exit sub 如果点击了取消,就退出当前事件.3、 把B列106且 106 And Cells(i, 2) 112 Then Cells(i, 2).Interior.ColorIndex = 3End IfNextEnd SubColorIndex 属性返回或者设置边框、字体或者内部填充区域的颜色，如下表所示。该颜色可定义为当前调色板中的索引值，也可使用下列 XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。Variant 类型，可读写。对象ColorIndexBorder边框的颜色。Borders四条边框的颜色。如果四条边框使用的不是同一种颜色则返回 Null。Font字体的颜色。指定为 xlColorIndexAutomatic 可自动设置颜色。Interior内部填充的颜色。将本属性指定为 xlColorIndexNone 可不进行内部填充。将本属性设为 xlColorIndexAutomatic 可进行自动填充（对于图形对象）。说明本属性将一种颜色指定为工作簿调色板的一条索引。可以使用 Colors 方法返回当前的调色板。InputBox函数：格式如下，第一项为必须外，其除为可选项,可以省略不写，XY坐标为在窗体上的准确位置。当用户点取消时，返回一个空的字符串( )。为了省略某些位置参数，必须加入相应的逗号分界符。 strFillName=InputBox(对话框