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

标签： vba

Answer 1

从Select Case文档中：

关键字指定值的To范围。如果使用To关键字，则较小的值必须出现在 之前To。

所以你需要

Case 31 to 90
...
Case 11 to 30