我在 Excel 用户表单中有一个组合框。按字母顺序排序的最简单方法是什么?它的值在 vba 中是硬编码的,新的值只是添加到底部,因此它们已经没有任何顺序。
目前正在使用用户表单,以便我们的用户可以将数据从我们的数据库导入到 Excel 中。组合框在那里,因此他们可以指定要导入的客户端数据。
最佳答案
在添加它们时,将它们与组合框中已有的值进行比较。 如果它们小于您遇到的项目,请更换该项目。 如果它们不小于,则继续前进,直到找到该项目小于的东西。 如果找不到该项目,则将其添加到末尾。
For X = 0 To COMBOBOX.ListCount - 1
COMBOBOX.ListIndex = X
If NEWVALUE < COMBOBOX.Value Then
COMBOBOX.AddItem (NEWVALUE), X
GoTo SKIPHERE
End If
Next X
COMBOBOX.AddItem (NEWVALUE)
SKIPHERE:
关于vba - 按字母顺序对组合框值进行排序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/860366/