[函数讨论系列1] Index返回内存数组的探讨

apolloh · 发表于 2005-4-15 17:20

我试了的确可以，那这样也可以少一个应用限制了：）

apolloh · 发表于 2005-4-16 09:36

经过大家讨论后，重新修改整理，附件更新于顶楼。

glober609 · 发表于 2005-4-29 13:28

以下是引用apolloh在2005-4-14 18:37:00的发言：
index返回内存数组有什么用呢？

怎么解压不了？很想看看！

[此贴子已经被作者于2005-4-29 13:32:44编辑过]

gdliyy · 发表于 2005-5-8 11:38

终于找到了原来讨论的老帖子，黄兄可以看看的。。。

http://club.excelhome.net/dispbb ... id=48251&skin=0

xcf007 · 发表于 2005-7-10 08:18

不大懂

xml00 · 发表于 2005-11-29 23:35

这里提供一个Index的实际应用实例。这是香港的AhMan先生设计的为汉字自动注音的工具，如果不进行多音字校正的话，只用几秒钟就能对几万个词条编码，比其它的编码工具要快很多。

http://free.ys168.com/?xml00老徐书斋

请在“阿门拼码器新版”目录中下载。

昨天刚发现这个网站，深感受益匪浅。

小傻瓜 · 发表于 2005-11-30 08:34

哇，想不到函数还可以这么用！

想请教xm100先生,测试函数速度您用什么方法呀？

我都是看工作表打开速度，全凭目测～～

谢谢！

xml00 · 发表于 2005-11-30 09:03

因为要校正多音字，vlookup公式要搜索4万多条含多音字的词，非常耗时；注音经常要用10分钟以上的时间。所以我测试时间的方法很笨，就是打开电脑右下角的时钟，看妙表开始计时。

刚刚向AhMan先生请教，明白了注音速度的制约因素，这个玩意儿的速度问题已经基本解决，尚未制作相应的快速版本。我想用简练的公式来表示，但一直不太会。

xml00 · 发表于 2005-11-30 09:06

AhMan先生的这个工具大概在2003年以前就有了。这里恰恰正在找Index的应用实例，这是最好不过的范例了。

小傻瓜 · 发表于 2005-11-30 10:28

试试看这段代码。也许可以测试时间。VB没学几天凑和用还是可以的。

Sub myti()
Dim time1&, time2&, mytime&, i%, aver&
i = 2
time1 = Timer
For i = 1 To i Step 1
Application.Calculate
Next i
time2 = Timer
mytime = (time2 - time1) * 1000
aver = mytime / (i - 1)
MsgBox "测试" & i - 1 & "次：用时" & mytime & "毫秒! 平均用时" _
& aver & "毫秒"
End Sub

		自动登录	找回密码
密码			免费注册