请教考试座签生成问题

hbdyyx

达州张先生 发表于 2014-11-24 12:05
你好，E列考号有误，应该是双号：2，4,6,8...，另外，能提高一下速度吗？谢谢！

把chxw68上传附件的代码“修改”了，信息正常了，附件在19楼。

达州张先生

hbdyyx 发表于 2014-11-24 11:51
13楼代码修正如下，生成的信息正确了
Sub test()
  Dim r%, i%

如果只有一千多人， brr(m, k * 4 - 3) = "第" & arr(i + k - 1, 1) & "考场"   这句就出错了

达州张先生

hbdyyx 发表于 2014-11-24 12:10
把chxw68上传附件的代码“修改”了，信息正常了，附件在19楼。

19楼的附件，删除一些人，如果只有一千多人， brr(m, k * 4 - 3) = "第" & arr(i + k - 1, 1) & "考场"   这句就出错了，能否修改一下，谢谢！

hlly888

请看附件                        

hlly888

生成 座签.zip (373.43 KB, 下载次数: 14)

2014-11-24 12:47 上传

点击文件名下载附件

yzyyyyyyy

达州张先生 发表于 2014-11-24 12:41
19楼的附件，删除一些人，如果只有一千多人， brr(m, k * 4 - 3) = "第" & arr(i + k - 1, 1) & "考场" ...

最前面加一行
On Error Resume Next

poney

hlly888 发表于 2014-11-24 12:48

从153非标准考场，出现了问题

hlly888

poney 发表于 2014-11-24 14:32
从153非标准考场，出现了问题

请看附件                           

hlly888

生成 座签 2.zip (316.12 KB, 下载次数: 12)

2014-11-24 14:59 上传

点击文件名下载附件

chxw68

感谢hbdyyx修改代码。这段代码发到论坛之后我就发现了其中存在BUG，就是当考生人数为寄数时会出错，只是这两天忙一直没上来修改。至于分页等问题，由于不知道楼主每页想打印几个人，所以一直没有设定。