求助：想求语文和数学同时>=90分的人数

huangtao0307

求助：想求语文和数学同时>=90分的人数
请问这段代码问题在哪？
Sub 两门同时大于90的人数()
Dim i%, p%
For i = 30 To 42
If Cells(i, 3) And Cells(i, 4) >= 90 Then p = p + 1
Next
MsgBox "大于90分的人数为：" & p & "人"
End Sub

蓝桥玄霜

If Cells(i, 3)>=90  And Cells(i, 4) >= 90 Then p = p + 1

huangtao0307

蓝桥玄霜 发表于 2019-8-7 08:32
If Cells(i, 3)>=90  And Cells(i, 4) >= 90 Then p = p + 1

版主这样写不行吗？If Cells(i, 3) And Cells(i, 4)

koala219

huangtao0307 发表于 2019-8-7 08:41
版主这样写不行吗？If Cells(i, 3) And Cells(i, 4)

这是程序语法 跟 语文语法的区别，你得适应。

huangtao0307

koala219 发表于 2019-8-7 08:48
这是程序语法 跟 语文语法的区别，你得适应。

了解，了解老想着在excel写函数是这样写的搞混了

petergaod

没有编程基础还是得从头好好学一下语法

maditate

代码似乎没错呀。只不过循环从30  to  42 是不是楼主的本意？
更正：刚才没看清楚，and 前面似乎好象不合规范。不过我用楼主的代码实际运行了一下，结果是正确的。

月关

huangtao0307 发表于 2019-8-7 08:50
了解，了解老想着在excel写函数是这样写的搞混了

excel函数也不是这么写的吧？
也得写全了，跟VBA的区别无非是 and 位置不一样而已

qx-liuwx

这样的问题就不用滥用VBA了、

要自动运算、录个工作表函数的宏即可

deadzlq

VBA CountIfs 函数写法 参考