[已解决]求助-and与or的嵌套

归纳猜想

求助：请大侠帮忙解决“判断语句中，and与or的嵌套问题“
          谢谢！
我希望这次的学习，解决以后会遇到的问题

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-27 18:21

1. Sub test()
   
2. Dim arr, i&, j&
   
3. i = Cells(Rows.Count, 1).End(3).Row
   
4. arr = Cells(1, 1).Resize(i, 6)
   
5.     For j = 2 To UBound(arr)
   
6.         If arr(j, 3) >= arr(j, 4) And arr(j, 4) >= arr(j, 5) Then
   
7.             arr(j, 6) = "成绩单向"
   
8.         ElseIf arr(j, 3) <= arr(j, 4) And arr(j, 4) <= arr(j, 5) Then
   
9.             arr(j, 6) = "成绩单向"
   
10.         Else
    
11.             arr(j, 6) = "成绩波动"
    
12.         End If
    
13.     Next
    
14. Cells(1, 1).Resize(i, 6) = arr
    
15. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2. Dim arr, i&, j&
   
3. i = Cells(Rows.Count, 1).End(3).Row
   
4. arr = Cells(1, 1).Resize(i, 6)
   
5.     For j = 2 To UBound(arr)
   
6.         If arr(j, 3) >= arr(j, 4) And arr(j, 4) >= arr(j, 5) Then
   
7.             arr(j, 6) = "成绩单向"
   
8.         ElseIf arr(j, 3) <= arr(j, 4) And arr(j, 4) <= arr(j, 5) Then
   
9.             arr(j, 6) = "成绩单向"
   
10.         Else
    
11.             arr(j, 6) = "成绩波动"
    
12.         End If
    
13.     Next
    
14. Cells(1, 1).Resize(i, 6) = arr
    
15. End Sub

复制代码

归纳猜想

太感谢你了，谢谢！！

望帝春心

归纳猜想 发表于 2016-12-27 18:32
太感谢你了，谢谢！！

不客气，有帮助就评下最佳吧