自动生成陪餐费统计表

LIUZHU

是论坛的问题，还是我电脑的问题？不能上传附件和图片了？

yangqianming

LIUZHU 发表于 2024-3-18 19:38
不能上传附件了，不知道为什么？

发到我的邮箱也可以哟！759086819@qq.com

LIUZHU

yangqianming 发表于 2024-3-18 19:43
发到我的邮箱也可以哟！

已发QQ邮箱

Again123456

1. function test(){
   
2.         Range("b3:br4","b6:br17").ClearContents()
   
3.         Range("b9:br29").ClearContents()
   
4.         let [year , month ] = Range("a1").Value2.match(/\d+/g), dateArr = []
   
5.         let n = new Date( year , month, 0).getDate()
   
6.         let weekdays = [ null,"星期一","星期二","星期三","星期四","星期五",null]
   
7.         let weekindexs = [0,1,2,3,4,5,6]       
   
8.         for (let i = 1 ; i <= n ; i ++){
   
9.                 let weekdayindex = new Date(year,month-1,i).getDay()
   
10.                 dateArr.push([ month +"月" + i + "日" , weekdays[weekdayindex]])
    
11.         }
    
12.         dateArr = dateArr.filter(v=>v[1])
    
13.         let k = 0
    
14.         for(let i in dateArr){
    
15.                 Cells(3 , 3 * i + 2).Value2 = dateArr[i][0]
    
16.                 Cells(4 , 3 * i + 2).Value2 = dateArr[i][1]
    
17.                 if (i == 0){
    
18.                         Cells(6,2).Resize(2,3).Value2 = [[3,5,5],[3,5,5]]
    
19.            } else if(dateArr[i-1][1] != "星期五"){
    
20.                             Cells(6+ k * 2,3 * i + 2).Resize(2,3).Value2 = [[3,5,5],[3,5,5]]
    
21.            }else{
    
22.                       k++
    
23.                       Cells(6 + k * 2,3 * i + 2).Resize(2,3).Value2 = [[3,5,5],[3,5,5]]
    
24.            }4
    
25.                 Cells(19,3 * i + 2).Resize(4,3).Value2 = Array(4).fill([3,5,0])
    
26.                 Cells(23,3 * i + 2).Resize(7,3).Value2 = Array(7).fill([3,5,5])
    
27.         }
    
28.        
    
29. }

复制代码

Again123456

写好了，传不了附件，只好发代码了，在审核。

yangqianming

LIUZHU 发表于 2024-3-18 19:48
已发QQ邮箱

厉害！膜拜！万分感谢！

Again123456

Again123456 发表于 2024-3-18 19:53

数据很少，就直接操作表了，搞数组也快不了多少。数组weekindexs定义那行我忘删除了，Range("b3:br4,b6:br17,b9:br29").ClearContents()写错了

LIUZHU

Again123456 发表于 2024-3-18 19:53

这个思路确实比我的好，我用数组太麻烦了

Again123456

LIUZHU 发表于 2024-3-18 22:46
这个思路确实比我的好，我用数组太麻烦了

数组效率还是高些，赞一个

LIUZHU

Again123456 发表于 2024-3-19 08:15
数组效率还是高些，赞一个

我想这个问题，如果想代码简单，可以这么处理，代码解决表头部分，教师陪餐和师傅就餐全部用公式解决，这样起来，代码更简单，只不过要设置一个较为复杂的公式。