哪里出了差错，怎么出来两个结果？

dacayao88

我要的只是一个结果，怎么两个都出来了，请老师帮忙指点一下，谢谢

shiruiqiang

介于两者之间，vba是分别满足

xlj310

首先：80 <= Range("b1") <= 90
这个写法不对，你自己可以这么理解，但程序不能这么写。 要写成两个判断式。
当然 你的问题是为什么出两个结果，是因为你的结果就是两个单元格输出。
Sub 期末整体评价()
    If 80 <= Range("b1") And Range("b1") <= 90 And 80 <= Range("b4") And Range("b4") <= 90 And Range("b5") <= Range("b2") Then Range("C18") = "优"
    If 70 <= Range("b1") And Range("b1") <= 80 And Range("b4") <= 80 And Range("b5") <= Range("b2") Then Range("C18") = "良"
End Sub
这样改的话，实际数据 两个条件都不满足，所以 C18不会有内容输出~
80到90 可以用选择分支语法
Sub 期末整体评价()
    If Range("b5") <= Range("b2") Then
        Select Case Range("b1")
            Case 80 To 90
                Select Case Range("b4")
                    Case 80 To 90
                        Range("C18") = "优"
                End Select
            Case 70 To 80
                If Range("b4") <= 80 Then Range("C18") = "良"
        End Select
    End If
End Sub

autohotey

理论上按照你写的逻辑，应该输出空值。

但结果分别输出了优和良，那就说明条件写错了，或者说条件没有识别成功，只识别了部分条件。

dacayao88

好的，谢谢各位老师