Кто-нибудь может сказать мне, почему мое утверждение случая ниже не работает для отрицательных значений, пожалуйста?

Question

Sub tebakangkadi_c4()
    Dim value As Integer
    Dim result As String
    Dim gp As String
    Dim np As String

    value = Range("c4").value
    gp = IIf(nilai Mod 2 = 0, "Genap", "Ganjil")

    Select Case nilai
    Case 0 To 20
        result = "A"
    Case 21 To 50
        result = "B"
    Case 51 To 125
        result = "C"
    Case 126 To 1000
        result = "D"
    Case Is > 1000
        result = "E"
    Case -1 To -20
        result = "A"
    Case -21 To -50
        result = "B"
    Case -51 To -125
        result = "C"
    Case -126 To -1000
        result = "D"
    Case Is < -1000
        result = "E"
    End Select
    If value < 0 Then
        np = "Negative"
    Else: np = "Positive"
    End If
    Range("c5").value = "Category :" & result & " " & gp & " " & np
End Sub

Answer 1

Из документов Select Case:

Ключевое слово К задает диапазон значений. Если вы используете ключевое слово Кому , меньшее значение должно появиться до Кому .

Отразить числа в отрицательном Case с.

Case -20 To -1
Case -50 To -21
etc.