vba - 按字母顺序对组合框值进行排序

标签 vba sorting excel

我在 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/

相关文章:

excel - 自定义工具栏中的文本框

c++ - BinarySearch 返回它所属位置的索引

html - VBA:从HTML表格中的TD的innerhtml中提取href的有效方法

java - 使用不同的键对列表进行排序

html - 通过 Excel VBA 使用 JS 登录网站

excel - Perl Spreadsheet::ParseExcel 无法解析并返回 undef

vba - 将多行文本框值与 Excel 行值进行比较,然后在 textbox2 中输出相同的值

vba - Excel VBA - 选择到列末尾减去两行

vba - excel vba中最大值的地址

node.js - Mongoose 模型中的元排序