Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3653|回复: 4

怎么根据数据源里面的数据批量打印准考证,(一张a4纸上打印四个准考证)

[复制链接]
发表于 2019-8-19 10:55 | 显示全部楼层 |阅读模式
怎么根据数据源里面的数据批量打印准考证,(一张a4纸上打印四个准考证)

准考证 - 副本.rar

10.97 KB, 下载次数: 11

发表于 2019-8-19 11:47 | 显示全部楼层
Dim A, B
Sub test()
    Dim i
    Sheets(2).Select
    A = Range("a1").CurrentRegion
    i = UBound(A) - 1
    i = Application.WorksheetFunction.Ceiling(i, 4)    '向上舍入为4的整数倍
    A = Range([a1], Cells(i + 1, UBound(A, 2)))
    Sheets(1).Select
    B = [a1:w23]


    For i = 2 To UBound(A) Step 4
        Call Card(i, 0, 0)
        Call Card(i + 1, 0, 12)
        Call Card(i + 2, 12, 0)
        Call Card(i + 3, 12, 12)
        Range("a1").Resize(UBound(B), UBound(B, 2)) = B
        ActiveSheet.PrintOut
    Next i
End Sub


'一张卡(序号, 偏移行, 偏移列)
Sub Card(i, r, c)
    B(r + 5, c + 3) = A(i, 1)
    B(r + 5, c + 6) = A(i, 2)
    B(r + 6, c + 3) = A(i, 3)
    B(r + 7, c + 3) = A(i, 4)
    B(r + 8, c + 3) = A(i, 5)
    B(r + 9, c + 3) = A(i, 6)
    B(r + 10, c + 3) = A(i, 7)
    B(r + 11, c + 3) = A(i, 8)
    B(r + 11, c + 6) = A(i, 9)
End Sub




准考证2.rar (16.42 KB, 下载次数: 58)
回复

使用道具 举报

 楼主| 发表于 2019-8-19 14:27 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2019-8-24 17:39 | 显示全部楼层
爱疯 发表于 2019-8-19 11:47
Dim A, B
Sub test()
    Dim i

身份证没有变化哦, 另外考试成绩对不住
回复

使用道具 举报

发表于 2019-8-26 10:03 | 显示全部楼层
不知道你的附件里是什么情况
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:23 , Processed in 0.352498 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表