[已解决][求助]搁浅2008 为什么我增加一个工作表 汇总就不准了

wclzy

求助　搁浅2008 为什么我增加一个工作表　汇总就不准了 1nUg14Mu.rar (462.3 KB, 下载次数: 22)

2008-12-14 20:51 上传

点击文件名下载附件
[求助]搁浅2008 为什么我增加一个工作表　汇总就不准了

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2008-12-14 21:40

暂可改为：

Sub 全年工资汇总()
    Application.ScreenUpdating = False
    Dim x As Long, y As Long, i As Long, j As Long, sht As Worksheet
    Dim arr1
    Dim arr2(1 To 228, 1 To 34)
    For Each sht In Worksheets
        If sht.Name Like "*月" Then
        arr1 = sht.Range("C3:AJ230")
        For x = 1 To 228
            For y = 1 To 34
                arr2(x, y) = arr2(x, y) + arr1(x, y)
            Next y
        Next x
        End If
    Next
    Sheet6.Range("C3").Resize(228, 34) = arr2
    Application.ScreenUpdating = True
End Sub

为了避免人员增减、人员顺序发生变化而出错，最好再改进代码（论坛中有不少类似帖子，可参考）

跳转到最佳答案楼层

青城山苦丁茶

暂可改为：

Sub 全年工资汇总()
    Application.ScreenUpdating = False
    Dim x As Long, y As Long, i As Long, j As Long, sht As Worksheet
    Dim arr1
    Dim arr2(1 To 228, 1 To 34)
    For Each sht In Worksheets
        If sht.Name Like "*月" Then
        arr1 = sht.Range("C3:AJ230")
        For x = 1 To 228
            For y = 1 To 34
                arr2(x, y) = arr2(x, y) + arr1(x, y)
            Next y
        Next x
        End If
    Next
    Sheet6.Range("C3").Resize(228, 34) = arr2
    Application.ScreenUpdating = True
End Sub

为了避免人员增减、人员顺序发生变化而出错，最好再改进代码（论坛中有不少类似帖子，可参考）

wclzy

如果增人　减人　增加工作该怎样编写

搁浅2008

DacwtuLz.rar (461.48 KB, 下载次数: 18)

2008-12-20 13:26 上传

点击文件名下载附件
[求助]搁浅2008 为什么我增加一个工作表　汇总就不准了
[em06]  想偷懒都不行     最好在要求里说清楚 排序可不可以乱 有没有重名之类的  要不可能要换思路的

wclzy

排序可以乱，有重名的人员，可以增加人员、减员、增加行和列，全员汇总增加了人员或减员，查询也应一起变化，谢谢了

[em17]

wclzy

多谢搁浅2008老师，谢谢你帮助我编辑了这个工资统计台帐　谢谢了

[em17]

hingkk

学习了

wclzy

请问搁浅2008老师我增加100个人员为什么查询出错（注w例至af例没填数一查询就出.Range("T3") = Round(.Range("AJ18") / (12 - Application.CountIf(.Range(.Cells(6, "AJ"), .Cells(17, "AJ")), 0)), 0)　　　

c例至L例没数一查询也出.Range("J3") = Round(.Range("V18") / (12 - Application.CountIf(.Range(.Cells(6, "V"), .Cells(17, "V")), 0)), 0)是什么原因呀，如果这些例都有数就不出错为什么呀　

搁浅2008

这个 可以加上

 Range("J3:K3,T3:U3,B6:AJ18").ClearContents

加在这个位置

就是打开VBA编辑器 双击 左边的  员工工资汇总查询

[求助]搁浅2008 为什么我增加一个工作表　汇总就不准了

[此贴子已经被作者于2008-12-22 21:56:40编辑过]

wclzy

加在什么地方呀