自动更新总表数据到打开的分表

13782671637

1.文件夹《河南快三》 河南快三.zip (1007.35 KB, 下载次数: 30)

2018-8-12 08:59 上传

点击文件名下载附件

在G盘中。里面是原工作簿 总表拆分原始表格.zip (966.81 KB, 下载次数: 31)

2018-8-12 08:40 上传

点击文件名下载附件

坼分后的四个新工作簿。输入数据的《总表》始终处于打开状态；《三同》、《组三》、《组六》则根据需要可以单独或同时打开。
2.《总表坼分原始数据》的《总表》里有自动更新的代码。

  请老师们修改里面的代码，当在【河南快三】中始终打开的《总表》I列增添新数据时，点击按钮，即可更新符合条件的行列数据到后面《三同》、《组三》、《组六》三个分表里。


  原先是同一个工作簿内的数据提取和更新，现在是G盘里同一个文件夹里按《总表》新输入数据对其它三个工作簿里对应工作表的更新。

13782671637

希望老师们帮忙

13782671637

《总表》里的原代码能够在点击按钮后更新《总表坼分原始表格》的三个分表。求文件夹【河南快三】中点击《总表》的按钮，能够更新其它三个工作簿的代码

13782671637

希望老师们帮忙

13782671637

希望老师们帮忙

13782671637

朱荣兴 发表于 2018-8-12 21:48
你说了半天，我也认真的研究了半天，还是不明白你的需求是什么？？？

   1.《总表坼分原始表格》工作簿中点击《总表》里的“更新分表”按钮，就可以更新符合条件的总表E:J列数据到各自对应的《三同》、《组三》、《组六》里；

   2.文件夹【河南快三】则是把《总表坼分原始表格》里的四个工作表坼分成了四个可以独立打开的工作簿，点击《总表》里的“更新分表”按钮时，可以更新符合条件的《总表》E:J列数据到各自对应的《三同》、《组三》、《组六》工作簿里；

  一句话，《总表坼分原始表格》表格太大，运行速度慢；坼分成四个独立的工作簿，需要打开哪个就只打开哪个工作簿

13782671637

1.《总表坼分原始表格》工作簿中点击《总表》里的“更新分表”按钮，就可以更新符合条件的总表E:J列数据到各自对应的《三同》、《组三》、《组六》里；

   2.文件夹【河南快三】则是把《总表坼分原始表格》里的四个工作表坼分成了四个可以独立打开的工作簿，点击《总表》里的“更新分表”按钮时，可以更新符合条件的《总表》E:J列数据到各自对应的《三同》、《组三》、《组六》工作簿里；

  一句话，《总表坼分原始表格》表格太大，运行速度慢；坼分成四个独立的工作簿，需要打开哪个就只打开哪个工作簿

lsc900707

13782671637 发表于 2018-8-14 10:03
1.《总表坼分原始表格》工作簿中点击《总表》里的“更新分表”按钮，就可以更新符合条件的总表E:J列数据到 ...

Sub 更新()
    Set wk = ThisWorkbook
    r1 = [c2]: r2 = [h2].Value
    If r2 <= r1 Then arr = Range("e5:j" & r1)
    ReDim brr(1 To UBound(arr), 1 To 6)
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xlsm")
    Application.ScreenUpdating = False
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(p & f)
            With wb.Sheets(1)
                xm = .[i1]: n = .[c2]
                m = 0
                For i = 1 To UBound(arr)
                    If arr(i, 6) = xm Then
                        m = m + 1: r = Application.Match(xm, wk.Sheets(1).[j:j], 0)
                        For j = 1 To 5
                            brr(m, j) = arr(i, j)
                        Next
                    End If
                Next
                For i = 1 To m
                    If i = 1 Then
                        brr(i, 6) = r - 4
                    Else
                        brr(i, 6) = brr(i, 1) - brr(i - 1, 1)
                    End If
                Next
                brr(m + 1, 6) = .[d1] - brr(m, 1)
                .Range("e5:i" & n - 4).ClearContents
                .Range("e5").Resize(n - 4, UBound(brr, 2)) = brr
            End With
            wb.Close True
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "数据更新完毕！"
End Sub

lsc900707

13782671637 发表于 2018-8-14 10:03
1.《总表坼分原始表格》工作簿中点击《总表》里的“更新分表”按钮，就可以更新符合条件的总表E:J列数据到 ...

如果点更新，则三个分工作簿的数据都会一起更新，不是想更新哪个更新哪个！