关于批量数据单户打印和批量打印的方法

清风竹-

百读谷歌 发表于 2023-4-14 21:07
你好大神，真的抱歉。又遇到两个小问题。。。。劳烦您再给看看。。。

测试一下。

百读谷歌

清风竹- 发表于 2023-4-15 09:35
测试一下。

老师你好，测试又发现两个小问题，希望能帮忙再修复下，不好意思呀。。麻烦你了。。
表格上有详细说明。

百读谷歌

清风竹- 发表于 2023-4-15 09:35
测试一下。

不好意思大神，劳烦再给看看，如果懒得继续费神，请帮忙修复第一个bug好吗，就是把那个当Q列单元格是空白的时候点击检查数据会自动计算Q列金额的功能去掉，保持原单元格的公式就好，不用自己计算，因为有时候的金额是手动输入的，自动计算会和原表格的金额对不上。

清风竹-

百读谷歌 发表于 2023-4-17 10:31
不好意思大神，劳烦再给看看，如果懒得继续费神，请帮忙修复第一个bug好吗，就是把那个当Q列单元格是空白 ...

  将  Sub 检查数据()   中的这句    Cells(j, i + 10) = --Mid(ss3, 1, le) * a(j, i - 2)    删除。（大约在33行）

百读谷歌

清风竹- 发表于 2023-4-17 11:14
将  Sub 检查数据()   中的这句    Cells(j, i + 10) = --Mid(ss3, 1, le) * a(j, i - 2)    删除。（ ...

谢谢大神，删除后不再计算金额了。但是没有弹窗警告"数据空白”，修改哪个代码可以让他实现和其他数据列一样有空白值弹窗警告呢?

百读谷歌

清风竹- 发表于 2023-4-17 11:14
将  Sub 检查数据()   中的这句    Cells(j, i + 10) = --Mid(ss3, 1, le) * a(j, i - 2)    删除。（ ...

大神能再看看这个功能要改哪里代码实现吗？实在不好意思，应该是最后一次改了，已经基本完美了。就是删除代码后Q列不再计算金额，但是Q列也没有数据空白弹窗警告提示，想加上Q列空白数据警告的功能。请问这个需要改哪里实现？

清风竹-

百读谷歌 发表于 2023-4-17 11:31
谢谢大神，删除后不再计算金额了。但是没有弹窗警告"数据空白”，修改哪个代码可以让他实现和其他数据列 ...

请测试一下，本次改动较多。

百读谷歌

清风竹- 发表于 2023-4-17 14:48
请测试一下，本次改动较多。

非常感谢，实在抱歉劳烦大神你改了这么多次，但是这次有个bug是每次打印都会弹出这个弹窗，这个bug比较麻烦呀，请大神再修复这个bug，谢谢呀。

无雨谷

删除这一句：MsgBox "打印"

百读谷歌

百读谷歌 发表于 2023-4-17 15:31
非常感谢，实在抱歉劳烦大神你改了这么多次，但是这次有个bug是每次打印都会弹出这个弹窗，这个bug比较麻 ...

对比了两次的代码，打印那一块代码好像有个引号的位置不同，把引号的位置改到上面好像就没这个弹窗了，不知道是不是因为这个原因。

      '  MsgBox "打印"
            ActiveWindow.SelectedSheets.PrintOut  ''''''打印语句 ActiveWindow