[已解决]怎么求字典 item的最大值 最小值？

jessylake

每个关键字的item是这个关键字排列序号，怎么找出最大值和最小值？

最佳答案

月排行榜 / 总排行榜

E了白了

2014-10-7 19:38

appplication.max 引用工作表函数，字典是关键字 和条目都是一维数组，可以用

跳转到最佳答案楼层

jessylake

或者说怎么判断我的一个序号是否在字典的item范围之内？

冠军欧洲2010

直接用MAX和MIN就行了。

E了白了

appplication.max 引用工作表函数，字典是关键字 和条目都是一维数组，可以用

su45

就按楼上的试试：
最大=Appplication.Max(d.items)
最小=Appplication.Min(d.items)

jessylake

su45 发表于 2014-10-7 19:55
就按楼上的试试：
最大=Appplication.Max(d.items)
最小=Appplication.Min(d.items)

谢谢，试过了，没问题

Sub Macro1()
    Dim i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 10
        d(i) = i
    Next
    MsgBox Application.Max(d.items())
End Sub