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

13782671637

lsc900707 发表于 2018-5-22 09:44
再次修改：

首先感谢版主大神不辞劳苦帮忙改写代码！为版主大力提携后进点赞！

   因为线路检修，我们这儿停了一天电，晚上8：30才通了电，怠慢版主了！

下面是对40楼附件问题的反馈：请看附件： 修改VBA过程代码 (2).zip (1.09 MB, 下载次数: 3)

2018-5-22 21:47 上传

点击文件名下载附件

  ，工作表0、1、2的K列是各表函数公式计算的结果显示,用于和J列作比较。

    1.以工作表《0》为例说明：通过J、K列的对比可以看出，J5:J452里代码计算结果全部正确。但J453:J814显示的结果与K列不同。
   &#10102;.通过K453的公式=IF(ROW()=5,"",IF($I453<>"",$E453-$E452,IF(ROW()=$H$2+1,$D$1-$E452,"")))可以看出， E列的最后数据是E452的4849，则K453=$D$1-$E452=4880-4849=31,代表工作表《0》最后数据，到目前《总表》最后数据E列的序号相差31，或者说，《总表》已经有31期未出现符合《0》条件的数型了。
   &#10103;.除了J453外，让J454:J814显示空白【因为E453:I814里没有数据】。
   2.工作表《1》和《2》的J列出现了和《0》同样的错误，请参照上面&#10102;、&#10103;的方法修改代码。

  3.如果把《0》、《1》、《2》换成其它的汉字名称，就会出现错误。这个问题怎么解决？应该修改哪部分代码？

   以上，就是代码的最终修改方案，再次麻烦版主了！

13782671637

恳请老师帮忙！

chxw68

替版主修改了一下。

lsc900707

13782671637 发表于 2018-5-22 22:36
恳请老师帮忙！

如果先前这样解释的话，就知道怎么修改了。
第二个问题。先前你要求的是根据总表的j 列数字来判断。如果确实表名不固定，那就只能用排除法了。
如：你有：总表、0、1、2、Sheet1、123这几个表，
If sht.Name <> "总表" And sht.Name <> "Sheet1" And sht.Name <> "123" Then

jjmysjg

没看明白要求目的

lsc900707

chxw68 发表于 2018-5-23 08:10
替版主修改了一下。

感谢褚老师百忙之中出手相救！

13782671637

chxw68 发表于 2018-5-23 08:10
替版主修改了一下。

老师：经测试，J列数据计算问题已圆满解决！


现在问题是：虽然工作表《0》、《1》、《2》可以任意修改名称，但如果需要增添工作表用于其他统计计算时，代码运行就会出现如上图显示的错误。
   怎样使代码只能在这三个指定名称的工作表里运行，无论这个工作簿里增加多少个其他工作表，都不会妨碍test代码的独立运行？

13782671637

lsc900707 发表于 2018-5-23 08:43
如果先前这样解释的话，就知道怎么修改了。
第二个问题。先前你要求的是根据总表的j 列数字来判断。如果 ...

If sht.Name <> "总表" And sht.Name <> "Sheet1" And sht.Name <> "123" Then？
版主大神：如果把工作表《0》、《1》、《2》修改名称为《三同》、《组三》、《组六》，怎样使代码只能运行在这三个指定名称的工作表里；无论这个工作簿里增加多少个其他工作表，都不会妨碍test代码的运行？

13782671637

chxw68 发表于 2018-5-23 08:10
替版主修改了一下。

老师：如果把工作表《0》、《1》、《2》修改名称为《三同》、《组三》、《组六》，怎样使代码只能运行在这三个指定名称的工作表里；无论这个工作簿里增加多少个其他工作表，都不会妨碍test代码的运行？

44楼的代码输入可以随意修改后三个工作表名称，但如果增加其它工作表，就会出现运行错误。请看截图：

chxw68

    For Each sht In Worksheets(Array("0", "1", "2"))
括号中的0、1、2就是工作表名称，修改这个就行了，增加、减少都行。