自动生成陪餐费统计表

xd3210 · 发表于 2024-4-15 09:46

yangqianming 发表于 2024-4-12 20:50
非常感谢！就是我想要的结果。

第1周至第？周，替换一下：
let dw=Range("a2").Formula;
dw=dw.replace(/(?<=至第)\d+(?=周?)/,(k+1));
Range("a2").Formula=dw;

yangqianming · 发表于 2024-4-17 08:05

xd3210 发表于 2024-4-15 09:46
第1周至第？周，替换一下：
let dw=Range("a2").Formula;
dw=dw.replace(/(?

如果我在相同的位置填填充应到人数，又该怎么写？我照着套了一下怎是出错。

yangqianming · 发表于 2024-4-17 20:57

yangqianming 发表于 2024-4-17 08:05
如果我在相同的位置填填充应到人数，又该怎么写？我照着套了一下怎是出错。

可能描述的不太清楚，实际就是把现在的文件中红色区域填充的数字都换成该行的应到人数就行了。

yangqianming · 发表于 2024-4-17 21:03

应该把红色区域中填充的数字都换成该行的应到人数就达到目的了。

yangqianming · 发表于 2024-4-18 07:40

function test(){
Range("c3:ch4,c6:ch14,c16:ch27").ClearContents()
let [year , month ] = Range("a1").Value2.match(/\d+/g), dateArr = []
let n = new Date( year , month, 0).getDate()
let weekdays = [ "星期日","星期一","星期二","星期三","星期四","星期五",null]
for (let i = 1 ; i <= n ; i ++){
let weekdayindex = new Date(year,month-1,i).getDay()
dateArr.push([ month +"月" + i + "日" , weekdays[weekdayindex]])
}
dateArr = dateArr.filter(v=>v[1]!=null)
let k = 0
for(let i in dateArr){
Cells(3 , 3 * i + 3).Value2 = dateArr[i][0]
Cells(4 , 3 * i + 3).Value2 = dateArr[i][1]
for(let m=6;m<=14;m++) {Cells(m,3 * i + 3).Resize(1,3).Value2 = dateArr[i][1] == "星期日" ? Array(1).fill([null,null,null]) : Array(1).fill([Range("b"+m).Value2,Range("b"+m).Value2,null])}
for(let n=16;n<=27;n++){Cells(n,3 * i + 3).Resize(1,3).Value2 = dateArr[i][1] == "星期五" ? Array(1).fill([Range("b"+n).Value2,Range("b"+n).Value2,null]) : dateArr[i][1] == "星期日" ? Array(1).fill([null,null,Range("b"+n).Value2]):Array(1).fill([Range("b"+n).Value2,Range("b"+n).Value2,Range("b"+n).Value2])}
}
}

复制代码

这样改了一下基本可以了。

yangqianming · 发表于 2024-4-18 14:40

xd3210 发表于 2024-4-15 09:46
第1周至第？周，替换一下：
let dw=Range("a2").Formula;
dw=dw.replace(/(?

照着抄了一个收费明细统计表，但第32行数据填充不了，而且运行感觉特别慢，不明白那些地方出问题了？烦请帮我修改一下好吗？

Again123456 · 发表于 2024-4-18 14:54

yangqianming 发表于 2024-4-18 14:40
照着抄了一个收费明细统计表，但第32行数据填充不了，而且运行感觉特别慢，不明白那些地方出问题了？烦请 ...

for () { ......} 最后一个“}”的位置不对！

yangqianming · 发表于 2024-4-18 15:06

Again123456 发表于 2024-4-18 14:54
for () { ......} 最后一个“}”的位置不对！

能给我帮忙改一下吗？关键运行还慢得不行。

Again123456 · 发表于 2024-4-18 15:26

本帖最后由 Again123456 于 2024-4-18 15:29 编辑

yangqianming 发表于 2024-4-18 15:06
能给我帮忙改一下吗？关键运行还慢得不行。

2024春（新洲）后勤伙食收入明细表.7z (26.65 KB, 下载次数: 1) 除了括号错了，代码写的太长，基本没改你的代码。不过，这个代码的确应该优化，在内存里搞

yangqianming · 发表于 2024-4-18 15:39

yangqianming 发表于 2024-4-18 15:06
能给我帮忙改一下吗？关键运行还慢得不行。

我还写不了这样的代码，只是用您写的代码慢慢试着改成的，不知为啥我一修改不是错就是慢，每次遇到麻烦，您都能热心花费时间给解决，万分感谢！

		自动登录	找回密码
密码			免费注册

[求助] 自动生成陪餐费统计表