excel套打考场

因为在学校的原因,经常考试要打印考场号与首位考号!

弄了个vba脚本!

下图是套打模板!

excel套打考场

excel套打考场

记录一下!

数据在同一个excel的表1中

下图是考场数据

excel套打模板

excel套打模板

第i列 考场号

第j列 首考号

第k列 尾考号

模板在excel的sss表中!

以下是代码

Dim ii As Integer 定义循环变量
Dim str1, str2, str3 As String 定义临时存储变量
For ii = 4 To 144
Sheets(“Sheet1”).Select
str1 = Range(“i” & Val(ii)).Value
str2 = Range(“j” & Val(ii)).Value
str3 = Range(“k” & Val(ii)).Value
Sheets(“sss”).Select
ActiveSheet.Shapes(“WordArt 1”).Select 选中艺术字
Selection.ShapeRange.TextEffect.Text = “第” & str1 & “场” 填充艺术字
ActiveSheet.Shapes(“WordArt 2”).Select
Selection.ShapeRange.TextEffect.Text = str2 & “—” & str3
‘ActiveWindow.SelectedSheets.PrintOut Copies:=1 打印
Next ii

 » 转载请注明来源:网络蛀虫小窝 » 《excel套打考场》
 » 本站地址:http://www.gomoth.com

标签: