用Excel和VBA轻松实现桌签批量打印
5页1、用 Excel 和 VBA 轻松实现桌签批量打印用 Excel 来制作桌面标签(以下简称桌签)确实是一个比较新颖的方法,不过要是同时制作很多桌签也还是比较费时的。那么今天笔者就介绍一种用VBA 轻松实现桌签批量打印的方法。一、 准备工作启动 Excel2003( 其他单元格也可以 ),执行 “ 工具 自定义 ” 命令,打开 “ 自定义 ” 对话框。在 “ 命令” 标签中,选中 “ 类别” 下面的 “ 工具 ” 选项,然后在 “ 命令 ” 下面找到 “ 照相机 ” 选项,并将它拖到工具栏合适位置上。在 Sheet1 工作表中 (最好将文档取名保存一下),仿照图 1 的样式,在 B 列相应的单元格中输入需要打印桌签的名称,并在A1 中输入一个名称。图 1 在 C1 单元格 (也可以是其他单元格)中输入公式 :=COUNTA(B:B) ,用于统计所要打印的桌签数目。选中 A1 单元格,设置字符居中对齐,并设置一种适合用作桌签的字体(如魏碑体 )。二、 制作桌签选中 A1 单元格,单击一下工具栏上的“ 照相机 ” 按钮,再切换到 “Sheet2”工作表中,单击一下鼠标,即可得到一张A1 单元格
2、的照片 (图 2)。图 2 小贴士 :这种照片不同于普通图片,它与A1 单元格中的数据建立了链接,随A1 单元格中的字符改变而改变。选中 “ 照片 ” , 执行 “ 格式 图片 ” 命令,打开“ 设置图片格式 ” 对话框,在“ 颜色与线条 ” 标签中,将“ 线条” 设置为 “ 无线条颜色 ” ,点击 “ 确定” 返回。根据桌签底座的尺寸,将“ 照片 ” 调整至合适大小,并将它定位到页面合适位置上。将上述 “ 照片 ” 复制一份,在 “ 设置图片格式 ” 对话框的 “ 大小 ” 标签中,将它 “ 旋转180”,并将它定位到页面合适位置上(效果参见图 2)。三、 编制宏程序按下 “Alt+F11 ”组合键,打开 “Visual Basic 编辑器 ”(图 3),在右侧的 “ 工程资源管理器 ” 区域中,选中 “VBAProject( 桌签.x ls) ”选项,执行 “ 插入 模块” 命令,插入一个模块(模块 1)。图 4 双击 “ 模块 1” ,展开右侧的代码编辑区,将下述代码输入其中: Sub 桌签 () 建立一个名称为 “ 桌签 ” 的宏。For i = 1 To Sheet1.Cel
3、ls(1, 3) 设立一个循环 :开始值为 1,结束值为 Sheet1 工作表 C3 单元格内的值 (即桌签数目 )。Sheet1.Select 选中 Sheet1 工作表。Cells(1, 1).Value = Cells(i, 2).Value 依次将 B 列的桌签字符调入A1 单元格中。Columns(“A:A“).Select 选中 A 列。Selection.Columns.AutoFit 将 A 列设置为 “ 最合适的列宽 ” ,这样让字符不同的桌签自动适应“ 照片” 的大小。Sheet2.Select 选中 Sheet2 工作表。ActiveWindow.SelectedSheets.PrintOut执行一下打印操作,打印出一张桌签。Next 进入下一个循环。Sheet1.Select 桌签全部打印完成后,选中Sheet1 工作表。Range(“B1“).Select 选中 B1 单元格,等待下一次修改字符。ActiveWorkbook.Save 保存当前工作簿文档。Application.Quit 退出 Excel。End Sub 宏的结束符号。小贴士 :上述代码中英文单引号及其后面的字符是对代码的注释,可以不输入。宏的结束符号上面的 4 行代码不输入不影响桌签的打印。输入完成后,关闭“Visual Basic 编辑器 ” 窗口。四、添加按钮切换到 Sheet1 工作表中, 执行 “ 视图工具栏 窗体” 命令,展开 “ 窗体” 工具栏,单击工具栏上的“ 按钮 ” 按钮,在工作表中拖拉出一个按钮,此时系统弹出 “ 指定宏 ” 对话框 (图 4),选中刚才编制的 “ 桌签” 宏,确定返回。图 5 2.将按钮上的文字修改为“ 打印桌签 ” ,再调整好大小,并定位在工作表合适位置上(参见图 1)。以后需要打印桌签时, 只要将相应的字符输入到B 列下面的单元格中, 然后按下 “ 打印桌签 ” 按钮,就一切 OK 了。
《用Excel和VBA轻松实现桌签批量打印》由会员飞***分享,可在线阅读,更多相关《用Excel和VBA轻松实现桌签批量打印》请在金锄头文库上搜索。
人教版一年级下册数学第二单元20以内的退位减法测试卷精品【考试直接用】
人教版一年级下册数学第二单元20以内的退位减法测试卷(实用)word版
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案(夺冠)
人教版一年级下册数学第二单元20以内的退位减法测试卷(典型题)
人教版一年级下册数学第二单元20以内的退位减法测试卷精品(a卷)
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案【精品】
部编版二年级上册道德与法治期中测试卷 (考试直接用)
部编版二年级上册道德与法治期中测试卷 带答案(培优)
部编版二年级上册道德与法治期中测试卷 含答案(精练)
部编版二年级上册道德与法治期中测试卷 及答案【各地真题】
部编版二年级上册道德与法治期中测试卷 及完整答案【名校卷 】
部编版二年级上册道德与法治期中测试卷 【考点精练】
部编版三年级上册道德与法治期末测试卷 (重点)
部编版三年级上册道德与法治期末测试卷 (模拟题)word版
部编版三年级上册道德与法治期末测试卷 附答案(预热题)
部编版三年级上册道德与法治期末测试卷 附参考答案(b卷 )
部编版三年级上册道德与法治期末测试卷 答案下载
部编版三年级上册道德与法治期末测试卷 含答案【夺分金卷 】
部编版三年级上册道德与法治期末测试卷 含完整答案【网校专用】
部编版三年级上册道德与法治期末测试卷 及答案(最新)
2024-04-17 4页
2024-04-17 40页
2024-04-10 2页
2024-04-07 62页
2024-04-07 132页
2024-04-01 19页
2024-04-01 7页
2024-04-01 17页
2024-04-01 28页
2024-04-01 12页