会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 源码 > 作品展示 > Excel作品 > 正文

使用动态数组完成VBA中的四则运算

时间:2006-10-30 23:06 来源:本站原创 作者:佚名 阅读:
软件类型:国产软件 授权方式:免费版 界面语言:英文 软件大小:359 KB 文件类型:其它 运行环境:Win9x/NT/2000/XP/2003 软件等级:☆☆☆☆☆ 发布时间:2006-10-30 插件情况:无插件,请放心使用。 下载次数:
软件介绍:

[upload=rar]viewFile.asp?ID=65[/upload]使用过大型excel工作表的朋友都深有体会,过多的使用函数会严重降低数据的运算效率.这时候可能会考虑使用VBA .
这个附件中的代码完成的是最普通的四则运算,他比普通的循环要快20倍.
在VBA中使用数组,速度确实是快.

发现改用cells方法后还可以提高一点点速度.
Private Sub CommandButton1_Click()    Dim arr1(), arr2(), arr3()    Dim i As Long, k As Long, h As Single    h = Timer        k = Cells(65536, 1).End(xlUp).Row        ReDim arr1(1 To k - 1, 1 To 1)    arr1 = Range(Cells(2, 1), Cells(k, 1))    ReDim arr2(1 To k - 1, 1 To 1)    arr2 = Range(Cells(2, 2), Cells(k, 2))    ReDim arr3(1 To k - 1, 1 To 1)            For i = 1 To k - 1            arr3(i, 1) = arr1(i, 1) + arr2(i, 1) '根据需要把加号换成别的运算符号        Next i    Range(Cells(2, 3), Cells(k, 3)) = arr3        MsgBox Timer - h & "秒"End Sub

顶一下
(0)
0%
踩一下
(0)
0%
下载地址:
注意事项:

☉推荐使用第三方专业下载工具下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。

推荐软件
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: