[已解决]请问如何判断符合多条件

felix3

Book1.rar (1.53 KB, 下载次数: 9)

2014-4-16 10:46 上传

点击文件名下载附件


多条件判断，同时满足其中几个，请问代码怎么写？

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-16 11:01

1. Sub tt()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         k = 0
   
5.         If arr(i, 2) > 20 Then k = k + 1
   
6.         If arr(i, 3) > 1.8 Then k = k + 1
   
7.         If arr(i, 4) > 3.5 Then k = k + 1
   
8.         If k >= 2 Then arr(i, 5) = "优秀"
   
9.     Next
   
10.     Cells(1, 5).Resize(UBound(arr), 1) = Application.Index(arr, , 5)
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

冠军欧洲2010

.......

grf1973

1. Sub tt()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         k = 0
   
5.         If arr(i, 2) > 20 Then k = k + 1
   
6.         If arr(i, 3) > 1.8 Then k = k + 1
   
7.         If arr(i, 4) > 3.5 Then k = k + 1
   
8.         If k >= 2 Then arr(i, 5) = "优秀"
   
9.     Next
   
10.     Cells(1, 5).Resize(UBound(arr), 1) = Application.Index(arr, , 5)
    
11. End Sub
    

复制代码

grf1973

请看附件。

felix3

冠军欧洲2010 发表于 2014-4-16 10:53
.......

用代码怎么写呢？我改成这样没反应
If (Range("B2") > 20) * 1 + (Range("C2") > 1.8) * 1 + (Range("D2") > 3.5) * 1 > 2 Then
        Range("E2") = "优秀"
End If

冠军欧洲2010

felix3 发表于 2014-4-16 11:07
用代码怎么写呢？我改成这样没反应
If (Range("B2") > 20) * 1 + (Range("C2") > 1.8) * 1 + (Range("D2 ...

这样写肯定是不对的。
看下TRUE。
楼上，已经给出答案了吧。