excel用vba怎么在6种成绩中统计合格.
发布网友
发布时间：2022-05-15 23:44
共3个回答
热心网友
时间：2024-03-22 07:07
Dim I As Integer, J%, lastrow%
lastrow = Range("B65536").End(xlUp).Row
For I = 1 To lastrow
For J = 2 To 7
If Cells(I, J).Value < 60 Then
Cells(I, 1).Value = "不合格"
Exit For
Else
Cells(I, 1).Value = "合格"
End If
Next J
Next I
End Sub
第三个问题可以修改一下代码然后再运行。为了个别特例再去编写判断的代码，不如直接先运行完B：G区域的，然后再改下代码再运行一次。
不明白这句话的意思：另外第3个写那代码应该要简单许多吧，因为只有一项的，还有总共可能只需要50多行。能解释一下吗？或者Hi我。
Sub 查找不合格项()
Dim I As Integer, J%, lastrow%
'lastrow = Range("B65536").End(xlUp).Row
'如果不需要判断最后一行的行号，则上面这句不要，直接修改下面的语句
For I = 1 To 55
For J = 2 To 7
If Cells(I, J).Value < 60 Then
Cells(I, 1).Value = "不合格"
Exit For
Else
Cells(I, 1).Value = "合格"
End If
Next J
Next I
'增加下列内容，用来判断H6:K6中的分数，结果写入H3
For J = 8 To 11
'因为位置明确，无需判断。
If Cells(6, J) < 60 Then
Range("H3") = "不合格"
Exit For
Else
Range("H3") = "合格"
End If
Next J
End Sub
热心网友
时间：2024-03-22 07:07
dim a as boolean
a=true
for i=2 to 7
if cells(i,n)<60 then
a=false
end if
exit for
Next
if a=false then
cells(1,n)="不合格"
End if
热心网友
时间：2024-03-22 07:08
[a65536].end(xlup).row
如果是统计每列有多少非空单元格
就要调用counta函数方便些
worksheetfunction.counta
(range("a:a"))
