按要求修改VBA过程的J列公式代码

lsc900707

13782671637 发表于 2018-5-23 11:18
If sht.Name  "总表" And sht.Name  "Sheet1" And sht.Name  "123" Then？
版主大神：如果把工作表《0》 ...

如果这三个表名固定，就可以用穷举法：（你要能灵活运用这些方法的）
For Each sht In Sheets（array("三同","组三","组六"))
      With sht

lsc900707

13782671637 发表于 2018-5-23 11:41
老师：如果把工作表《0》、《1》、《2》修改名称为《三同》、《组三》、《组六》，怎样使代码只能运行在 ...

参考附件：

13782671637

chxw68 发表于 2018-5-23 12:06
For Each sht In Worksheets(Array("0", "1", "2"))
括号中的0、1、2就是工作表名称，修改这个就行了 ...

老师：经反复测试，代码非常完美地实现了我的全部设想！太谢谢老师了！

13782671637

lsc900707 发表于 2018-5-23 12:22
参考附件：

版主老师：代码里缺少了J列最后一个单元格里$D$1-E列最后序号这一步。

玉阳山人

lsc900707 发表于 2018-5-23 12:22
参考附件：

版主：假如在《总表》I4881里输入70，J4881则为“0”，数据应该提取到《三同》里的E453:I453里，J454里应该显示$D$1-E453=4881-4881=0才对；同理《组三》、《组六》的J列也出现了这个问题。《组三》J2132应该等于4【D1-E2131】；《组六》J2306应该等于1【D1-E2305】.


还请版主修改此处代码。

lsc900707

13782671637 发表于 2018-5-23 12:46
版主老师：代码里缺少了J列最后一个单元格里$D$1-E列最后序号这一步。

抱歉，传错附件。以这份为准：

玉阳山人

lsc900707 发表于 2018-5-23 13:03
抱歉，传错附件。以这份为准：

嗯。这次完全正确！运算速度很快！谢谢版主几天来的耐心帮助，使我对sub有了更直观的了解！祝您好人一生平安！

lsc900707

玉阳山人 发表于 2018-5-23 12:57
版主：假如在《总表》I4881里输入70，J4881则为“0”，数据应该提取到《三同》里的E453:I453里，J454里应 ...

刚才附件传错。以57楼的代码为准。请再行测试。

玉阳山人

lsc900707 发表于 2018-5-23 13:11
刚才附件传错。以57楼的代码为准。请再行测试。

已测试，完全正确！谢谢版主！

lsc900707

玉阳山人 发表于 2018-5-23 13:10
嗯。这次完全正确！运算速度很快！谢谢版主几天来的耐心帮助，使我对sub有了更直观的了解！祝您好人一生 ...

解决了问题就好。也祝你早日康复吧。