按指定条件连接数据，指定位置显示结果

WYS67

lss001 发表于 2018-10-3 22:17
把→Int(k / rn) * rn
改为→k

已修改测试：显示结果都完全正确！再次谢谢老师！祝老师晚安！

WYS67

lss001 发表于 2018-10-3 22:17
把→Int(k / rn) * rn
改为→k

老师：刚才那种改法结果就都正确啊。也测试了把→Int(k / rn) * rn   改为→k  ，显示的结果也都正确。老师：我有些无所适从了--从结构严谨，结果正确，运行平稳方面考虑，到底哪个更好些？

lss001

以最后修改为准

WYS67

lss001 发表于 2018-10-3 23:03
以最后修改为准

老师：是不是下面的代码不能嵌套自定义函数？我试着嵌套 CONTXT，结果显示错误。
            Case "CONTXT": br(dr(i, 2), 1) = Application.Contxt(cr)

这是自定义函数CONTXT，用于文本合并：
Function CONTXT(ParamArray args() As Variant) As Variant
    Dim tmptext As Variant, i As Variant, cellv As Variant
    Dim cell As Range
    tmptext = ""

    For i = 0 To UBound(args)
        If Not IsMissing(args(i)) Then
            Select Case TypeName(args(i))
            Case "Range"
                For Each cell In args(i)
                    tmptext = tmptext & cell
                Next cell
            Case "Variant()"
                For Each cellv In args(i)
                    tmptext = tmptext & cellv
                Next cellv
            Case Else
                tmptext = tmptext & args(i)
            End Select
        End If
    Next i

    CONTXT = tmptext
End Function

WYS67

                 Select Case UCase(b): Case"SUMIF", "COUNTIF","CONTXT", "JGHS": er(j * rn - rn + 1, 2) = i: End Select
            Case "CONTXT": br(dr(i, 2), 1) = Application.CONTXT(Range(Cells(g, rng.Column), Cells(er(i, 2) + 4, rng.Column)), c)


CONTXT的代码在49楼，已加载宏。计算结果显示#VALUE!错误
，会是什么原因？

WYS67

lss001 发表于 2018-10-4 19:21
去掉→,c
改为→Case "CONTXT": br(dr(i, 2), 1) = Application.CONTXT(Range(Cells(g, rng.Column), Ce ...

去掉→,c  后，还是出现#VALUE!错误.CONTXT也没有问题，一开始时   我写成         Case "CONTXT": br(dr(i, 2), 1) = Application.Contxt(cr)     显示错误，才改成             Select Case UCase(b): Case"SUMIF", "COUNTIF","CONTXT", "JGHS": er(j * rn - rn + 1, 2) = i: End Select
            Case "CONTXT": br(dr(i, 2), 1) = Application.CONTXT(Range(Cells(g, rng.Column), Cells(er(i, 2) + 4, rng.Column)), c)


仍然显示错误！

现在，去掉→,c   还是显示错误。

WYS67

lss001 发表于 2018-10-4 19:33
去掉→,c以及Application.
改为→Case "CONTXT": br(dr(i, 2), 1) = CONTXT(Range(Cells(g, rng.Column) ...

普大喜奔！这次能够正确显示结果了！感谢老师！

WYS67

lss001 发表于 2018-10-4 19:53
重新看了一下Contxt自定义函数声明了数组变量
所以为了提高速度，应改为→
Case "CONTXT": br(dr(i, 2),  ...

特别佩服老师一丝不苟、追求极致的严谨态度！Case "CONTXT": br(dr(i, 2), 1) = CONTXT(cr)  已测试，速度明显有提高

WYS67

lss001 发表于 2018-10-3 22:17
把→Int(k / rn) * rn
改为→k

老师：看看http://club.excelhome.net/forum. ... 775&pid=9677230版主写的代码，2楼的代码出现了--当三个分表也都处于打开状态【这样可以很方便数据更新后分类查看比较】下，指定J1为“3”，点击《00 总表》里的更新按钮后，会只保留一个分表处于打开状态，其余两个会自动关闭。

经他提醒，去掉wb.close true后，三个分表更新后倒是不再自动关闭了，却出现了---指定J1为偶数【0、2】时可以刷新数据，奇数【1、3】时却不能刷新数据的新情况。

   以您的经验，觉得会是什么原因造成的呢？怎样解决？

WYS67

lss001 发表于 2018-10-5 17:44
Sub 更新保存()
sj = Timer
    Application.ScreenUpdating = False

老师：首先感谢您不辞辛苦地重新编写代码。其实，我请教您的初衷是：想让你您帮忙诊断一下lsc900707版主写的代码--指定J1为偶数【0、2】时可以刷新数据，奇数【1、3】时却不能刷新数据的原因何在？
  没想到您却重新写了代码。由于原代码是lsc900707版主写的，所以说明里只是提到新增指定J1数字为更新分表的条件，其它都没有涉及，造成了您的不知情。

原先的整个规则是：
1.《00 总表》的J列为条件区域，各分表的I1为指定条件，在《00 总表》里提取符合I1指定条件的E:I列数据到对应的分表；比如：《0 三同》的I1指定为“0”，则提取《00 总表》J5:J&G1【G1为最大行号】中为0的E:I列数据到《0 三同》的相应位置。2.《0 三同》J列的期差公式为：令E4为“4”，J5=E5-E4，公式下拉至最后一个数据为止【J456行】；
    注意！《0 三同》最后一个数据对应于E列的E456为“4892”，而C1显示的《00 总表》最后行号是4894，令C1-E456=2，则J457显示为“2”，代表已经有两期没有符合I1指定条件的数据了！

3以上就是原代码的运算规则，特别注意，数据源《00 总表》指定的最大行号和三个分表各自的最大行号都不同！必须让代码运行在指定列的指定行号区域内！
4.接下来才是http://club.excelhome.net/thread-1438775-1-1.html 的任务-- 给代码增加按J1指定数字代号，更新数据到对应分表的功能

5.所以，您写的代码有许多地方显示的结果都不是我所要的。