设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 请帮忙修改下代码
数据透视表40+个常用小技巧，让你一次学会！
12下一页
返回列表 发新帖
查看: 2691|回复: 10

[已解决]请帮忙修改下代码

[复制链接]
发表于 2011-9-18 17:08 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
我在汇总工资的时候遇到的问题，原本是想把工资表统一汇总到一张年度工资汇总表里，但运行时出了点问题，请大侠们帮我看看，谢谢
最佳答案
月排行榜 / 总排行榜
zjdh
2011-9-20 13:19
本帖最后由 zjdh 于 2011-9-20 13:19 编辑

  2. Sub TEST()
  3.     Dim I%, J%, C%
  4.     Application.ScreenUpdating = False
  5.     Workbooks.Open (ThisWorkbook.Path & "\公司工资表2011-7.xls")
  6.     ARR = ActiveSheet.Range("B3:AD" & ActiveSheet.Range("A65536").End(3).Row)
  7.     ActiveWorkbook.Close False
  8.     With ThisWorkbook.Sheets(1)
  9.         For I = 1 To UBound(ARR)
  10.             C = .Range("B65536").End(xlUp).Row
  11.             If C = 2 Then C = 3
  12.             For J = 3 To C
  13.                 If ARR(I, 4) = .Range("B" & J) Then
  14.                     .Range("A" & J) = ARR(I, 3)
  15.                     .Range("C" & J) = ARR(I, 1)
  16.                     .Range("D" & J) = ARR(I, 2)
  17.                     .Range("E" & J) = ARR(I, 21)
  18.                     .Range("F" & J) = ARR(I, 22)
  19.                     .Range("G" & J) = ARR(I, 23)
  20.                     .Range("H" & J) = ARR(I, 29)
  21.                     Exit For
  22.                 End If
  23.                 If J = C Then
  24.                     .Range("A" & C + 1) = ARR(I, 3)
  25.                     .Range("B" & C + 1) = ARR(I, 4)
  26.                     .Range("C" & C + 1) = ARR(I, 1)
  27.                     .Range("D" & C + 1) = ARR(I, 2)
  28.                     .Range("E" & C + 1) = ARR(I, 21)
  29.                     .Range("F" & C + 1) = ARR(I, 22)
  30.                     .Range("G" & C + 1) = ARR(I, 23)
  31.                     .Range("H" & C + 1) = ARR(I, 29)
  32.                 End If: Next: Next: End With
  33.     Application.ScreenUpdating = True
  34. End Sub
复制代码

复件 工资计算.rar

26.77 KB, 下载次数: 28
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
zjdh
发表于 2011-9-18 19:17 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
本帖最后由 zjdh 于 2011-9-18 19:39 编辑

不就是引入姓名和工号吗？简单：
  1. Sub TEST()
  2.     Dim I%, J%, C%
  3.     Application.ScreenUpdating = False
  4.     Workbooks.Open (ThisWorkbook.Path & "\公司工资表2011-7.xls")
  5.     ARR = ActiveSheet.Range("D3:E" & ActiveSheet.Range("A65536").End(3).Row)
  6.     ActiveWorkbook.Close False
  7.     With ThisWorkbook.Sheets(1)
  8.         For I = 1 To UBound(ARR)
  9.             C = .Range("B65536").End(xlUp).Row
  10.             If C = 2 Then C = 3
  11.             For J = 3 To C
  12.                 If ARR(I, 2) = .Range("B" & J) Then .Range("A" & J) = ARR(I, 1): Exit For
  13.                 If J = C Then
  14.                     .Range("A" & C + 1) = ARR(I, 1)
  15.                     .Range("B" & C + 1) = ARR(I, 2)
  16.                 End If: Next: Next: End With
  17.     Application.ScreenUpdating = True
  18. End Sub
复制代码
回复

使用道具 举报

zjdh
发表于 2011-9-19 13:46 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
把包容你要的数据都放在数组里，再按要求提取！
回复

使用道具 举报

 楼主| 发表于 2011-9-19 13:31 | 显示全部楼层
回复 zjdh 的帖子

谢谢，假如我还要同时导入工资数据怎么办？全部放到数组里面吗？但是我汇总的数据有三列，而且这三列在原工资表中并不连在一起，请问该怎么做呢？
回复

使用道具 举报

 楼主| 发表于 2011-9-19 14:13 | 显示全部楼层
回复 zjdh 的帖子

能不能举个例子，比如我数据放在第五列和第18列，我要把这两列数据放在一个数组里面该怎么写代码？啊
回复

使用道具 举报

zjdh
发表于 2011-9-19 15:03 | 显示全部楼层
你直接说吧，要引用那几个数据。
回复

使用道具 举报

zjdh
发表于 2011-9-19 15:05 | 显示全部楼层
就你上传的附件而言，便于编写宏。
回复

使用道具 举报

 楼主| 发表于 2011-9-20 09:27 | 显示全部楼层
回复 zjdh 的帖子

我需要应发工资、个人所得税、水电费、实付工资，在工资表中的列是不连在一起的，这个时候怎么把工资表中不连续的列添加到数组中呢
回复

使用道具 举报

zjdh
发表于 2011-9-20 13:04 | 显示全部楼层
把它全部包容进去就可以啦！
回复

使用道具 举报

zjdh
发表于 2011-9-20 13:19 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2011-9-20 13:19 编辑

  2. Sub TEST()
  3.     Dim I%, J%, C%
  4.     Application.ScreenUpdating = False
  5.     Workbooks.Open (ThisWorkbook.Path & "\公司工资表2011-7.xls")
  6.     ARR = ActiveSheet.Range("B3:AD" & ActiveSheet.Range("A65536").End(3).Row)
  7.     ActiveWorkbook.Close False
  8.     With ThisWorkbook.Sheets(1)
  9.         For I = 1 To UBound(ARR)
  10.             C = .Range("B65536").End(xlUp).Row
  11.             If C = 2 Then C = 3
  12.             For J = 3 To C
  13.                 If ARR(I, 4) = .Range("B" & J) Then
  14.                     .Range("A" & J) = ARR(I, 3)
  15.                     .Range("C" & J) = ARR(I, 1)
  16.                     .Range("D" & J) = ARR(I, 2)
  17.                     .Range("E" & J) = ARR(I, 21)
  18.                     .Range("F" & J) = ARR(I, 22)
  19.                     .Range("G" & J) = ARR(I, 23)
  20.                     .Range("H" & J) = ARR(I, 29)
  21.                     Exit For
  22.                 End If
  23.                 If J = C Then
  24.                     .Range("A" & C + 1) = ARR(I, 3)
  25.                     .Range("B" & C + 1) = ARR(I, 4)
  26.                     .Range("C" & C + 1) = ARR(I, 1)
  27.                     .Range("D" & C + 1) = ARR(I, 2)
  28.                     .Range("E" & C + 1) = ARR(I, 21)
  29.                     .Range("F" & C + 1) = ARR(I, 22)
  30.                     .Range("G" & C + 1) = ARR(I, 23)
  31.                     .Range("H" & C + 1) = ARR(I, 29)
  32.                 End If: Next: Next: End With
  33.     Application.ScreenUpdating = True
  34. End Sub
复制代码
回复

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-19 12:51 , Processed in 0.327944 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表