[已解决]【求教】Application.Large里面怎么逐个写数据

xdwy81129

Set zd = CreateObject("scripting.dictionary")
zd其中有如下内容：zd("你")，zd("我") ，zd("他") ，zd("V")， zd("B") ， zd("A")  ， zd("问题")， zd("学习") .......
对应的item有数据的

我只求这4个字典（ zd("他") ， zd("V")， zd("B") ， zd("A")  ）对应的第2大的值，这里的4个字典内容我怎么写到下面的公式呢？
谢谢赐教


msgbox Application.Large(这里怎么放入单个单个的字典,2)

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-26 18:04

1. msgbox Application.Large(array(zd("他"),zd("V"),zd("B"),zd("A")),2)

复制代码

跳转到最佳答案楼层

hwc2ycy

1. msgbox Application.Large(array(zd("他"),zd("V"),zd("B"),zd("A")),2)

复制代码

hwc2ycy

1. Sub test()
   
2.     Dim dic As Object
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     dic.comparemode = vbBinaryCompare
   
5.     Dim arr, a, str$
   
6.     arr = Array("他", "V", "B", "A")
   
7.     For Each a In arr
   
8.         dic(a) = Rnd() * 1000 \ 1
   
9.         str = str & dic(a) & ","
   
10.     Next
    
11.     Debug.Print str
    
12.     MsgBox WorksheetFunction.Large(Array(dic("他"), dic("V"), dic("B"), dic("A")), 2)
    
13. End Sub

复制代码

hwc2ycy

1. MsgBox WorksheetFunction.Large(dic.items, 2)

复制代码

上面的，最后这样也可以。