Sub IIF����(sh��)���ã��� Cells��2, 3�� = IIf��Cells��1, 2�� >= 90, "��(y��u)��", 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 = "��(y��u)��" 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

�������������T�����Xһ�����քӌ����a���韩���������(sh��)ֱ�������ͽ�Q�����X������[Ц��]

Sub iif0() Cells(2, 2) = iif(Cells(1, 2) >= 90, "��(y��u)��", _ iif(Cells(1, 2) >= 80, "����", _ iif(Cells(1, 2) >= 70, "�е�", "�^��"))) End Sub ��ʲô�����������@�����ӵģ���߀�оȆ���

Sub test���� Sheet1.[b2] = VBA.IIf��[b1] >= 90, "��(y��u)��", IIf��[b1] >= 80, "����", IIf��[b1] >= 60, "�е�", "�^��"������ End Sub

Sub iif����(sh��)Ƕ�׶��֧���� Cells��4, 7�� = IIf��Cells��1, 7�� >= 90, "��(y��u)��", _ IIf��Cells��1, 7�� >= 80, "����", _ IIf��Cells��1, 7�� >= 70, "�е�", _ IIf��Cells��1, 7�� >= 60, "һ��", "�^��"�������� End Sub