excel打印编号自动递增
@戚便4366：Excel 怎样打印时自动递增序列号 -
毕垄13490534127…… 1、首先点击【文件】,如图所示. 2、然后在打开的信息界面点击【打印】,如图所示. 3、在“打印”界面向下滚动【设置】位置的滚动条,找到并点击【页面设置】,如图所示. 4、在“页面设置”窗口点击【工作表】选项卡,在【打印】区域找到“行号列标”,勾选其前面的复选框,【确定】设置生效,如图所示. 5、现在可以在打印预览中看到表格行和列的编号了,下次再打印该文件时Excel将自动打印这些编号,完成效果图.
@戚便4366：高人,想请问一下在EXCEL中打印时怎么设置编码会自动增加? -
毕垄13490534127…… 可以用下面代码实现 Sub 打印() s = Range(＂B1＂) '编号在B1单元格,有7位字符 ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页 Range(＂B1＂) = Right(＂0000000＂ & s + 1, 7) '打印完毕后让序号加一 End Sub 效果见附件
@戚便4366：求在excel某个单元格中怎样打印一组递增的编号? -
毕垄13490534127…… Sub 打印() for i=1 to 50 ActiveWindow.SelectedSheets.PrintOut Range(＂B3＂) = 1309000+i End Sub
@戚便4366：用EXCEL打印表格 自动加编码
毕垄13490534127…… 假设编码在G1单元格,使用下面代码可实现打印和自动编码递增. 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去. 回到excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”. 使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一. Sub 打印() ActiveWindow.SelectedSheets.PrintOut s = Val(Range(＂g1＂)) s = s + 1 Range(＂g1＂) = ＂'＂ & Right(＂0000＂ & s, 5) End Sub 如有疑问,可以H我.
@戚便4366：请问一下在EXCEL中打印时怎么设置编码会自动增加 -
毕垄13490534127…… 使用宏可以实现: for i=1 to 500 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range(＂H3＂).Select ActiveCell.FormulaR1C1 = Range(＂H3＂) + 1 next i
@戚便4366：Excel表里怎么设置一个编码会随着打印页自动变 -
毕垄13490534127…… 把当前日期=NOW()以数值格式显示在票号位置,小数点后保留5位就可以了.每秒变化一次.如果需要保存打印底稿就需要把票号在打印前固定下来,记住一定要在打印前清除公式,不然底稿和打印出的票号就不一致了,那麻烦就大了.可手动清除公式,也可录制宏来解决.不知你原稿形式不好说具体.
@戚便4366：excel如何实现打印后文本中的数字自动递增 -
毕垄13490534127…… 做一个宏吧,代码如下: Sub 按钮1_单击() Range(＂A1＂).Select '[A1]是要变单元格位置 ActiveCell.FormulaR1C1 = [A1] + 1 '1是看你要加多少,[A1]是单元格位置 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份 End Sub
@戚便4366：excel中在序号如果在上面改变,下面的如何自动增加 -
毕垄13490534127…… 在excel中,如果想设置改变一个序号,下面自动增加,可以通过简单的公式设置即可.1、纵向公式置自动增加序号.如图所示,G2单元格的公式为=G1+1,因为是相对引用,当公式向下复制时,G3单元格的公式变成=G2+1,向下以此类推,当起始单元格G1的值改变以后,下面单元格的值也会随着改变.2、横向公式设置自动增加序号.如图L2单元格的公式为=K2+1,该公式原理与上相同,只不过是变为横向而已.这是一个简单公式相对引用的巧妙运用,虽然看似简答,却需要了解相对引用的原理,只有引用方式用对了,公式才能返回正确的数值.
@戚便4366：怎么使excel表格单元格里的序号在每次打印出来的序号都自动加1 比如E4单元格里“1015 - 001“,打印一次就变为”1015 - 002“ 看了好多答案,自己试了好久还是不行,急需各位大虾的帮助,谢! -
毕垄13490534127…… Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim zuo, you zuo = Left(Sheets(1).Range(＂e4＂), WorksheetFunction.Find(＂-＂, Sheets(1).Range(＂e4＂)) - 1) you = Right(Sheets(1).Range(＂e4＂), Len(Sheets(1).Range(＂e4＂)) - ...
@戚便4366：在EXCEL中 一个单元格的序号比如2012040910001怎么在打印一次后自动变成2012040910002
毕垄13490534127…… 得用宏,且应该是点打印时,先序号自动增加,然后存盘打印.另外存放该序号的单元格,先得右键点它,设置单元格格式,数字,文本,确定. 假设数据在Sheet1的单元格F2.同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的...
毕垄13490534127…… 1、首先点击【文件】,如图所示. 2、然后在打开的信息界面点击【打印】,如图所示. 3、在“打印”界面向下滚动【设置】位置的滚动条,找到并点击【页面设置】,如图所示. 4、在“页面设置”窗口点击【工作表】选项卡,在【打印】区域找到“行号列标”,勾选其前面的复选框,【确定】设置生效,如图所示. 5、现在可以在打印预览中看到表格行和列的编号了,下次再打印该文件时Excel将自动打印这些编号,完成效果图.
@戚便4366：高人,想请问一下在EXCEL中打印时怎么设置编码会自动增加? -
毕垄13490534127…… 可以用下面代码实现 Sub 打印() s = Range(＂B1＂) '编号在B1单元格,有7位字符 ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页 Range(＂B1＂) = Right(＂0000000＂ & s + 1, 7) '打印完毕后让序号加一 End Sub 效果见附件
@戚便4366：求在excel某个单元格中怎样打印一组递增的编号? -
毕垄13490534127…… Sub 打印() for i=1 to 50 ActiveWindow.SelectedSheets.PrintOut Range(＂B3＂) = 1309000+i End Sub
@戚便4366：用EXCEL打印表格 自动加编码
毕垄13490534127…… 假设编码在G1单元格,使用下面代码可实现打印和自动编码递增. 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去. 回到excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”. 使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一. Sub 打印() ActiveWindow.SelectedSheets.PrintOut s = Val(Range(＂g1＂)) s = s + 1 Range(＂g1＂) = ＂'＂ & Right(＂0000＂ & s, 5) End Sub 如有疑问,可以H我.
@戚便4366：请问一下在EXCEL中打印时怎么设置编码会自动增加 -
毕垄13490534127…… 使用宏可以实现: for i=1 to 500 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range(＂H3＂).Select ActiveCell.FormulaR1C1 = Range(＂H3＂) + 1 next i
@戚便4366：Excel表里怎么设置一个编码会随着打印页自动变 -
毕垄13490534127…… 把当前日期=NOW()以数值格式显示在票号位置,小数点后保留5位就可以了.每秒变化一次.如果需要保存打印底稿就需要把票号在打印前固定下来,记住一定要在打印前清除公式,不然底稿和打印出的票号就不一致了,那麻烦就大了.可手动清除公式,也可录制宏来解决.不知你原稿形式不好说具体.
@戚便4366：excel如何实现打印后文本中的数字自动递增 -
毕垄13490534127…… 做一个宏吧,代码如下: Sub 按钮1_单击() Range(＂A1＂).Select '[A1]是要变单元格位置 ActiveCell.FormulaR1C1 = [A1] + 1 '1是看你要加多少,[A1]是单元格位置 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份 End Sub
@戚便4366：excel中在序号如果在上面改变,下面的如何自动增加 -
毕垄13490534127…… 在excel中,如果想设置改变一个序号,下面自动增加,可以通过简单的公式设置即可.1、纵向公式置自动增加序号.如图所示,G2单元格的公式为=G1+1,因为是相对引用,当公式向下复制时,G3单元格的公式变成=G2+1,向下以此类推,当起始单元格G1的值改变以后,下面单元格的值也会随着改变.2、横向公式设置自动增加序号.如图L2单元格的公式为=K2+1,该公式原理与上相同,只不过是变为横向而已.这是一个简单公式相对引用的巧妙运用,虽然看似简答,却需要了解相对引用的原理,只有引用方式用对了,公式才能返回正确的数值.
@戚便4366：怎么使excel表格单元格里的序号在每次打印出来的序号都自动加1 比如E4单元格里“1015 - 001“,打印一次就变为”1015 - 002“ 看了好多答案,自己试了好久还是不行,急需各位大虾的帮助,谢! -
毕垄13490534127…… Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim zuo, you zuo = Left(Sheets(1).Range(＂e4＂), WorksheetFunction.Find(＂-＂, Sheets(1).Range(＂e4＂)) - 1) you = Right(Sheets(1).Range(＂e4＂), Len(Sheets(1).Range(＂e4＂)) - ...
@戚便4366：在EXCEL中 一个单元格的序号比如2012040910001怎么在打印一次后自动变成2012040910002
毕垄13490534127…… 得用宏,且应该是点打印时,先序号自动增加,然后存盘打印.另外存放该序号的单元格,先得右键点它,设置单元格格式,数字,文本,确定. 假设数据在Sheet1的单元格F2.同时按Alt和F11进入宏界面,在左上窗口找到本工作簿的...
