EXCEL使用宏实现自动编号打印解决打印一份改一次编号问题

时间:2015-06-01   作者:snow   来源:互联网

Excel表格在工作中会经常涉及到,或许大家会遇到这样的问题,就是打印一份就要改一次编号,很多朋友都对此问题都束手无策。小编建议的方法就是如果表格中的某些数据与编号有某种关联的话,可以考虑用公式,如果没有牵涉到表格中的其它内容,而是与外设有关,可以考虑使用宏。这里的问题是没有牵涉到表格中的其它内容,而是与外设有关,因此可以使用宏来处理。

“宏”,指一系列EXCEL能够执行的VBA语句。如果你要自动执行重复任务,您可以在 Microsoft Office Excel 中快速录制宏,也可以使用 Microsoft Visual Basic 中的 Visual Basic 编辑器编写自己的宏脚本,或将所有或部分宏复制到新宏中来创建一个宏。

步骤:

1、录制宏

依次执行工具----宏----录制新宏,会出现如下图对话框,填写宏名、快捷键以及说明,之后确定即可。

录制新宏

(然后)停止录制

依次执行工具----宏-----停止录制

2、编辑宏

依次执行工具----宏----宏,会出现宏对话框,在宏名中选择之前录制的宏

选择刚录制的宏,单击编辑----打开VB编辑器

编辑宏

提示:除了通过“录制宏”,还可以通过“工具>宏>VB编辑器”,在VB编辑器菜单中选“插入>???rdquo;来创建宏。从某种角度看,一个EXCEL文件就是一个Visual Basic工程,通过“工具>宏>VB编辑器”可以打开此工程(VBAProject),并可看到工程资源管理器(如看不到,可通过“视图>工程资源管理器”打开它)。

如下图所示:

打开VB编辑器

填写如下代码:

这里需要注意的是要同时修改编号数据的两个单元格分别为 G3  与 G17 ,如下图所示:

VB编辑器

下图为一for循环,for循环编程语言中的语句之一,用于循环执行

for循环

3、接着设置G3和G17的单元格格式

单元格格式

如下,应该设置为“文本”格式,

如果EXCEL 中的G3和G17现在的编号均为00651(或者不同),那么,运行宏后,会打印出两张,

一张为00651,第二张为00652,运行完此宏后,此时G3和G17的值均变为00653了。

当然,如果想一次多打几张,如10张,则编辑此宏,将代码行For i = 1 To 2  中的2改为10即可,即For i = 1 To 10。以此类推。  

4、运行宏

如果打印,依次执行工具---宏----宏----运行宏

如果设置了快捷键,则按快捷键就可调出宏,下图红色圈就是以CTRL为辅助键的快捷键。

快捷键调出宏

完毕。以上便是为大家介绍的关于Excel中自动编号打印使用宏的处理方法,经测试简单且实用,如果你在工作中有遇到类似的问题,可以参考下本文,如果没有涉及到,也请看看,以备不时之需。

tag : 自动编号   打印  
相关文章
发表评论