带你入门VBA，第二讲

兰色幻想

以下是引用mzf在2005-2-1 16:14:00的发言： 为什么我下载了妳的例子不能运行文件中的宏？要怎样才能运行？

有什摸提示？

mzf

有以下提示：

为什么图片不清楚

[em06]

[此贴子已经被作者于2005-2-2 15:58:31编辑过]

mzf

昨天我新建了一个EXCEL的文件，在里面写了几个宏，但是今天打开却出现同样的错误!!![em11]555555555555555

mzf

以下是引用dldldl在2005-1-28 15:34:00的发言： 请问val(cells(i,2) 和cells(i,2).value有什么区别，我试过了有区别，但说不出所以来，请帮助。

val()是把括号里的文本转换成数字；而value()就是取内容，如果是文本的就返回文本，是数字就返回数字，不作转换。

mzf

以下是引用五彩缤纷在2005-1-2 14:49:00的发言：

我下面的语句错在那里？错误原因是对象不支持该属性或方法！

Sub b() Dim i As Integer For i = 1 To 15 Sheets("sheet1").Cells(i, 2) = i + 100 Next With Application.WorksheetFunction Cells(i, 2).Value = .Sum(Range("b1:b15")) a = .CountIf(Range("b1:b16"), ">106") End With For i = 1 To Range("b65536").End(xlUp).Row If Cells(i, 2) > 106 And Cells(i, 2) < 112 Then Cells(i, 2).interion.ColorIndex = 3 End If Next If a > 1 Then MsgBox "大于数值106的个数为：" & a End If End Sub

Cells(i, 2).interion.ColorIndex = 3 -------->Cells(i, 2).interior.ColorIndex = 3

nahzx

以下是引用playgirl在2004-10-20 11:28:00的发言：

private sub worksheet_change(byval target as range)

i=inputbox("请输入数字")

cells(1,1)=i

end if

请问上面的代码错在哪？为什么输入数字后点确定，对话框一直退不出去？谢谢。

请问兰老师，用什么触发这个过程呀？用窗体？控件？矩形……？能告诉我吗？我一直在学习……

plj9008103

怎么没有文章

[em06]

jyb2002

我觉得先从记录宏做起，看懂记录的宏，然后再学可能好学一点

tyl552001

我剛看完第二講，還要慢慢消化，謝謝版主了。

wwk

兰老师，这是我做的，运行正常 Dim y As Integer

Dim i As Integer

y = MsgBox("是否在G1：G10内输入100-110", 4 + 32, "请输入")

If y = 6 Then

For i = 1 To 10

Cells(i, 7) = i + 100

Next i

End If

End Sub