Question

VBA，判断几个单元格数字。

这样可以判断a1与b1单元格的数字。如果要同时判断a1到z1单元格中的所有数字，我可不想写26个条件，怎么样写才容易点？

Sub test1()
Select Case Range("a1").Value And Range("b1").Value
Case Is <= 1000: Range("c1") = "不合格"
Case Is <= 2000: Range("c1") = "基本合格"
Case Else: Range("c1") = "合格"
End Select
End Sub
另外，上面这个程序不太正常，输入有些数字是正常的，有些就不正常。

Answer 1

楼主，你是需要两个两个地同时进行判断呢？还是依次判断单个得到结果？
“
只要a1或b1中有一个数字小于等于1000，不管另一个数是多少，都不合格。
只要a1或b1中有一个数字小于等于2000但大于1000，不管另一个数是多少，都基本合格。如果两个数都大于1000但小于等于2000，相当也是基本合格。
如果a1或b1两个数字都大于2000，都合格”
你这段话，我没太懂！
根据我对这段话猜的意思，写了一段，请你测试，是否符合要求？
'判断1列到26列数字(按两个两个地依次判断结果)
Sub Judgenm()
Dim Sj(), Rzlt(), C%, R%, M&, W%, P1$, P2$, P3$
Dim R1%, R2%, R3%, Rz$
P1 = "合格"
P2 = "不合格"
P3 = "基本合格"
With ActiveSheet
Sj = Range(.Cells(1, 1), .Cells(1, 26)).Value
ReDim Rzlt(1 To UBound(Sj, 2) / 2)
W = 0
For C = LBound(Sj, 2) To UBound(Sj, 2)
If C Mod 2 = 0 Then
W = W + 1
R1 = 0
R2 = 0
R3 = 0
For R = C - 1 To C
M = CLng(Sj(1, C))
Select Case M
Case Is > 2000
R1 = R1 + 1
Case Is <= 1000
R2 = R2 + 1
Case Else
R3 = R3 + 1
End Select
Next R
Rz = ""
If R1 > 1 Then Rz = P1: GoTo E1
If R2 > 0 Then Rz = P2: GoTo E1
If R3 > 0 Then Rz = P3
E1:
Rzlt(W) = Rz
End If
Next C
.Cells(1, 27).Resize(UBound(Rzlt), 1) = Application.Transpose(Rzlt)
End With
End Sub

追问

比方说，一个专业考试，包括10门课程，只要有一门课程分数不及格，这个专业考试就不过关。

追答

如果是“一个专业考试，包括10门课程，只要有一门课程分数不及格，这个专业考试就不过关。”，那么就简单多了！
'判断1列到26列数字
Sub Judgenm()
Dim Sj(), C%, R%, M&, P1$, P2$, P3$
Dim R1%, R2%, R3%, Rz$
P1 = "合格"
P2 = "不合格"
P3 = "基本合格"
With ActiveSheet
Sj = Range(.Cells(1, 1), .Cells(1, 26)).Value
For C = LBound(Sj, 2) To UBound(Sj, 2)
M = CLng(Sj(1, C))
Select Case M
Case Is > 2000
R1 = R1 + 1
Case Is 0 Then Rz = P2: GoTo E1
If R3 > 0 Then Rz = P3: GoTo E1
If R1 > 1 Then Rz = P1
E1:
.Cells(1, 27) = Rz
End With
End Sub

Answer 2

Sub test()
Range("a2") = ""
For i = 1 To 26
If Cells(1, i).Value < =1000 Then
Range("a2") = "不合格"
Exit For
End If
Next
If Range("a2") = "" Then
For i = 1 To 26
If Cells(1, i).Value < =2000 Then
Range("a2") = "基本合格"
Exit For
End If
Next
End If
If Range("a2") = "" Then
Range("a2") = "合格"
End If
End Sub
这个给你试试。

Answer 3

Sub test1()
For ki = 1 To 26
Select Case Cells(1, ki)
Case Is <= 1000: Cells(2, ki) = "不合格"
Case Is <= 2000: Cells(2, ki) = "基本合格"
Case Else: Cells(2, ki) = "合格"
End Select
Next
End Sub

A1:Z1是数据,A2:Z2是结果

Answer 4

用循环处理

不用range("A1“)这种方式

用cells(1,1)到cells(1,26)来取单元格的值，这样就可以用循环了，

追问

另外，上面这个程序不太正常，输入有些数字是正常的，有些就不正常。

追答

可能是这个不对，Range("a1").Value And Range("b1").Value

改成用IF语句吧。

Answer 5

你采用 And 显然与下面的大小比较不匹配的?
应该把AND 改成 数值加,这是我的猜测!
请说明,你的目的?

另外,提示一下,其实你到EXCEL里,采用录制宏的办法,做一下"A1--Z1"的求和,打开宏,就可以看到代码了,复制过来稍作修改,就可以达到自己的目的.

追问

你好。我的目的是：
只要a1或b1中有一个数字小于等于1000，不管另一个数是多少，都不合格。
只要a1或b1中有一个数字小于等于2000但大于1000，不管另一个数是多少，都基本合格。如果两个数都大于1000但小于等于2000，相当也是基本合格。
如果a1或b1两个数字都大于2000，都合格。

追答

那是没有办法,只能一个单元格一个单元格的进行判断的!
这个很好理解,有A,B,C,当判断完A,是不能确定答案的,因为A即使很大,B或C都可能比较小,所以只有全部判断完,才能出结论.
这就是通常说的遍历,就是每一个都必须检查到!
两个单元格的话,可以这样用AND，同时注意到是数值，加个Val（）函数
if Val（Range("A1").Value）<= 1000 Or Val（Range("B1").Value）<= 1000 Then
range("C1") = "不合格"
elseIf Val（Range("A1").Value）<= 2000 Or Val（Range("B1").Value）<= 2000 Then
range("C1") = "基本合格"

else
range("C1") = "合格"
end if
如果是A1--Z1，就采用楼下的循环方法

追问

谢谢。一个个地判断也行。我只求别让我写一堆条件。如果真的要写很多条件，那在单元格里用函数公式可能更方便了。