Vba 有人可以帮助调试这个选择的案例吗

我做这件事已经有一段时间了，但没有成功

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

我试过一个小于或等于的案子

        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

Dim DayLeft尽可能长
DaysLeft=Me.Days.Value
选择Case DaysLeft
大小写为=0
MsgBox“截止日期今天到期！”
病例<0
MsgBox“截止日期已过！”
案例90至31
MsgBox“第一次通知”&Me.Days&“截止日期前的天数！”
案例30至11
MsgBox“截止日期即将到期！”&Me.Days&“截止日期前几天！”
案例来自文件：

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

所以你需要

Case 31 to 90
...
Case 11 to 30

这两项是非法的：

没有这个空间，您的代码将无法编译（“语法错误”）

选择两个，由于中突出显示的原因无法访问


请注意，它还警告未声明的
DaysLeft
，以及未指定的
Option Explicit
。
DaysLeft
/
DaysLeft
另一个Option Explicit用例…31到90，11到30。感谢@BigBen帮助我。
    Case 90 To 31
        MsgBox "First notice " & Me.Days& " days until deadline!"
    '...
    Case Is <= 10
        MsgBox "Warning! " & Me.Days& " days until deadline!"

        Case 90 To 31
            MsgBox "First notice " & Me.Days & " days until deadline!"
        '...
        Case Is <= 10
            MsgBox "Warning! " & Me.Days & " days until deadline!"