VBA中 IIF多条件嵌套-标准语句

Cells(1, 2) = IIF(Cells(1, 2) >= 90, "youxiu", IIF(Cells(1, 2) >= 80, "lianghao", IIF(Cells(1, 2) >= 60, "zhongdeng","Other")))

用VBA的

1. Sub J_If()
   
2.     With Cells(1, 2)
   
3.         If .Value >= 90 Then
   
4.             .Value = "youxi"
   
5.         ElseIf .Value >= 80 Then
   
6.             .Value = "lianghao"
   
7.         ElseIf .Value >= 60 Then
   
8.             .Value = "zhongdong"
   
9.         Else
   
10.             .Value = "cha"
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码

1. Sub J_Select()
   
2.     With Cells(1, 2)
   
3.         Select Case Cells(1, 2)
   
4.             Case Is >= 90
   
5.                 .Value = "youxi"
   
6.             Case Is >= 80
   
7.                 .Value = "lianghao"
   
8.             Case Is >= 60
   
9.                 .Value = "zhongdong"
   
10.             Case Else
    
11.                 .Value = "cha"
    
12.         End Select
    
13.     End With
    
14. End Sub