Excel如何设置打印一次单元格内容变一次

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——结束宏,无需理会。

分享到 :
相关推荐