利用已有信息和固定模版批量制作打印准考证和报名信息表

cooldog889 · 发表于 2016-5-23 09:33

因小学升初中报名信息表和准考证需要大量手工填写，容易出错而且工作量太大，所以想利用EXCEL制作一个批量生成和打印《报名信息表》和《准考证》的工具，报名信息表是A4纸大小一张，准考证是A4纸打印四张的，请问可否利用宏和按钮，进行一键生成和打印，最好还可以增加一个选择考点学校的选项。
能帮忙解决问题的朋友我可以给50元微信红包答谢，本人QQ：9677805

信息表准考证.rar (33.72 KB, 下载次数: 79)

爱疯 · 发表于 2016-5-23 10:46

本帖最后由爱疯于 2016-5-23 10:57 编辑

信息表准考证2.rar (40.94 KB, 下载次数: 54)

爱疯 · 发表于 2016-5-23 11:47

信息表准考证3.rar (41.38 KB, 下载次数: 49)

爱疯 · 发表于 2016-5-23 15:32

Option Explicit

Dim arrData() As Variant '学生数据
Dim arrAT() As Variant    '准考证表
Dim moveR As Long          '固定行偏移
Dim moveC As Integer       '固定列偏移

'准考证，Admission ticket
Sub printAT(school As String)
Dim i&, s&
moveR = 11: moveC = 7
arrData = Sheets("准考证信息").Range("a1").CurrentRegion.Value
arrAT = Sheets("准考证").[A1:L20].Value
Call clearAT

For i = 2 To UBound(arrData)
      '1）录入指定学校的数据
      If arrData(i, 5) = school Then
         s = s + 1
         Call inputAT(s, i)
      End If

      '2）输出并打印
      If (s Mod 4 = 0 And s > 1) Or i = UBound(arrData) Then
         Sheets("准考证").Range("a1").Resize(UBound(arrAT), UBound(arrAT, 2)) = arrAT
         Sheets("准考证").PrintOut
         Call clearAT
      End If
Next i
End Sub

Private Sub clearAT()
Dim j%
For j = 1 To 4
      Call inputAT(j, 1)
Next j
Sheets("准考证").Range("a1").Resize(UBound(arrAT), UBound(arrAT, 2)) = arrAT
End Sub

'录入准考证
Private Sub inputAT(s, i)
Dim r&, c%

'行偏移r2，列偏移c2
Select Case s Mod 4
Case 1
      r = moveR * 0: c = moveC * 0
Case 2
      r = moveR * 0: c = moveC * 1
Case 3
      r = moveR * 1: c = moveC * 0
Case 0
      r = moveR * 1: c = moveC * 1
End Select

'录入
arrAT(3 + r, 2 + c) = IIf(i = 1, "", arrData(i, 1))
arrAT(4 + r, 2 + c) = IIf(i = 1, "", arrData(i, 2))
arrAT(5 + r, 2 + c) = IIf(i = 1, "", arrData(i, 3))
arrAT(6 + r, 2 + c) = IIf(i = 1, "", arrData(i, 4))
arrAT(7 + r, 2 + c) = IIf(i = 1, "", arrData(i, 5))
arrAT(8 + r, 2 + c) = IIf(i = 1, "", arrData(i, 6))
arrAT(8 + r, 5 + c) = IIf(i = 1, "", arrData(i, 7))
arrAT(9 + r, 3 + c) = IIf(i = 1, "", arrData(i, 8))
End Sub

信息表准考证4.rar (43.72 KB, 下载次数: 58)

爱疯 · 发表于 2016-5-23 16:02

信息表准考证5.rar (42.17 KB, 下载次数: 75)

罗达 · 发表于 2016-5-23 16:22

邮件合并也是可以的吧，自己百度就可解决。

爱疯 · 发表于 2016-5-23 16:37

信息表准考证6.rar (43.61 KB, 下载次数: 15)

dyzx · 发表于 2016-5-24 13:57

爱疯发表于 2016-5-23 16:37
忘了加多选（学校），加了

[size=11.666666030883789px]爱疯老师:报名登记表怎样打印，好像没有见到代码或按钮，多谢指教。

cooldog889 · 发表于 2016-5-24 14:36

爱疯发表于 2016-5-23 16:37
忘了加多选（学校），加了

版主，考生信息表的打印还不能够实现。

cooldog889 · 发表于 2016-5-24 14:37

另外请告知您的微信号，谢谢。

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

利用已有信息和固定模版批量制作打印准考证和报名信息表

相关帖子