请教：能否使ComboBox自动排序

henterwu

我做了个类似“自动图文集”功能的ComboBox作常用词汇表用，词汇一多查找困难，只好将其导出，到Excel排序后再导入，不方便得很。

请教高手有何良方？

谢谢！！！

守柔

我想应该有二种方法来实现，一是通过WORD的表格中进行排序一是通过COMBOX的列表项目进行比对后排序，不知楼主的具体情况建议上传一个附件或者请楼主选择觉得更合适的方式。

henterwu

我想1法方便些，2法不知如何操作，何叫“比对后排序”。

请老师讲一下思路好吗，谢谢！！！

守柔

第一种方法是将你的ADDITEM（词汇，此时未生成）的内容，引用到表格中该表格可以是在活动文档中插入也可以新建的（add) 的文档中插入然后按要求进行排序排序结束后，再赋值给组合框的ADDITEM，然后删除此表格。

第二种方法，是将所有additem（此时已生成，最好是未生成前），通过两次循环将比较字符串大小将最大的或者最小的留在最后重新赋值给组合框，也可以在生成后循环再删除相应的部分ITEM。此法可参：

Sub Sorting() Dim sCount As Integer, i As Integer, j As Integer Application.ScreenUpdating = False sCount = Worksheets.Count If sCount = 1 Then Exit Sub For i = 1 To sCount - 1 For j = i + 1 To sCount If Worksheets(j).Name < Worksheets(i).Name Then Worksheets(j).Move Before:=Worksheets(i) End If Next j Next i End Sub

henterwu

不好意思，我没有讲清楚。

我的整个过程是：

在Word中有多个Combo应用于不同文档的应用，有“Slection.Text=Combo.Add”按钮、“TypeText=combo.Text”、导出、导入等按钮。

用循环将无序item导出到Word（Text & chr(13)）；

复制到Excel的某一表，排序后复制到Word表格

最后一一导入已经清空的Combo。

理想的结果是每插入一个item，整个List会自动按“笔画”或“拼音”排序（困难所在）。

不知有否可能实现。

守柔

我想还是请henterhu兄上传较为合适多说并不一定有益请详细把你的要求表明即可如果不方便上传可发至我的HOTMAIL中。

henterwu

文档在单位，周一发给你。

非常感谢你的热情， Do While True 感谢 ＝ 感谢 ＋1 NoEnd

henterwu

守柔老师，邮件已发出，请您帮忙看一下。

谢谢！！！

守柔

to henterwuk兄：

以发至邮箱，请查收。如有问题，此处多有联系与反馈。

henterwu

来信已收到，十分感谢您的辅导。

对于您的建议我正在修改，

还想请教：如何保留“复制文字”的格式，以后“粘贴”是使用，这是否要多加个List？

再次感谢！！！

[此贴子已经被作者于2004-9-7 13:39:16编辑过]