vba - 有人可以帮助调试这个 Select Case

Question

我已经做了一段时间，但没有成功。

它不会显示任何其他结果，除了前两种情况和最后一种情况。

我试过小于等于的情况。

        Dim DayLeft As Long
        DaysLeft = Me.Days.Value

        Select Case DaysLeft
            Case Is = 0
                MsgBox "Deadline due today!"
            Case Is < 0
                MsgBox "Deadline expired!"
            Case 90 To 31
                MsgBox "First notice " & Me.Days& " days until deadline!"
            Case 30 To 11
                MsgBox "Deadline due soon! " & Me.Days & " days until deadline!"
            Case Is <= 10
                MsgBox "Warning! " & Me.Days& " days until deadline!"
        End Select

Answer 1

来自Select Case文档:

The To keyword specifies a range of values. If you use the To keyword, the smaller value must appear before To.

所以你需要

Case 31 to 90
...
Case 11 to 30