为C列自定义函数的代码运算提速

13782671637

zopey 发表于 2018-6-15 17:15
Sub 按钮1_Click()
Columns("d:d").ClearContents
Dim arr, k0, brr(), crr(), drr(), frr()

老师：如图：当修改A6以下单元格内容时，出现错误。

zopey

个人理解：
1、十位 、个位 是分开去找 不同码的 ，不需要绑定在一个单元格，
2、历史数据 按行倒推 逐个分析，
3、函数参数 为数组 速度未知 ，不如直接用 sub 执行。

13782671637

zopey 发表于 2018-6-15 17:22
个人理解：
1、十位 、个位 是分开去找 不同码的 ，不需要绑定在一个单元格，
2、历史数据 按行倒推 逐个 ...

不明白怎么出现41楼的错误？

zopey

13782671637 发表于 2018-6-15 17:24
不明白怎么出现41楼的错误？

If brr(i, 1) <> "" OR brr(i, 2) <> "" Then

上面这句 修改如下

If brr(i, 1) <> "" And brr(i, 2) <> "" Then

13782671637

zopey 发表于 2018-6-15 17:31
If brr(i, 1)  "" OR brr(i, 2)  "" Then

上面这句 修改如下

谢谢老师：这次完全正确了！

13782671637

冷码分析.zip (865.16 KB, 下载次数: 0)

2018-6-15 18:01 上传

点击文件名下载附件

zopey 发表于 2018-6-15 17:31
If brr(i, 1)  "" OR brr(i, 2)  "" Then

上面这句 修改如下

以蓝填充按钮“冷码”确定公式所在列，B列为数据源1，E列为数据源2，我想在蓝色按钮所在的G列【按钮可以在数据源右边的任意列】，G1为指定需要计算的数据源，如果G1输入B,计算B列的冷码；如果G1输入E,则计算E列的冷码。那么，又该怎样修改代码？

13782671637

zopey 发表于 2018-6-15 17:31
If brr(i, 1)  "" OR brr(i, 2)  "" Then

上面这句 修改如下

冷码分析.zip (865.16 KB, 下载次数: 0)

2018-6-15 18:03 上传

点击文件名下载附件

zopey

被你 “=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数” 的 规则 误导了：
去求 k1=2， k2=2的  对应的数字   再用 3 减。

更好的思路是 ：求  k1=3， k2=3 对应的 数字，然后直接出 冷码。

至于 完善代码 ，你看懂了 再看着自己 改吧。

13782671637

zopey 发表于 2018-6-15 18:24
被你 “=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数” 的 规则 误导了：
去求 k1=2， k2=2 ...

真是对不起！纯属我语言表达能力有限。还望老师不吝赐教，给予帮忙为盼！

13782671637

zopey 发表于 2018-6-15 18:24
被你 “=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数” 的 规则 误导了：
去求 k1=2， k2=2 ...

老师：我原先一直是应用函数公式来着，只是今年春天开始，觉得函数公式对于一些复杂的统计计算，要么速度慢，要么无能为力，才转向VBA；直到现在，只能算是站在门槛前，逐步体会到了VBA的强大和无所不能！但限于初学，绝大多数语法都不会，还请老师忙里偷闲，帮忙完善代码则个。学生叩谢之至！