求【求大神】员工社保缴费汇总预算统计（员工社保实战需求）

1565785678

sunya_0529 发表于 2024-8-19 16:52
兴趣是最好的老师，想学多在论坛里找相关的教程，多练习就会有提高了

大佬，要是养老基数和医疗基数不一样怎么办呀？怎么改代码呀？

sunya_0529

1565785678 发表于 2025-4-9 14:31
大佬，要是养老基数和医疗基数不一样怎么办呀？怎么改代码呀？

代码修改一下——

1. function 计算社保公积金缴费明细() {
   
2.     const awf = Application.WorksheetFunction;
   
3.     const SIHF = Range('G1').CurrentRegion().slice(1).reduce((a, c) => {        //循环读取各险种费率及基数上下限存入对象SIHF
   
4.         a[c[1] + '单位'] = [c[3], c[4], c[5]].map(v => Number(v) || 0);
   
5.         a[c[1] + '个人'] = [c[2], c[4], c[5]].map(v => Number(v) || 0);
   
6.         return a;
   
7.     }, {});
   
8.     const MONTH = Number(String(Range('G2')()).replace('月', ''));        //定义计算月份
   
9.     const res = [['月份', '姓名', ...Object.keys(SIHF), '单位合计', '个人合计', '总合计']];        //定义结果存储数组
   
10.     Range('A1').CurrentRegion().filter(r => MONTH >= r[3] && MONTH <= r[4]).forEach(v => {
    
11.         let arr = Object.keys(SIHF).map(k => {
    
12.             if (k.includes('大额医保')) return MONTH == 1 ? 6 : 4;        //大额医保，1月份金额为6元，其余为4元
    
13.             //根据基数上下限和费率，计算缴费金额，社保费四舍五入保留2位小数（分），公积金四舍五入到整数（元）
    
14.             return awf.Round(Math.min(Math.max(v[k.includes('基本医保') ? 2 : 1], SIHF[k][1]), SIHF[k][2]) * SIHF[k][0], k.includes('公积金') ? 0 : 2);
    
15.         });
    
16.         const SUM_COMPANY = `=SUMPRODUCT((RIGHT(R1C[-${arr.length}]:R1C[-1],2)="单位")*RC[-${arr.length}]:RC[-1])`;        //单位合计
    
17.         const SUM_STAFF = `=SUMPRODUCT((RIGHT(R1C[-${arr.length + 1}]:R1C[-2],2)="个人")*RC[-${arr.length + 1}]:RC[-2])`;        //个人合计
    
18.         const SUM_TOTAL = `=RC[-1]+RC[-2]`;        //总合计
    
19.         res.push([MONTH + '月', v[0], ...arr, SUM_COMPANY, SUM_STAFF, SUM_TOTAL]);
    
20.     });
    
21.     //添加末行汇总
    
22.     res.push([, `${res.length - 1}人`, ...Array(Object.keys(SIHF).length + 3).fill('').map(v => `=SUM(R[-${res.length - 1}]C:R[-1]C)`)]);
    
23.     with (Range('Q1').Resize(res.length, res[0].length)) {
    
24.         CurrentRegion.Clear();        //清空结果区域
    
25.         Value2 = res;        //输出结果
    
26.         Borders.LineStyle = xlContinuous;        //添加边框线
    
27.         HorizontalAlignment = xlHAlignCenter;        //单元格内容水平居中
    
28.         VerticalAlignment = xlHAlignCenter;        //单元格内容垂直居中
    
29.         NumberFormat = `_ * #,##0.00_ ;;_ * "-"??_ ;@`;        //设置单元格格式
    
30.         Rows(1).Font.Bold = true;
    
31.         Rows(1).WrapText = true;
    
32.     }
    
33. }

复制代码

caozheng510

很厉害的大神，点赞来学习一下