已经设置好了打印区域
发布时间：2023-02-13 11:52:17
标签：代码,单元格,打印,这是,Excel教程
Excel设置打印一次单元格内容变一次的步骤：
sheet1中，已经设置好了打印区域。要求每打印一次，单元格B2中的日期就增加一天。
Alt+F11，打开VBE，双击sheet1工作表，以确认后续的代码是在sheet1中执行。
步骤阅读
复制如下代码到右侧的空白区域，然后按F5执行代码即可实现每打印一张，B2的日期增加一天。
Sub m()
For i = 1 To 100
ActiveSheet.PrintOut copies:=1
Cells(2, 2) = Cells(2, 2) + i
Next
End Sub
代码详解：
1.Sub m()——这是宏名，无需理会;
2.For i = 1 To 100——这是控制打印次数，后面的100就是打印的页数，可以通过更改这个数值，来控制打印多少页;
3.ActiveSheet.PrintOut copies:=1——这是打印当前页的代码，无需理会;
4.Cells(2, 2) = Cells(2, 2) + i——这里的Cells(2,2)就是单元格B2，其中第一个2是行数，第二个2是列数，更改这两个数值，就可以控制让哪个单元格的数值变动;
5.Next——继续循环，无需理会;
6.End Sub——结束宏，无需理会。
0
投稿猜你喜欢
如何在Mac上清除磁盘空间？电脑长时间使用如果不清理，运行会越来越缓慢，macdown小编为您推荐这款ClearDisk，操作简单，轻而易举- 为了提供Win10系统电脑的运行速度，有用户不知道Win10系统如何关闭Aero Shake功能？本文将提供win10系统禁用Aero Sh
- wps幻灯片怎么设置魂环播放？wps播放幻灯片的时候，希望幻灯片能循环播放，该怎么设置呢？下面我们就来看看wps幻灯片循环播放的教程，需要的
- 随着时代的发展，笔记本电脑越来越普及，当我们使用Window10操作系统的个人笔记本电脑时，如果忘记了管理员密码该怎么办呢？有人说可以使用U
- 许多用户在使用Excel表格的时候，输入内容发现表格存在分页，但是分页之后表头却不在后面的页里，那么excel表格分页怎么重复表头呢？下面小
- Excel2007基础教程：把工作表窗口拆分为几个窗格如果不喜欢添加额外窗口， Excel 提供了另一种查看相同工作表的多个部分的选项。选择
- Win10 20H2在更新过程中总是会遇到各种各种的问题导致更新失败，那么Win10 20H2更新错误怎么修复？小编给大家列出几种详细的修复
- 一些朋友在Win8.1系统中使用无线网络连接时偶尔会遇到“连接受限或无法连接WiFi”的问题，造成WiFi连接失败或者频繁掉线问题。深度社区
- 现在安装Win10系统的方法有很多种，不少小伙伴第一时间想到是用U盘安装，其实除了此方法，360系统重装大师软件也安装win10系统，那么要
- win10系统word 表格显示不全该怎么办?当我们打开word文档查看内容的时候右侧的内容显示不全，超过了显示范围之外，导致一部分文字查看
- PPT双层饼图怎么制作？当我们在PPT幻灯片中插入饼图时，一般都是默认一层的效果，本期教程小编将教大家制作PPT双层饼图效果，也就是把数据的
- Excel是一个常用办公工具，它本身功能很是强大，自带了很多已经预定义的函数，可以随时根据需要进行调用。那么，Excel怎么使用字符串长度函
- 有时候你会发现当自己需要打印一个文件夹中的所有文件目录时，操作起来比较麻烦，文本教给大家一招。在windows7操作系统中只需稍加改变就可以
- ppt表格中的文字怎么设置水平居中或垂直居中？ppt制作了表格，发现表格总输入的文字是左对齐和顶部对齐的，现在想让文字垂直居中对齐，该怎么设
- 据推测，每个人都遇到过这样的情况，他们需要发布一条消息，但是他们不希望这条消息被其他人复制。这时，他们可以用图片的形式传递信息，这样别有用心
- Excel中的快速填充键ctrl+e没反应，不能用是为什么？Excel中的快速填充键ctrl+e没反应，这是因为Excel版本太低了。Exc
- 在某些情况下，需要把excel中的内容转到word中，简单快捷的方法就是直接复制，但复制过去格式已经变乱了，不再是原来的格式，也不好再编辑，
- 乐视视频怎么关闭弹幕？在看视频的时候最讨厌的就是一些弹幕，各种剧透，很影响观影质量，要怎么关闭弹幕呢，下面就给大家分享具体步骤。首先以网页版
- win10系统很多朋友都安装使用了，但是还有很多朋友对快捷键使用不熟练，下面小编整理本篇教程分享给大家，供大家学习win10系统如何快速切换
- Office 365商业版、商业高级版、商业协作版（下文统称商业版）是微软专门为中小企业推出的Office服务。目前微软将Office 商业
