Добрый день.
у меня имеется некоторая переменная "numTbl"
которая присваивается значение ComandBox "numTbl = Me.cbTable.Value"
В cbTable вводятся числовые значения (порядковый номер, пример: 1 или 2 или 3 и т.д.)
Если при инициации формы использую такой код: то форма заполняется значениями:
Если же в форму добавляю дополнительное условие "... And arr(i, 5) = numTbl", то форма остается пустой. Хотя вроде значения одинаковые.
В таблице в 5 столбце записаны порядковые номера (1, 2, 3 и т.д.)
Прошу объяснить причину и помочь решить задачу.
у меня имеется некоторая переменная "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 |
Прошу объяснить причину и помочь решить задачу.