Заполнение списка в пользовательской форме путем поиска определенного слова в таблице Excel - PullRequest
Новая
       5

Заполнение списка в пользовательской форме путем поиска определенного слова в таблице Excel

0 голосов
/ 22 мая 2018

Я пытаюсь создать пользовательскую форму, которая будет заполняться путем нахождения поля, содержащего слово "Lisa", а затем с помощью функции смещения добавить содержимое ячейки ниже в мой список.

Только мой текущий кодпоказывает список, но без содержания: 

Sub Lab_ClearProcess()

'look for "Lisa"
Dim rngFound As Range
With ActiveSheet.cells
    Set rngFound = .Find("Lisa", LookIn:=xlValues)
    If Not rngFound Is Nothing Then
        'something is found
        'select box in row below
        'display text in list box
        ActiveCell.Offset(1, 0).Select
        UF_ClearForm.ListBox1.AddItem
    Else
        'nothing found, show text box saying "No Processes can be found"
        MsgBox "No Processes can be found"
    End If
End With

UF_ClearForm.Show

End Sub

Любая помощь будет принята с благодарностью:)

...