[已解决]字典的运用范围？

2004098

请大神帮忙看下，我弄的这个计算公式，vba方面的，为什么奖金超过75000以上，就数据类型不符了？想知道字典的数据范围？请老师帮忙解决下。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-28 16:26

数组元素超过65536，就会报类型错误。
以前用transpose也碰到过这种情况。

跳转到最佳答案楼层

hwc2ycy

一个函数就能解决的事情。

2004098

hwc2ycy 发表于 2013-1-28 15:56
一个函数就能解决的事情。

怎么解决啊老师 请帮忙说下

hwc2ycy

寻高手做出最短的个税公式
http://www.excelpx.com/thread-198552-1-1.html

2004098

hwc2ycy 发表于 2013-1-28 16:01
寻高手做出最短的个税公式
http://www.excelpx.com/thread-198552-1-1.html

老师我不是问个税公式怎么写。。。和个税公式没多大关系

hwc2ycy

你这里报错，不是代码的问题。
应该是min对数组的处理限制上。
可能超了。

hwc2ycy

数组元素超过65536，就会报类型错误。
以前用transpose也碰到过这种情况。

hwc2ycy

测试，正常情况下，65536个

1. Sub test()
   
2.     Dim i&
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 1 To 65536
   
6.         dic(i) = i
   
7.     Next
   
8.     MsgBox Application.WorksheetFunction.Min(dic.keys)
   
9. End Sub

复制代码

hwc2ycy

65537，报错。

1. Sub test()
   
2.     Dim i&
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 1 To 65537
   
6.         dic(i) = i
   
7.     Next
   
8.     MsgBox Application.WorksheetFunction.Min(dic.keys)
   
9. End Sub

复制代码

2004098

hwc2ycy 发表于 2013-1-28 16:27
65537，报错。

老师说的我明白了，像这种情况，我要遍历所以数据，用什么方法比较好，超10万条以上的话。请老师给个方法