Проблема в выполнении условия

[KNatalia]

Всем доброе утро!

Подскажите, пожалуйста, в чём проблема.
Я пишу условие:

If Len(vArr(j, 12) & "") = 0 Then
vArr(j, 13) = ""
Else

Select Case vArr(j, 12)
Case Is < 0.5: vArr(j, 13) = "Высокое": r = 1
Case Is > 1: vArr(j, 13) = "Низкое": r = 3
Case Is >= 0.5, Is <= 1: vArr(j, 13) = "Среднее": r = 2
End Select
End If


Но почему-то в результатах всё время пишется в независимости от числа - оценка - Низкое. Почему?

то есть если 0,35 - то выдает "Низкое", 0,66 - "Низкое"

Помогите, пожалуйста понять причину

[Dophin]

проблема не в коде.
скорее всего в самом значении vArr(j, 12)

попробуйте записать Select Case --vArr(j, 12)
или Select Case cdbl(vArr(j, 12))

[KNatalia]

А что означает Select Case --vArr(j, 12) и Select Case cdbl(vArr(j, 12))?

[EducatedFool]

Замените свой код на это:

Sub test()
    ' ... код ...
    If Len(vArr(j, 12)) = 0 Then
        vArr(j, 13) = ""
    Else
        Debug.Print vArr(j, 12), vArr(j, 12) * 10, vArr(j, 12) > 1, Val(vArr(j, 12)) > 1
        Select Case Val(vArr(j, 12))
            Case Is < 0.5: vArr(j, 13) = "Высокое": r = 1
            Case Is > 1: vArr(j, 13) = "Низкое": r = 3
            Case Else: vArr(j, 13) = "Среднее": r = 2
        End Select
    End If
End Sub

Потом скопируйте содержимое окна Immediate (открывается по нажатию Ctrl + G), и выложите на форум.

По идее, Ваш код верен, и все должно работать.

[KNatalia]

Если так записать, то во всех столбцах оценка пропадает вообще!
Как быть, помогите, пожалуйста

[SAS888]

А кто и как формирует массив? Возможно, что Вы не верно задаете разделитель целой и дробной части.
Так, если у Вс в Excel-е установлен разделитель "запятая", а массив формируется из значений с точками, то в результате выполнения Вашего макроса будет именно так, как Вы говорите.

[KNatalia]

Да в Excel запятая, а в коде точка. А как поменять в коде?

[Dophin]

в ексель и должна быть запятая, просто скорее всего Ваш vArr(j, 12) не воспринимается как число.

[SAS888]

Менять не нужно. В VBA всегда точка, а в Excel Может быть что угодно, но если установлена запятая, а в ячейке значение с точкой, то это будет текст и при сравнении его с числом возникнет Ваша ситуация.
Попробуйте на чистом листе заполнить диапазон "A1:T1" любыми значениями. Затем, меняя значения в ячейке "L1" выполнять макрос "Test". Увидите, что при вводе, например, значения "0,3" все правильно, а при вводе "0.3" результат не верный (при вводе числа с разделителем, отличным от установленного в Excel).

Sub Test()
    Dim j As Integer, vArr(), r As Integer
    vArr = [A1:T1].Value: j = 1
    MsgBox vArr(j, 12)
    If vArr(j, 12) = "" Then
        vArr(j, 13) = ""
    Else
        Select Case vArr(j, 12)
            Case Is < 0.5: vArr(j, 13) = "Высокое": r = 1
            Case Is > 1: vArr(j, 13) = "Низкое": r = 3
            Case Else: vArr(j, 13) = "Среднее": r = 2
        End Select
    End If
    MsgBox vArr(j, 13)
End Sub

P.S. Скажите, кто и как формирует массив - получите более точный ответ.

[KNatalia]

Как же тогда быть?