Страницы: 1
RSS
Проблема сравнения значения ComboBox и переменной
 
Добрый день.

у меня имеется некоторая переменная "numTbl"
которая присваивается значение ComandBox "numTbl = Me.cbTable.Value"
В cbTable вводятся числовые значения (порядковый номер, пример: 1 или 2 или 3 и т.д.)


Если при инициации формы использую такой код: то форма заполняется значениями:
Код
Private Sub UserForm_Initialize()

    arr = Sheets("Baza").Range("Baza").Value

    For i = 1 To UBound(arr, 1)
        If arr(i, 4) = "Активный" Then
            If arr(i, 7) Like "*Кальян:*" Then
                m = Split(arr(i, 7), "|")
                For j = 0 To UBound(m)
                    If m(j) Like "*Кальян:*" Then
                        Me.lbHook.AddItem m(j)
                    End If
                Next j
            End If
        End If
    Next i

End Sub

Если же в форму добавляю дополнительное условие "... And arr(i, 5) = numTbl", то форма остается пустой. Хотя вроде значения одинаковые.
В таблице в 5 столбце записаны порядковые номера (1, 2, 3 и т.д.)

Код
Private Sub UserForm_Initialize()

    arr = Sheets("Baza").Range("Baza").Value

    For i = 1 To UBound(arr, 1)
        If arr(i, 4) = "Активный" And arr(i, 5) = numTbl Then
            If arr(i, 7) Like "*Кальян:*" Then
                m = Split(arr(i, 7), "|")
                For j = 0 To UBound(m)
                    If m(j) Like "*Кальян:*" Then
                        Me.lbHook.AddItem m(j)
                    End If
                Next j
            End If
        End If
    Next i

End Sub


Прошу объяснить причину и помочь решить задачу.
 
Значит, условие  arr(i, 4) = "Активный" And arr(i, 5) = numTbl не выполняется
Страницы: 1
Наверх