如何修改表格里面的代码

hbhs2022 · 发表于 2023-6-6 12:46

吴中泉发表于 2023-6-6 12:42
第一个问题因为删除四列,数据有错位,代码修改后,还要修改条件格式,所以动了颜色和底纹.
已对你讲的这两 ...

谢谢你！你会不会用字典代码？

吴中泉 · 发表于 2023-6-6 12:53

hbhs2022 发表于 2023-6-6 12:41
正确。对于懂代码的人来说很容易，谢谢你！用字典代码是否速度要快些？

我也是不太懂代码,摸索着弄的

如果觉得条件格式设置的颜色不好看,你自己重新设置一下.

这个不要用字典,最多两重循环,速度很快的,都是几十毫秒内的时长.
要说这个代码数据量大的话,就像昨天我给你写的双色球的代码,上万行的数据话,代码也只在毫秒内
要说主要耗时还是在数组数据赋值给单元格区域,占一大半时间,亲测.
比如这句:[H4].Resize(UBound(brr), 50) = brr

吴中泉 · 发表于 2023-6-6 13:01

hbhs2022 发表于 2023-6-6 12:46
谢谢你！你会不会用字典代码？

当然会,你看看我的发的主题帖,有我学习过程中的练习代码.
字典要用在适合他的地方,你这两次的代码不需要.
字典主要用在查重\去重\查找\合并\汇总\等等等好多方面.
用好能事半功倍.

hbhs2022 · 发表于 2023-6-6 13:17

吴中泉发表于 2023-6-6 13:01
当然会,你看看我的发的主题帖,有我学习过程中的练习代码.
字典要用在适合他的地方,你这两次的代码不需要 ...

刚才把你的代码修改了，用在七星彩上面，后面的图表不知道如何修改？
请帮我看看。谢谢！

hbhs2022 · 发表于 2023-6-6 14:41

排列5中下面这句代码
ReDim brr(1 To UBound(arr) - 1, 1 To 51),51可以改成50，为什么要51？不明白。

吴中泉 · 发表于 2023-6-6 14:59

hbhs2022 发表于 2023-6-6 13:17
刚才把你的代码修改了，用在七星彩上面，后面的图表不知道如何修改？
请帮我看看。谢谢！

不知道你什么意思?
中间这"七星彩开奖号码遗漏图"不是套用的很好吗?
新"七星彩开奖号码遗漏图"什么意思?

吴中泉 · 发表于 2023-6-6 15:17

hbhs2022 发表于 2023-6-6 14:41
排列5中下面这句代码
ReDim brr(1 To UBound(arr) - 1, 1 To 51),51可以改成50，为什么要51？不明白。

早回复了,还在审核中,在路上,快到了.
因为你的数据区总共有50列,所以定义数组brr二维长度50,因下标是从1开始的,所以到51结束

hbhs2022 · 发表于 2023-6-6 15:37

吴中泉发表于 2023-6-6 15:17
早回复了,还在审核中,在路上,快到了.
因为你的数据区总共有50列,所以定义数组brr二维长度50,因下标是从1 ...

我发现改50也没有出错。

吴中泉 · 发表于 2023-6-6 15:38

hbhs2022 发表于 2023-6-6 13:17
刚才把你的代码修改了，用在七星彩上面，后面的图表不知道如何修改？
请帮我看看。谢谢！

不知道这样可算弄好了,若不行,你自己再研究一下

吴中泉 · 发表于 2023-6-6 15:40

吴中泉发表于 2023-6-6 15:38
不知道这样可算弄好了,若不行,你自己再研究一下

新图表.zip (736.36 KB, 下载次数: 5)

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

[已解决] 如何修改表格里面的代码