自动生成陪餐费统计表

yangqianming

我这里有一个朋友帮忙用vba写的自动生成陪餐费统计表，要求是根据表头年月自动生成工作日时间填充到第三行，第四行是依据第三行计数出星期几，每天都有早中晚三餐，早3元，午餐、晚餐都是5元，绿色区域每周两个陪餐教师，因此同一周的陪餐费计算填到同周下面，蓝色区域是师傅就餐，赵1到赵4只吃早餐午餐，钱1到钱7吃三餐，填充数据后汇总一下，想看看各位能否帮忙用js实现一下，谢谢！

陪餐费统计表.rar (32.85 KB, 下载次数: 20)

2024-3-15 15:47 上传

点击文件名下载附件

今铭昔

1. function run(){
   
2.         const [arr1, arr2] = ['B6:BR17','B19:BR29'].map(addr => Range(addr).Value2)
   
3.         const sums = Array(arr1[0].length + 4).fill(0), res = []
   
4.         const f = v => {                        // forEach回调
   
5.                 let nums = Array(3).fill(0)
   
6.                 v.forEach((n, i) => n !== undefined && (nums[i % 3] += v[i], sums[i] += v[i]))
   
7.                 nums.concat(eval(nums.join('+'))).forEach((n, i) => sums[sums.length - 4 + i] += n)
   
8.                 res.push(nums)
   
9.         }
   
10.         // 单纯是图省事，直接在字符串原型上扩充
    
11.         String.prototype.writeDatas = function(x) { Range(this).Resize(x.length, x[0].length).Value2 = x }
    
12.         arr1.forEach(f)
    
13.         'BS6'.writeDatas(res)                // [BS6:BV17]
    
14.         'B18'.writeDatas([sums])        // 陪餐费合计
    
15.         const prevSums = sums.map((n, i , a) => (a[i] = 0, n))        // 保存到其它数组对象上，sums中的元素归零
    
16.         res.length = 0
    
17.         arr2.forEach(f)
    
18.         'BS19'.writeDatas(res)                // [BS19:BV29]
    
19.         'B30'.writeDatas([sums])        // 师傅就餐合计
    
20.         sums.map((n, i) => n + prevSums[i])
    
21.         'B31'.writeDatas([sums])        // 同餐同费合计
    
22. }

复制代码

学习js宏

只实现了填充日期和星期，求和我没看懂

1. function getday() {
   
2.         let p = /\d+/g
   
3.         let title = Range("a1").Value2.match(p) //用正则匹配第一个单元格的数字
   
4.         let t = new Date(String(title[0])+"/"+String(title[1])+"/"+"1") //这年的这个月的第一天变成日期格式
   
5.         let arr = [[],[]]
   
6.         while (true){
   
7.                 if ((t.getMonth()+1)==title[1]) {       //月份相同则执行代码否则日期到了下个月就跳出循环
   
8.                         if (t.getDay()!=0 && t.getDay()!=6) {  //判断这天是否是周一到周五
   
9.                                 arr[0].push((t.getMonth()+1)+"月"+t.getDate()+"日") //把日期放入数组
   
10.                                 let day = t.getDay()
    
11.                                 if (day==1) {            //判断这天是星期几并放入数组
    
12.                                         arr[1].push("星期一")
    
13.                                 }else if(day==2) {
    
14.                                         arr[1].push("星期二")
    
15.                                 }else if(day==3) {
    
16.                                         arr[1].push("星期三")
    
17.                                 }else if(day==4) {
    
18.                                         arr[1].push("星期四")
    
19.                                 }else if(day==5) {
    
20.                                         arr[1].push("星期五")
    
21.                                 }
    
22.                                 
    
23.                         }
    
24.                 }
    
25.                 else {
    
26.                         break
    
27.                 }
    
28.                 t = new Date(t.getTime()+24*3600*1000)  //天数加1
    
29.         }
    
30.         return arr
    
31. }
    
32. function test() {
    
33.         a = getday()
    
34.         for (let i=0;i<a[0].length;i++) {
    
35.                 Cells(3,2+i*3).Value2 = a[0][i]
    
36.                 Cells(4,2+i*3).Value2 = a[1][i]
    
37.         }
    
38. 
    
39. }
    
40.         
    

复制代码

yangqianming

今铭昔 发表于 2024-3-16 12:37

我这里运行不了，但还是谢谢你花费时间积极为我解决问题！

yangqianming

学习js宏 发表于 2024-3-16 14:12
只实现了填充日期和星期，求和我没看懂

我这里粘贴代码填充日期和星期也不行，应该是那个变量t存在问题，感谢！

学习js宏

yangqianming 发表于 2024-3-16 16:10
我这里粘贴代码填充日期和星期也不行，应该是那个变量t存在问题，感谢！

要运行test那个函数

LIUZHU

我理解为，楼主的问题是，要生成一张完整的表，且统计结果？

LIUZHU

今铭昔 发表于 2024-3-16 12:37

铭佬的代码真的都是知识点，值得学习研究

LIUZHU

个人认为，这个要先给一个标准模板，然后再写代码填充数据。

yangqianming

LIUZHU 发表于 2024-3-16 21:01
我理解为，楼主的问题是，要生成一张完整的表，且统计结果？

是的，能帮我实现一下吗？谢谢！