[第24问]请帮我把表格中的函数改写成VBA代码

hbhs2022 · 发表于 2023-7-17 09:10

本帖最后由 hbhs2022 于 2023-7-17 20:42 编辑

见表格说明。

WANT-T · 发表于 2023-7-17 14:35

感谢分享，祝您生活愉快，再见

吴中泉 · 发表于 2023-7-17 20:33

花了一点时间，把公式转成VBA，请下载测试

图表1.rar (41.47 KB, 下载次数: 27)

hbhs2022 · 发表于 2023-7-17 20:42

吴中泉发表于 2023-7-17 20:33
花了一点时间，把公式转成VBA，请下载测试

你真厉害，测试完毕，非常正确。谢谢！把辅助列删掉，写代码可能有点难度。

吴中泉 · 发表于 2023-7-17 20:44

hbhs2022 发表于 2023-7-17 20:42
你真厉害，测试完毕，非常正确。谢谢！把辅助列删掉，写代码可能有点难度。

你可选择把辅助列隐藏掉，也不影响美观

hbhs2022 · 发表于 2023-7-17 20:48

吴中泉发表于 2023-7-17 20:44
你可选择把辅助列隐藏掉，也不影响美观

我准备重新整理一下。

titi012 · 发表于 2023-7-18 10:54

我是VB新手，学着做一下。

hbhs2022 · 发表于 2023-7-18 12:35

titi012 发表于 2023-7-18 10:54
我是VB新手，学着做一下。

做着不错，就是有点卡机。还有把我表格改变了（字体加粗了，底纹也改变了，遗漏值字体颜色也变了）。谢谢你！

吴中泉 · 发表于 2023-7-18 18:55

hbhs2022 发表于 2023-7-18 12:35
做着不错，就是有点卡机。还有把我表格改变了（字体加粗了，底纹也改变了，遗漏值字体颜色也变了）。谢谢 ...

他的算法和语法很新颖,至少我是这么看的,体现了VB的特点,不过也不很好理解,代码阅读我感觉有点吃力.
另外,他不知道楼主你已用条件格式设置了底纹和字体及颜色,另外编写了这一部分代码,也有点BUG,不合你意.
有点卡是正常的,因为他用了大量的直接操作单元格对象的代码.当你数据多时(上万行)会卡.

titi012 · 发表于 2023-7-20 17:07

吴中泉发表于 2023-7-18 18:55
他的算法和语法很新颖,至少我是这么看的,体现了VB的特点,不过也不很好理解,代码阅读我感觉有点吃力.
另 ...

说的非常有道理！
这个要改进！
有空我学着直接用数组来做一下。

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

[已解决] [第24问]请帮我把表格中的函数改写成VBA代码