[已解决]如何根据考场信息和考生信息批量生成考试准考证1

fanyixiao123

如何根据考场信息和考生信息批量生成考试准考证，照片可不用

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-23 16:58

批量生成考试准考证.rar (40.09 KB, 下载次数: 386)

2014-5-23 16:58 上传

点击文件名下载附件

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, n&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. Sheet3.Activate
   
7. For i = 2 To UBound(arr)
   
8.     d(arr(i, 1)) = arr(i, 2)
   
9. Next
   
10. Application.ScreenUpdating = False
    
11. For i = 2 To UBound(brr) - 1 Step 2
    
12.     [d2] = brr(i, 3)
    
13.     [d3] = brr(i, 2)
    
14.     [d4] = brr(i, 5)
    
15.     [d5] = d(brr(i, 5))
    
16.     [d6] = brr(i, 4)
    
17.     [i2] = brr(i + 1, 3)
    
18.     [i3] = brr(i + 1, 2)
    
19.     [i4] = brr(i + 1, 5)
    
20.     [i5] = d(brr(i + 1, 5))
    
21.     [i6] = brr(i + 1, 4)
    
22.     n = Range("c65536").End(xlUp).Row + 3
    
23.     [a1:i6].Copy Cells(n, 1)
    
24.     For j = 1 To 6
    
25.         Cells(n + j - 1, 1).RowHeight = Cells(j, 1).RowHeight
    
26.     Next
    
27. Next
    
28. [a1:i8].Delete Shift:=xlUp
    
29. Application.ScreenUpdating = True
    
30. End Sub
    

复制代码

dsmch

………………

zjdh

1. Sub 打印准考证()
   
2.     ARR = Sheets("考生信息").Range("A1").CurrentRegion
   
3.     For I = 2 To UBound(ARR) Step 10
   
4.         S = 0
   
5.         For J = 2 To 30 Step 7
   
6.             For T = 4 To 9 Step 5
   
7.                 Cells(J, T) = ARR(I + S, 3)
   
8.                 Cells(J + 1, T) = ARR(I + S, 2)
   
9.                 Cells(J + 2, T) = ARR(I + S, 5)
   
10.                 Cells(J + 3, T) = ARR(I + S, 6)
    
11.                 Cells(J + 4, T) = ARR(I + S, 4)
    
12.                 S = S + 1
    
13.             Next
    
14.         Next
    
15.         ActiveSheet.PrintOut  '打印
    
16.         清除准考证
    
17.     Next
    
18. End Sub
    
19. Sub 清除准考证()
    
20.     For J = 2 To 30 Step 7
    
21.         For T = 4 To 9 Step 5
    
22.             Cells(J, T).Resize(5, 1).ClearContents
    
23.         Next
    
24.     Next
    
25. End Sub

复制代码

ppp710715

用Word 的邮件合并功能更好

zjdh

批量生成考试准考证.rar (40.09 KB, 下载次数: 386)

2014-5-23 16:58 上传

点击文件名下载附件

fanyixiao123

zjdh 发表于 2014-5-23 16:58

谢谢大师，真是高手啊，我怎么就学不会呢？

fanyixiao123

dsmch 发表于 2014-5-23 15:13
………………

谢谢啊，大师傅！

ht094156

zjdh 发表于 2014-5-23 16:58

很厉害，真的很方便，见识了

dyzx

zjdh 发表于 2014-5-23 16:58

请问zjdh老师：如果将考场信息排成“新考场样表”的形式且考生是随机排位的，代码应该怎样修改，多谢老师指教。