Добрый день. Имеется Combobox на форме, который должен быть заполнен числами от 0 до 31. Так же есть кнопка на форме, по которой я добавляю выбранные числа из этого комбобокса в ячейки Excel так, что в ячейках A пишется слово "Совпадение", а в ячейке B - выбранная цифра из комбобокса. Так вот задача следующего плана - необходимо после добавления чисел в ячейки убрать эти числа из Combobox, чтобы можно было добавлять только уникальные числа (без повторений).
Данный код для кнопки
Код |
---|
Private Sub CommandButton1_Click()
Dim lRws As Long
lRws = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & lRws).Value = "Совпадение"
Range("B" & lRws).Value = Spisok.Text
Range("A" & lRws + 1).Value = "Example text"
Range("B" & lRws + 1).Value = "Example text"
Unload UserForm1
End Sub
|
А с помощью этого кода я пытаюсь отфильтровать заполнение Combobox, но получается лишь для последнего числа. Подскажите пожалуйста в какую сторону копать и где ошибка..
Код |
---|
Private Sub UserForm_Activate()
For i = 0 To 31
For j = 1 To 500
If Range("A" & j).Value = "Совпадение" Then chislo = Range("B" & j).Value
Next
If chislo <> i Then Spisok.AddItem i
Next
End Sub
|