[已解决]如何用VBA将表一，表二，表三的数据，在总表里显视出来，谢谢

新一

dsmch 发表于 2014-3-20 13:13
………………

感谢感谢，十分感谢........

新一

dsmch 发表于 2014-3-20 13:13
………………

当我在这个工作薄中，插入一个工作表，运行一下个人明细的按钮时，新插入的工作表没有了。可否解决这样的问题。

dsmch

新一 发表于 2014-3-20 18:48
当我在这个工作薄中，插入一个工作表，运行一下个人明细的按钮时，新插入的工作表没有了。可否解决这样的 ...

工作表从左到右分别为Sheets(1),sheets(2),sheets(3)…………
修改第八行代码即可

新一

dsmch 发表于 2014-3-20 18:52
工作表从左到右分别为Sheets(1),sheets(2),sheets(3)…………
修改第八行代码即可

谢谢，明白.........

新一

新一 发表于 2014-3-20 19:01
谢谢，明白.........

想问一下，如果我想在谋一个员工表中，求和了，但按了下个人明细按钮后，求和值不见了。这样的问题可否解决，谢谢。

dsmch

新一 发表于 2014-3-20 19:12
想问一下，如果我想在谋一个员工表中，求和了，但按了下个人明细按钮后，求和值不见了。这样的问题可否解 ...

个人明细表是根据汇总表生成的，用附件说明问题。

新一

dsmch 发表于 2014-3-20 19:22
个人明细表是根据汇总表生成的，用附件说明问题。

附件已上传。我想在每张员工的工作表中，加入求和，但按了个人明细表按钮后，求和值，没有了，谢谢帮助。如我的附件。

dsmch

Sub Macro2()
On Error Resume Next
Dim arr, d, i&, x&
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 5 Step -1 '删除第5个工作表以后的所有工作表
    Sheets(i).Delete
Next
For i = 3 To UBound(arr)
    If Not d.exists(arr(i, 8)) Then
        d(arr(i, 8)) = ""
        If Sheets("" & arr(i, 8)) Is Nothing Then
            Sheets("总表").[h2].AutoFilter Field:=8, Criteria1:=arr(i, 8)
            With Sheets.Add(after:=Sheets(Sheets.Count))
                ActiveSheet.Name = arr(i, 8)
                Sheets("总表").[a:h].Copy Range("a1")
                x = Range("g65536").End(xlUp).Row
                Cells(x + 1, "f") = "总计"
                Cells(x + 1, "g") = Application.Sum(Range(Cells(3, "g"), Cells(x, "g")))
                Columns.AutoFit
            End With
        End If
    End If
    Sheets("总表").ShowAllData
Next
Sheets("总表").Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

新一

dsmch 发表于 2014-3-20 20:08
Sub Macro2()
On Error Resume Next
Dim arr, d, i&, x&

谢谢帮助.....

新一

新一 发表于 2014-3-20 20:21
谢谢帮助.....

为什么会出现，总表的情况。多了一行一样的出来。还有，如果点击：个人明细表，更新后，我之前所设置好的打印预览设置，没有了，又要重新设置。请问有没有解决的方法，谢谢