VBA中字典数据的排序

hongsea312

附件是有用到VBA字典的计算数据，把结果写到对应的单元格上。
但结果出来之后，没有排序，想增加一个排序的功能，按升序排。
请大神们指点。
出货检查表_20140313111125.rar (145.32 KB, 下载次数: 159)

2014-3-13 11:53 上传

点击文件名下载附件

liulang0808

数据生成后，对这些数据按照要求排序，不用字典排序吧？

hongsea312

不可以数据出来之后再排序。
因为会有多条数据。如果这时候一排序，位置就不对了。。。

doitbest

可以在一个临时表中排序，再将排序结果读入数据源中

hongsea312

doitbest 发表于 2014-3-13 14:21
可以在一个临时表中排序，再将排序结果读入数据源中

不解。。。该如何操作？

bluexuemei

排序不难，给你一个例子

1. Sub t()
   
2. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
3. arr1 = ojs.eval("[1,5,3,2,1].sort()")
   
4. Stop
   
5. End Sub

复制代码

doitbest

用原程序修改
Private Sub workbook_open()
'计算每天一天的最大，最小的LOTNO
Dim arr, brr, crr, d, d2, i&, j&

crr = [m2:p100]   '指定范围
ReDim arr(1 To UBound(crr), 1 To 1)
For i = 1 To UBound(crr)
    If crr(i, 4) = 1 Then   '当P列为1时，继续计算，否则退出
    Set d = CreateObject("scripting.dictionary")    ' 创建字典，用于日期变量的值
Set d2 = CreateObject("scripting.dictionary")       ' 创建字典，用于流水号变量的值
    s = s + 1: arr(s, 1) = crr(i, 1)

'For h = 1 To s
    x = Split(crr(i, 1), ";")                'F列为1时，对D列的值以";"为界进行分割
    For j = 1 To UBound(x)                  'j设为1开始，去掉第一个;的值，如果LOTNO串联中，第一个没有";"，j应改为0开始
        m = Left(x(j), 6): n = Val(Right(x(j), 5))              '分别取出日期及流水号
        If Not d.exists(m) Then                           '写日期变量写入字典
            d(m) = n
        Else
            If n < d(m) Then d(m) = n
        End If
        If Not d2.exists(m) Then
            d2(m) = n                               '写流水号变量写入字典
        Else
            If n > d2(m) Then d2(m) = n
        End If
    Next

ReDim brr(1 To d.Count, 1 To 2)
a = d.keys: b = d.items
For k = 0 To d.Count - 1
    brr(k + 1, 1) = a(k) & Format(b(k), "00000")
    brr(k + 1, 2) = a(k) & Format(d2(a(k)), "00000")
Next
[it1].Resize(d.Count, 1) = Application.Transpose(a)
[iu1].Resize(UBound(brr), 2) = brr
[iu:iv].Replace "0", "", 1
[it:iv].Sort Key1:=[it1], Order1:=xlAscending, Header:=xlNo
[it1].Resize(d.Count, 1).Copy Cells(i + 1, 2)
[iu1].Resize(UBound(brr), 2).Copy Cells(i + 1, "j")
[it:iv] = ""
End If                   '如果F列不等于1，退出进行下一循环
Set d = Nothing         '清空字典
Set d2 = Nothing
Next                '进行下一循环
End Sub

hongsea312

多谢doitbest

hongsea312

目前最小LOGNO，最大LOTNO是取当P列为1时，对应的M列的值中，按日期分类，第一天的最小，最大的值。
需要修正为：在前面的基础上，同一天里面连续的值。当其不连续时，需另起一行。
            J7  ,K7为原程序运行之后的值。J17-K18为希望达到的值。
            即在同一天里面，需要区分连续的最小，最大值。如果中间的断号，需再起一行。
出货检查表_2014031816442.rar (195.87 KB, 下载次数: 89)

2014-3-18 17:22 上传

点击文件名下载附件

740688321

bluexuemei 发表于 2014-3-13 14:56
排序不难，给你一个例子

你这是数组排序，字典怎么排序？