перегруппировать результат одного списка в другой список vba excel - PullRequest
0 голосов
/ 19 мая 2019

Я показал свои данные в userfom, используя listview, и теперь я хочу сделать простой поиск.

Используя lvwSubItem, мне удалось выполнить поиск по всему списку, но, как, например, страна, у меня есть много записей, касающихся страны.

Я хотел бы сгруппировать все результаты в другом просмотре списка, но понятия не имею, ищу его, но тщетно.

Мой код:

Private Sub search_Click()
    Dim itm As MSComctlLib.listitem

    'Set itm = lists.FindItem(champ.Text, lvwSubItem)
    'for partial search use this:
    Set itm = lists.FindItem(champ.Text, lvwSubItem, , lvwPartial)
    If Not itm Is Nothing Then
        itm.EnsureVisible
        itm.Selected = True
        lists.SetFocus
    End If

Моя пользовательская форма похожа на:

enter image description here

...