VBA IIF多条件嵌套

f6116268

各位大神们

各位帮我看一下这样的语句哪里不对，求指导。小白一枚，正在自学，谢谢了

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


提示红色字体无效的属性赋值，正确该怎么写啊

jsxjd

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

wangg913

用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

复制代码

f6116268

wangg913 发表于 2015-9-2 12:32
用VBA的

十分感谢哦

f6116268

jsxjd 发表于 2015-9-2 11:54
Cells(1, 2) = IIF(Cells(1, 2) >= 90, "youxiu", IIF(Cells(1, 2) >= 80, "lianghao", IIF(Cells(1, 2) >= ...

要的就是这种类型的，感谢之至