Question

我是一名IT爱好者，但我对编程或VBA不太满意。作为一个辅助项目，我正在编译一些数据，并希望使用户友好。我是论坛的新手，所以欢迎任何建议。

我有一个带有列表框的Userform，它有一个很大的城市列表，但是列表是未排序的。我知道我可以进入最后一页，我将国家资本列表连接到列表框并直接在工作表中对列进行排序，但这会破坏我的国家/地区列表，所以我想在Userform列表框中对列表进行排序，有没有办法做到这一点？

我还希望能够在Userform本身中添加一个Userform'find'功能，就像我已经这样做了一样，但是我不确定如何尝试使用它，尽管你尝试了一些代码，但是如果你做了，我就失败了知道，那么听到任何建议都会很棒，谢谢你。

请在下面的链接中找到描述目标和我目前的代码的图片。

文件：

https://www.sendspace.com/file/d4iaui

Sub Listb(target)
Location.ListBox1.List = Range("countrycapital").Value

For j = 0 To Location.ListBox1.ListCount - 1
   Location.ListBox1.Selected(j) = False
Next j
currentrow = target.Row
'Location.Cells(19, 2) = Sheets("Practice List").Cells(target.Row, 3)
locval = target & ","
k = 0
For i = 1 To Len(locval)
Length = Abs(k - Application.WorksheetFunction.Search(",", locval, i))
Values = Mid(locval, i, Length - 1)
For j = 0 To Location.ListBox1.ListCount - 1
    If Location.ListBox1.List(j) = Values Then
        Location.ListBox1.Selected(j) = True
        GoTo nxt
    End If
Next j
nxt:
i = Application.WorksheetFunction.Search(",", locval, i)
k = i
Next i
Location.Show
End Sub

Sub newlocation()
Location.ListBox1.List = Range("countrycapital").Value

For j = 0 To Location.ListBox1.ListCount - 1
   Location.ListBox1.Selected(j) = False
Next j

Location.Show
End Sub

Private Sub CommandButton1_Click()
Call ThisWorkbook.checkcriteria
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub ListBox1_Click()

End Sub
Private Sub UserForm_Initialize()
Dim vaItems As Variant
Dim i As Long, j As Long
Dim vTemp As Variant

Me.ListBox1.AddItem "B"     'these new added values show on the userform
Me.ListBox1.AddItem "A"     ' instead, I would like the original Listbox1...
Me.ListBox1.AddItem "D"     ' ...incorporated within the sort function
Me.ListBox1.AddItem "C"

'Put the items in a variant array
vaItems = Me.ListBox1.List

'Steal code from John Walkenbach’s Excel Power Programming
'with VBA to sort the array
For i = LBound(vaItems, 1) To UBound(vaItems, 1) - 1
    For j = i + 1 To UBound(vaItems, 1)
        If vaItems(i, 0) > vaItems(j, 0) Then
            vTemp = vaItems(i, 0)
            vaItems(i, 0) = vaItems(j, 0)
            vaItems(j, 0) = vTemp
        End If
    Next j
Next i

'Clear the listbox
Me.ListBox1.Clear

'Add the sorted array back to the listbox
For i = LBound(vaItems, 1) To UBound(vaItems, 1)
    Me.ListBox1.AddItem vaItems(i, 0)
Next i
End Sub



Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,     ByVal X As Single, ByVal Y As Single)
HookListBoxScroll Location, Location.ListBox1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UnhookListBoxScroll
End Sub

Answer 1

我的2美分： - 为了对事物进行排序，我通常使用.Net Sort函数。有些可以通过Com Wrapper访问：CreateObject（＆＃34; System.Collections.ArrayList＆＃34;） - 这个对象有一个.Contains函数，可以被Find函数使用。希望这有帮助！

Userform Listbox Excel的排序功能（升序）

1 个答案: