excel2010 vba代码
新建一个excel文件，此文件包含两张工作表：“考签打印B4纸”，“排考名单”。如图所示：
打开“考签打印B4纸”工作表，如图所示，设置纸张大小及页边距
在“考签打印B4纸”工作表中，设计如图所示的考签模板，选中A1：AC26这部分区域，把它们设置为打印区域。
分别在b3单元格中输入公式：=INDIRECT('排考名单!A'&CEILING((ROW()-1)/5,1)*6-5+CEILING(COLUMN()/5,1)-1+($P$2-1)*30+'2')；b4单元格中输入公式：=INDIRECT('排考名单!b'&CEILING((ROW()-1)/5,1)*6-5+CEILING(COLUMN()/5,1)-1+($P$2-1)*30+'2');b5单元格中输入公式：='第'&INDIRECT('排考名单!D'&CEILING((ROW()-1)/5,1)*6-5+CEILING(COLUMN()/5,1)-1+($P$2-1)*30+'2')&'场' ；A6单元格中输入公式：=$AF$3；D4单元格中输入公式：=INDIRECT('排考名单!C'&CEILING((ROW()-1)/5,1)*6-5+CEILING(COLUMN()/5,1)-1+($P$2-1)*30+'2') ；D5单元格中输入公式：=INDIRECT('排考名单!E'&CEILING((ROW()-1)/5,1)*6-5+CEILING(COLUMN()/5,1)-1+($P$2-1)*30+'2') ;在Af3单元格中输入：认真答题，诚信考试 .
选中如图所示的区域，执行复制命令，然后选f3单元格，按ctrl+v键，把第一张考签的内容和公式复制到第二张考签中去。
然后依次类推，把第一张考签的内容与公式复制到第3-30张签中去，效果见下图。
把考生的排考名单导入“排考名单”工作表中去（注意各列内容顺序要一致，并按考场升序排列，以便打印时按考场顺序打印。），这时候“考签打印B4纸”工作表中的考签内容马上就会有更新，如图所示。至此，我们已经完成考签模板的设计，实现了导入考生排考名单，考签就会自动生成的的功能，目前的设计还只能看到第一场的考签，其他场的还看不到。下一讲我们将继续分享如何对所有场的考签预览和连续打印。
本考签模板是按30人一场进行设计的。
考生的排考名单各列内容一定要与“排考名单”工作表的各列内容顺序一致，并按考场升序排列以便打印时按考场顺序打印。