死磕 Dictionary！ 关于字典排序的 最终方案！ 。。。

lixin_

请问,这是是使用的多列数组加入develop字典吗,传统字典只能两列,不知道用法,能否介绍一下,谢谢老大.

山中老人

lixin_ 发表于 2020-9-12 09:31
请问,这是是使用的多列数组加入develop字典吗,传统字典只能两列,不知道用法,能否介绍一下,谢谢老大.

下载 19 楼的附件吧！

里面【模块1】 有演示的Sub。照着试试就知道了！
里面的类模块，也有注释！
DevelopDictionary2 在默认情况下就是一个Dictionary，所有Dictionary的使用方法，对DevelopDictionary2都有效！
要使用多列，首先用 DevelopDictionary2.ColumnCount =X '设置列数
========================
    Dim dd As DevelopDictionary2
    Set dd = New DevelopDictionary2
    dd.ColumnCount = 4 '设置列数 （4列）
    ‘指定列名(可选)。如果未设置列名，就只能使用列号进行列操作。
    dd.ColumnName(1) = "ID"
    dd.ColumnName(2) = "姓名"
    dd.ColumnName(3) = "年龄"
    dd.ColumnName(4) = "学历"
    ’给 1 行（Key=1）的各列赋值
    dd.Item(1, "ID") = 11
    dd(1, "姓名") = "张三"
    dd.Item(1, "年龄") = 25
    dd.Item(1, "学历") = "初中"
    ’输出 1 行（Key=1）的各列的值
    Debug.Print dd(1, "ID")
    Debug.Print dd.Item(1, "姓名")
    Debug.Print dd.Item(1, "年龄")
    Debug.Print dd.Item(1, "学历")  
’给 2 行（Key=2）的各列赋值
    dd.Item(2, "ID") = 12
    dd.Item(2, 2) = "李四" ’使用【列号】进行 列操作
    dd.Item(2, "年龄") = 54
    dd.Item(2, 4) = "文盲"

    Call dd.Sort("Key")'按Key值排序（从小到大）
    Call dd.Sort("姓名",True)'按[姓名]排序（从大到小）
    Debug.Print dd.StringOut(Chr(13), ",")‘以字符串格式输出整个词典内容

nk0769

山中老人 发表于 2020-7-24 06:35
2020-07-24
没啥可更新的了，稍稍优化了点代码，增加了测试用属性.

DevelopDictionaryd-26.xls每个模块都运行了下都没反应,不懂怎么使用...
请问数据准备是哪个模块?还有excel最多不是才1百万行?

山中老人

nk0769 发表于 2020-9-13 08:45
DevelopDictionaryd-26.xls每个模块都运行了下都没反应,不懂怎么使用...
请问数据准备是哪个模块?还有ex ...

输出结果在【立即窗口】。


这个DevelopDictionaryd2 本来就不是专门给EXCEL准备的。

数据准备部分：

lixin_

山中老人 发表于 2020-9-13 08:01
下载 19 楼的附件吧！

里面【模块1】 有演示的Sub。照着试试就知道了！

老大,我的意思是使用您这个对于excel已有数据表格进行排序,像range直接赋给数组一样,就不是人为添加key和item

山中老人

lixin_ 发表于 2020-9-13 12:01
老大,我的意思是使用您这个对于excel已有数据表格进行排序,像range直接赋给数组一样,就不是人为添加key和 ...

将单元格的数据读取到字典中，再排序，排序完了重写入单元格就好了！
两个循环语句的事，很简单啊！
而且，EXCEL本身自带排序功能，不需要用到这个字典！