Sub IIFº¯ÊýÓ¦Ó㨣©
Cells£¨2, 3£© = IIf£¨Cells£¨1, 2£© >= 90, "ÓÅÐã", IIf£¨Cells£¨1, 2£© >= 80, "Á¼ºÃ", IIf£¨Cells£¨1, 2£© >= 70, "ÖеÈ", "½Ï²î"£©£©£©
End Sub

Sub test£¨£©
Sheet1.[b2] = VBA.IIf£¨[b1] >= 90, "ÓÅÐã", IIf£¨[b1] >= 80, "Á¼ºÃ", IIf£¨[b1] >= 60, "ÖеÈ", "½Ï²î"£©£©£©
End Sub

Sub iifº¯ÊýǶÌ׶à·ÖÖ§£¨£©
Cells£¨4, 7£© = IIf£¨Cells£¨1, 7£© >= 90, "ÓÅÐã", _
IIf£¨Cells£¨1, 7£© >= 80, "Á¼ºÃ", _
IIf£¨Cells£¨1, 7£© >= 70, "ÖеÈ", _
IIf£¨Cells£¨1, 7£© >= 60, "Ò»°ã", "½Ï²î"£©£©£©£©
End Sub

Sub IIFº¯ÊýÓ¦Ó㨣©
Cells£¨2, 3£© = IIf£¨Cells£¨1, 2£© >= 90, "ÓÅÐã", IIf£¨Cells£¨1, 2£© >= 80, "Á¼ºÃ", IIf£¨Cells£¨1, 2£© >= 70, "ÖеÈ", "½Ï²î"£©£©£©
End Sub

Public Sub chengji_level£¨£©
Dim a As Integer, b As String
a = Sheet4.Range£¨"B1"£©
If a >= 90 Then
b = "ÓÅÐã"
ElseIf a >= 80 And a < 90 Then
b = "Á¼ºÃ"
ElseIf a >= 70 And a < 80 Then
b = "ÖеÈ"
ElseIf a >= 60 And a < 70 Then
b = "½Ï²î"
Else
b = "²»¼°¸ñ"
End If
Sheet4.Range£¨"B2

¿ÉÄÜÊÇÒòΪ²ÅÈëÃÅ£¬¸Ð¾õÒ»ÐÐÐÐÊÖ¶¯Ð´´úÂëºÜÂé·³£¬Èç¹ûº¯ÊýÖ±½ÓÏÂÀ­¾Í½â¾ö£¬¸Ð¾õ¸ü·½±ã[Ц¿Þ]