用 Excel 和 VBA 轻松实现桌签批量打印3

按下“Alt+F11”组合键，打开“Visual Basic编辑器”，在右侧的“工程资源管理器”区域中，选中“VBAProject(桌签.xls)”选项，执行“插入→模块”命令，插入一个模块(模块1)。

　　⒉双击“模块1”，展开右侧的代码编辑区，将下述代码输入其中:

　　Sub 桌签() ’建立一个名称为“桌签”的宏。

　　For i = 1 To Sheet1.Cells(1, 3) ’设立一个循环:开始值为1，结束值为Sheet1工作表C3单元格内的值(即桌签数目)。
　　Sheet1.Select ’选中Sheet1工作表。
　　Cells(1, 1).Value = Cells(i, 2).Value ’依次将B列的桌签字符调入A1单元格中。
　　Columns(“A:A“).Select ’选中A列。

页码：[1] [2] [3] [4] [5] 第3页、共5页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明