用vba求全年工资和

unts1980 · 发表于 2014-1-27 10:35

通过1到12个月每人的情况，用vba编程把全年收入汇总到汇总表，每月的人头数会不一样，顺序也不一样，谢谢。

liulang0808 · 发表于 2014-1-27 10:43

格式都一样，用个字典就可以了

CheryBTL · 发表于 2014-1-27 10:46

没个月的基本工资什么的都一样么？
问题不难，就是各月的数据太少了，多放些数据来吧。

unts1980 · 发表于 2014-1-27 11:01

每个月的数据都是有变化的，

liulang0808 · 发表于 2014-1-27 11:05

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
For j = 2 To Sheets.Count
      For l = 2 To Sheets(j).Cells(Rows.Count, 1).End(3).Row
         y = Sheets(j).Cells(l, 1) & "-" & Sheets(j).Cells(l, 2)
         If d.exists(y) Then
            arr = Split(d(y), "-")
            str1 = Val(arr(0)) + Sheets(j).Cells(l, 3)
            For i = 4 To 12
                  str1 = str1 & "-" & (Val(arr(i - 3)) + Sheets(j).Cells(l, i))
            Next i
            d(y) = str1
            str1 = ""
         Else
            str1 = Sheets(j).Cells(l, 3)
            For i = 4 To 12
                  str1 = str1 & "-" & Sheets(j).Cells(l, i)
            Next i
            d(y) = str1
            str1 = ""
         End If
      Next l
Next j
arr1 = d.keys
i = d.Count
arr2 = d.items
For j = 0 To UBound(arr1)
      Range("a" & j + 2 & ":b" & j + 2) = Split(arr1(j), "-")
      Range("c" & j + 2 & ":l" & j + 2) = Split(arr2(j), "-")
Next j
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2014-1-27 11:06

你看看附件的结果是否合适

unts1980 · 发表于 2014-1-28 09:09

谢谢但是为什么汇总后都是文本的保存呢？是否可以改为直接是数字呢？

zax010 · 发表于 2014-1-28 13:31

本帖最后由 zax010 于 2014-1-28 13:33 编辑

请测试。

工资表.rar (13.22 KB, 下载次数: 64)

yjh_27 · 发表于 2014-1-28 14:47

按3月人员排序，3月没有的人员排尾。3月可修改（12月）

unts1980 · 发表于 2014-1-29 15:58

yjh_27 发表于 2014-1-28 14:47
按3月人员排序，3月没有的人员排尾。3月可修改（12月）

大大你的模块2是什么东东哦哦

		自动登录	找回密码
密码			免费注册