1234

ExcelHome技术论坛

用户名  找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

帖子
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 322|回复: 9

[求助] 工资调整 求助公式或VBA

[复制链接]

TA的精华主题

TA的得分主题

发表于 2025-1-3 12:39 | 显示全部楼层 |阅读模式
工资调整 求助公式或VBA

工资调整 求助公式或VBA.zip

532.42 KB, 下载次数: 25

TA的精华主题

TA的得分主题

发表于 2025-1-3 14:13 | 显示全部楼层
=VLOOKUP(MID($B2,7,18),'工资(二)'!$D$7:$AF$200,21,)
=VLOOKUP(MID($B2,7,18),'工资(二)'!$D$7:$AF$200,22,)
=VLOOKUP(MID($B2,7,18),'工资(二)'!$D$7:$AF$200,23,)
=VLOOKUP(MID($B2,7,18),'工资(二)'!$D$7:$AF$200,26,)
image.png

TA的精华主题

TA的得分主题

发表于 2025-1-3 16:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本VBA是把"工资(二)"中内容完善,一键生成此表,不是仅填写那几个数据!

求助公式或VBA.rar

664.79 KB, 下载次数: 11

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2025-1-3 18:49 | 显示全部楼层
建议写个基础表 这个数据清楚很多

求助公式或VBA1.rar

624.42 KB, 下载次数: 8

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-3 19:21 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-3 20:09 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
laoye5403 发表于 2025-1-3 16:45
本VBA是把"工资(二)"中内容完善,一键生成此表,不是仅填写那几个数据!

老师您能把每行代码做一个简要说明吗?

TA的精华主题

TA的得分主题

发表于 2025-1-3 21:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
三票 发表于 2025-1-3 20:09
老师您能把每行代码做一个简要说明吗?

就这么几行还要说明??
好吧,大概说说!
  1. Sub 工资调整()
  2.     arr = Sheet3.Range("a1:m75") '把a1:m75范围生成数组,最好是新建工作表做个母表
  3.     brr = Sheet1.UsedRange '把sheet1所有范围生成数组brr
  4.     Sheet3.Range("a76:m10000").Value = "" '保留母表部分,下面的全部清空
  5.     j = 1
  6.     For i = 7 To UBound(brr)  '每个身份证循环一次,直到所有员工全部循环完
  7.         arr(2, 2) = "工资审核表(" & brr(i, 4) & ")" '把sheet1中身份证和"工资审核表"做抬头
  8.         arr(8, 3) = brr(i, 2) '提取姓名
  9.         '根据身份证判断男\女
  10.         If CInt(Mid(brr(i, 4), 17, 1)) Mod 2 = 0 Then arr(8, 6) = "女" Else arr(8, 6) = "男"
  11.         '根据身份证提取出生年月
  12.         arr(8, 8) = Mid(brr(i, 4), 7, 4) & "." & Mid(brr(i, 4), 11, 2)
  13.         
  14.         arr(8, 11) = brr(i, 8) '提取sheet1的学历
  15.         arr(8, 13) = brr(i, 9) '提取sheet1的毕业时间
  16.         arr(12, 3) = brr(i, 5) '提取sheet1的参加工作时间
  17.         arr(12, 11) = brr(i, 16) '下面的自己个个慢慢看
  18.         arr(16, 3) = brr(i, 11)
  19.         arr(16, 7) = brr(i, 12)
  20.         arr(16, 11) = brr(i, 14)
  21.         arr(16, 13) = brr(i, 15)
  22.         arr(33, 2) = brr(i, 14)
  23.         arr(33, 3) = brr(i, 18)
  24.         arr(33, 4) = brr(i, 19)
  25.         arr(33, 5) = brr(i, 20)
  26.         arr(33, 6) = brr(i, 21)
  27.         arr(33, 7) = brr(i, 22)
  28.         arr(33, 8) = brr(i, 11)
  29.         arr(33, 9) = brr(i, 24) '提取sheet1的岗位工资
  30.         arr(33, 10) = brr(i, 25) '提取sheet1的薪级
  31.         arr(33, 11) = brr(i, 26) '提取sheet1的薪级工资
  32.         arr(33, 12) = brr(i, 27)
  33.         arr(33, 13) = brr(i, 28)
  34.         arr(37, 10) = brr(i, 29)  '提取sheet1的月增资额
  35.         '写入sheet3的A1相应区域 , 下次循环间隔75行写入
  36.         Sheet3.Range("a" & j).Resize(UBound(arr), UBound(arr, 2)) = arr
  37.         j = j + 75
  38.     Next i
  39. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2025-1-4 07:59 | 显示全部楼层
三票 发表于 2025-1-3 19:21
下载后表中没有VBA代码

重新上传,请测试下!!!!!!!!!!!!!!


求助公式或VBA1.rar

638.95 KB, 下载次数: 8

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-1-4 08:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
422566739 发表于 2025-1-4 07:59
重新上传,请测试下!!!!!!!!!!!!!!

老师能把代码做一下说明吗?

TA的精华主题

TA的得分主题

发表于 2025-1-4 09:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
三票 发表于 2025-1-4 08:47
老师能把代码做一下说明吗?
  1. Sub 填充()
  2.     Dim sht1, sht3 As Worksheet
  3.     Dim d As Object
  4.     Set sht1 = Worksheets(1): Set sht3 = Worksheets(3)
  5.     Set d = CreateObject("Scripting.Dictionary")
  6.     '将表1 表3的数据放进对应的 arr1 arr3 数组中
  7.     arr3 = sht3.Range("b1: M11923")
  8.     arr1 = sht1.Range("d7:ac166")
  9.    
  10.     '循环表1数据 并放入字典key是d列的值, 值是24 25 26 29 的字符串拼接
  11.     For i = 1 To UBound(arr1)
  12.         d(arr1(i, 1)) = arr1(i, 21) & "_" & arr1(i, 22) & "_" & arr1(i, 23) & "_" & arr1(i, 26)
  13.     Next
  14.    
  15.     '循环表3数据
  16.     For i = 1 To UBound(arr3) Step 75
  17.         '第1次取出表三中 对应单元格j1中的身份证号
  18.         Let sfz = arr3(i, 9)
  19.         '把取出的身份证号 放进字典中查找对应的指,并把值用split函数拆分成1个数组
  20.         spArr = Split(d(sfz), "_")
  21.         '第1次 j1单元格的位置偏移到 下面4个单元格位置 并放入对应的值
  22.         sht3.Range("j" & i).Offset(32, -1) = spArr(0)
  23.         sht3.Range("j" & i).Offset(32, 0) = spArr(1)
  24.         sht3.Range("j" & i).Offset(32, 1) = spArr(2)
  25.         sht3.Range("j" & i).Offset(36, 0) = spArr(3)
  26.     Next i
  27. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

1234

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-2-17 20:41 , Processed in 0.030105 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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