1建立宏
打开宏对话框,在宏名的文本框中输入“准考证生成系统”,然后单击“创建”按钮,在打开的Microsoft Visual Basic窗口中依次输入下面的程序代码:
Sub准考证生成系统()
’在该系统中,sheet1是以每个记录占一行的方式存放基础数据;
’sheet2是所生成表格的模板,在sheet3中由此模板生成的表格用来存放一个记录;凡是表中不变的内容,可在模板中直接填上。’sheet3用来存放所生成的表格。
Dimx As IntegerDimy As Integer Dim i As IntegerDim k As Integer Dim jAs Integer Dim f As Integer Dim2 As IntegerDims As Integer Dim w As Integer x=InputBox(“请输入起始行号”)’输入sheet1中要处理的记录的起始行号y=InputBox("请输入终止行号”)’输入sheet1中要处理的记录的终止行号
z=10000m2/l/enkiIcan z是所生成表格可能占有工作表的行数,只要所给的数据大于实际占用的行数就可以。
s=12
’s是指模板所占的行数(包括表格前后预留的行数).