打印成绩单

戎马书生222 · 发表于 2024-4-12 09:28

怎么在第一行添加上“高三月考成绩单”？

咔咔乱坠 · 发表于 2024-4-12 09:29

本帖最后由咔咔乱坠于 2024-4-12 10:20 编辑

365函数，参与一下
每个班级一页纸，一页放不下自动放下一页

=LET(_row,29-1,_seq,Sheet1!A2:A277,DROP(REDUCE(0,UNIQUE(_seq),LAMBDA(x,y,VSTACK(x,LET(_data,FILTER(Sheet1!A2:S277,_seq=y),DROP(REDUCE(0,SEQUENCE(ROUNDUP(ROWS(_data)/_row,))*_row,LAMBDA(a,b,VSTACK(a,Sheet1!A1:S1,EXPAND(DROP(TAKE(_data,b),b-_row),_row,,"")))),1))))),1))&""

复制代码

戎马书生222 · 发表于 2024-4-12 09:42

3190496160 发表于 2024-4-12 07:39
Sub 套打()
Application.ScreenUpdating = False
Dim ar As Variant

楼上的大侠，我想在班级考号字段上添加一行：高三月考成绩单。并且只打印班级到组合字段，不打印“批量打印”按钮。打印区域能在纸上水平居中吗？

l988x511f · 发表于 2024-4-12 11:22

用论坛里一个老师的批量套打花名册修改来的。

zjdh · 发表于 2024-4-12 12:21

' 将数据放入成绩册模板中对应的位置
For j = 1 To k
   For i = 1 To 19
         .Cells(3 + j, i).Value = Brr(i, j)
   Next i
Next j

这几句可以简化为：
  .Range("A4").Resize(k, 19) = Application.Transpose(Brr)

戎马书生222 · 发表于 2024-4-12 15:23

zjdh 发表于 2024-4-12 12:21
' 将数据放入成绩册模板中对应的位置
For j = 1 To k
For i = 1 To 19

能帮忙修改一下：3190496160的吗？主要是班级太多，不想拆分那么多sheet

zjdh · 发表于 2024-4-12 15:55

本帖最后由 zjdh 于 2024-4-12 16:02 编辑

按你的要求稍作修改

成绩册拆分按模板批量套打1.rar (50.29 KB, 下载次数: 27)

戎马书生222 · 发表于 2024-4-12 17:53

zjdh 发表于 2024-4-12 15:55
按你的要求稍作修改

真厉害！感谢了！

戎马书生222 · 发表于 2024-4-16 20:24

zjdh 发表于 2024-4-12 15:55
按你的要求稍作修改

你好。我想打印时，比如选择“政史地”的班级，不打印物理、化学、生物的成绩列，如何实现？谢谢了！！

chxw68 · 发表于 2024-4-16 21:49

本帖最后由 chxw68 于 2024-4-17 08:41 编辑

结果不符合楼主要求故删除。

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

[求助] 打印成绩单

评分