手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

excel word doc wps 表格的自动打印数据变化

时间:2024-10-12 05:11:36

1、wps免费版中没有vb编辑器,因为vb编辑器是有版权的,所以使用免费版的wps需要自行安装vb编辑器

excel word doc wps 表格的自动打印数据变化

2、一路下一步安装即可,将vb编辑器装好,装好之后,开发工具一栏就不会是灰色的了

excel word doc wps 表格的自动打印数据变化
excel word doc wps 表格的自动打印数据变化
excel word doc wps 表格的自动打印数据变化

3、打开excel表格后,按alt+f11呼出vb编辑器,哈哈,现在才知道以前上的vb可其实是有用的了吧

excel word doc wps 表格的自动打印数据变化

4、有些情况下,我们在打印Excel文件时,有很多文件,比如打印员工卡,内容格式都一样,就是个别单元格的内容不同,只能改一次打印一次,效率低不说,可能不小心还会改错。当然可以做成几十甚至上百页依次打印,但这也不是高效的方法。提高Excel效率,VBA就要一显身手了。今天就为大家介绍,如何利用VBA实现,Excel表格每打印一次,个别单元格的内容变化一次。这里介绍两种情况,一种是单元格内容有规律的变化,另一种是单元格内容随着数据库变化。

excel word doc wps 表格的自动打印数据变化

5、模型:sheet1中,已经设置好了打印区域。要求每打印一次,单元格B2中的日期就增加一天。

6、Alt+F11,打开VBE,双击sheet1工作表,以确认后续的代码是在sheet1中执行。

excel word doc wps 表格的自动打印数据变化

7、复制如下代码到右侧的空白区域,然后按F5执行代码即可实现每打印一张,B2的日期增加一天。(注意,这里和引用的经验处不同,应该是先更改完单元格数据后,在打印当前的sheet,activeSheet就是你现在界面停留的sheet表格,所以执行打印脚本前,一定要将表格切到你要打的那个)Sub m()For i = 1 To 100Cells(2, 2) = Cells(2, 2) + iActiveSheet.PrintOut copies:=1NextEnd Sub代码详解:1.Sub m()——这是宏名,无需理会;2.For i = 1 To 100——这是控制打印次数,后面的100就是打印的页数,可以通过更改这个数值,来控制打印多少页;3.ActiveSheet.PrintOut copies:=1——这是打印当前页的代码,后面的1代表打印一份,要打几份就改成几;4.Cells(2, 2) = Cells(2, 2) + i——这里的Cells(2,2)就是单元格B2,其中第一个2是行数,第二个2是列数,更改这两个数值,就可以控制让哪个单元格的数值变动;5.Next——继续循环,无需理会;6.End Sub——结束宏,无需理会。

excel word doc wps 表格的自动打印数据变化

8、模型:还是上述中的sheet1中的B2单元格,需要每打印一次,从sheet2中的A1开始往下引用一次数据库中的内容。

excel word doc wps 表格的自动打印数据变化

9、复制如下代码到右侧的空白区域,然后按F5执行代码即可实现每打印一张Sub m()For i 屏顿幂垂= 1 To 12'Ce造婷用痃lls(2, 2) = iCells(3, 2) = Sheets("sheet0").Cells(i, 1)Cells(4, 2) = Sheets("sheet0").Cells(i, 2)ActiveSheet.PrintOut copies:=1NextEnd Sub实现右侧图片数据作为左侧待打印表格的数据源,依次替换单元格注意:‘Cells(2,2)=i 这里的单引号代表这一行被注释(即忽略),所以这一行是不会被执行的

excel word doc wps 表格的自动打印数据变化
excel word doc wps 表格的自动打印数据变化

10、依照上述的两种情况,基本能够解决所有的表格自动变换数据打印的问题了

© 手抄报圈