求VBA 生成成绩通知单

wengjl

Sub 生成通知单()
   
    Sheet2.Select
    Columns("A:K").Delete Shift:=xlToLeft
    ii = 1
    x1 = 2
    Do While Not (IsEmpty(Sheet1.Cells(x1, 1).Value))
      For y = 1 To 11
        Sheet2.Cells(ii, y).Value = Sheet1.Cells(1, y).Value
        Sheet2.Cells(ii + 1, y).Value = Sheet1.Cells(x1, y).Value
      Next y
      ii = ii + 3
      x1 = x1 + 1
    Loop
   
End Sub

yuyubiao

cqz2022 发表于 2023-4-27 22:16
辛苦了 谢谢  能不能实现  只生成有“不合格”项的通知单，全都合格的不生成呢
谢谢

请假的要显示吗？

yuyubiao

看一下，我只是把合格的去掉了，请假的没有去掉，你看一下行不行，还有格式是要这样子还是说不合格的标题那格也不要？

cqz2022

yuyubiao 发表于 2023-4-28 08:54
请假的要显示吗？

辛苦了 一直在和学生忙 看到晚了

应该是我没表达清楚，我想要的效果是，
⑴
比如，学生1  他所有的项目都是“合格”，那么这个学生就不在“通知单”里出现了
         学生5   他所有的项目都是“请假”，那么这个学生也不在“通知单”里出现了

也就是说 ，只有当一个学生的所有考核全部是“合格”或全部是“请假”时，他就不在“通知单”里出现。
⑵
在“通知单”里出现的学生，考核项目完整显示“合格”、“不合格”、“请假”（个别项，不是全部），都显示出来。
⑶
插入的空行，在1厘米左右呗，要不我手里的切纸刀不好切。
⑷
能把边距都设置为0.5，让一页A4上显示合格的通知条吗？因为每次的项目，数量不同，说明的字数也不同，如果不行，我就手动调整吧。


感谢 感谢

yuyubiao

cqz2022 发表于 2023-4-28 11:39
yuyubiao 发表于 2023-4-28 08:54
请假的要显示吗？

能把边距都设置为0.5，让一页A4上显示合格的通知条，这个的意思是单独再出一个合格的通知单是吗？

cqz2022

yuyubiao 发表于 2023-4-28 14:44
能把边距都设置为0.5，让一页A4上显示合格的通知条，这个的意思是单独再出一个合格的通知单是吗？

不是  就是运行你帮我写的代码 后生成的  通知单4.28 这个工作表

yuyubiao

cqz2022 发表于 2023-4-28 14:57
不是  就是运行你帮我写的代码 后生成的  通知单4.28 这个工作表

还不是很完美，最后一个分页符你要自己调整一下，要下班了没时间改了。放假回来再优化。

cqz2022

yuyubiao 发表于 2023-4-28 17:29
还不是很完美，最后一个分页符你要自己调整一下，要下班了没时间改了。放假回来再优化。

太感谢你了   

yuyubiao

cqz2022 发表于 2023-4-29 12:56
太感谢你了

修改了一下：
1、取消页面的垂直居中只保留水平居中，这样子最后一页打印不满的时候不会在中间。
2、设置纸张方向为纵向，避免变成横向；
3、循环查看全部分页符，避免出现标题行和内容行分割在两页纸的情况。
4、增加计时功能，结束弹出提示。

cqz2022

yuyubiao 发表于 2023-5-1 17:07
修改了一下：
1、取消页面的垂直居中只保留水平居中，这样子最后一页打印不满的时候不会在中间。
2、设 ...

真心感谢  太完美了