带你入门VBA，第二讲

gvntw

cells(i,2)是指b1到b列最后一个非空单元格，前面已指定For i = 1 To Range("B65536").End(xlUp).Row，=3是填充红色。

兰色幻想

以下是引用lpdcd在2004-10-6 14:51:00的发言：

请问兰色幻想

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是什么意思能解释一下吗？

是把符合条件的单元格填充为红色

ColorIndex 属性

返回或者设置边框、字体或者内部填充区域的颜色，如下表所示。该颜色可定义为当前调色板中的索引值，也可使用下列 XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。Variant 类型，可读写。

对象	ColorIndex
Border	边框的颜色。
Borders	四条边框的颜色。如果四条边框使用的不是同一种颜色则返回 Null。
Font	字体的颜色。指定为 xlColorIndexAutomatic 可自动设置颜色。
Interior	内部填充的颜色。将本属性指定为 xlColorIndexNone 可不进行内部填充。将本属性设为 xlColorIndexAutomatic 可进行自动填充（对于图形对象）。

说明

本属性将一种颜色指定为工作簿调色板的一条索引。可以使用 Colors 方法返回当前的调色板。

以下示范显示默认调色板中的颜色索引值。

[此贴子已经被作者于2004-10-6 18:30:18编辑过]

兰色幻想

[分享msgbox、inputbox命令详解（BY rylane）

回复MYTAO1976朋友：内容太多了，就写在这儿了

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 '如果点击了取消,就退出当前事件.

InputBox函数：格式如下，第一项为必须外，其除为可选项,可以省略不写，XY坐标为在窗体上的准确位置。当用户点取消时，返回一个空的字符串(" ")。为了省略某些位置参数，必须加入相应的逗号分界符。

strFillName=InputBox("对话框中的提示信息","对话框的标题","缺省的返回值"，X坐标，Y坐标)

X坐标和Y坐标当你需要为InputBox窗口指定在屏幕中的位置时用的，单位为象素，一般省略不写。

实例讲解： （学生成绩排名及汇总http://club.excelhome.net/viewthread.php?tid=61473）

mm = InputBox("请你输入想要操作的班级(只能输入数字):", "班级输入提示信息", "1") '默认的返回值为1

aaa = 0 For x = 1 To Sheets.Count If Sheets(x).Name = mm Then aaa = x '判断InputBox的返回值，确认你选择了哪个班级，把对应的班级的工作表的序号的值存入aaa变量 Next

If aaa = 0 Then mmm = MsgBox("对不起,找不到这个班级!", vbOKOnly, "提示信息") '如果aaa变量仍是空的，说明你在InputBox中输入的班级不对 Exit Sub End If

Worksheets(aaa).Activate '激活对应的班级工作表，并确定下一步的排名方式 nn = MsgBox("1.RANK方式: 重复成绩影响后续数值的排位。如两个第二名，那么下一名将当做第四名。" & Chr(13) + Chr(10) _ & "2.一般方式: 如两个第二名，那么下一名将当做第三名。" & Chr(13) + Chr(10) & Chr(13) + Chr(10) & "如用RANK方式，请按确定钮；用一般方式请按否，退出排名请选取消", vbYesNoCancel, "排名方式")

totalT = 55 '确定下面的总评为班级，根据nn = MsgBox返回值的不同，调用不同的事件过程。 If nn = vbYes Then rankway ElseIf nn = vbNo Then notrank Else Exit Sub End If

yigepure

看来VB与VBA还是有很多的相通之处

chenjun

以下是引用lpdcd在2004-10-6 14:51:00的发言：

请问兰色幻想

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是什么意思能解释一下吗？

换成Cells(i, 2).Interior.Color = RGB(255, 0, 0)是不是更好理解 其中RGB(red, green, blue)中的每个参数为0至255，表示颜色的红、绿、蓝色的分量。

yigepure

以下是引用lllllll007在2004-10-5 21:33:00的发言： 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

请问兰老师他这句这么写可以吗,他没有指明cells呀.他这句是什么意思呢

Cells(i, 2).Value = Application.WorksheetFunction.Sum(Range("b1", Range("b65536").End(xlUp)))

兰色幻想

Cells(i, 2).Value 中的i是承接上面循环后的结果即i=16

Cells(i, 2).Value 即为B16的值

yigepure

谢谢

hnymlzs

请问兰老师;Cells(Range("b65536").End(xlUp).Row, 2).ClearContents

的含义

兰色幻想

ClearContents是清除单元格内容