作者:乔山办公网日期:
返回目录:excel表格制作
你需要什么规律?这个估计只能用VBA实现了
或者你在word里设置个模板,然后用邮件合并打,这样打印出来的东西,想怎么变就怎么变
1、打开一个excel表格。
2、在表格中的第一列和第二列分百别输入1、3。
3、鼠标在第一个度单元格中,点击鼠标左键不放,拖动到第二个单元格中,然后松知开鼠标。
4、然后鼠标放在第二个单元格的右下角处,道当鼠标指针变成一个加号的时候,按住鼠版标左键不放,往下拖动。
5、此时,鼠标拖动过的单元格内,都会自动从上权至下依次加2填入单元格内。
1:用EXCEL做的话只能用宏~但是这种功能要求我还没有尝试过,不知道可否~
2:用别的软件
补充:
Sub Macro1()
'
' Macro1 Macro
' 宏由 zhai 录制,时间: 2008-7-11
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("D6").Select
ActiveCell.FormulaR1C1 = "1"
Range("D6").Select
Selection.Copy
Range("B2:B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
这样可以~~你看看改改,每次打印7a64e78988e69d83337就直接运行宏就可以,不用点打印。
这样同样是改了你的文件内容了~~所以,要是不改动内容,只能用别的专用的打印程序了
实现方法如下:
假设编码在来G1单元格,使用下面代码可实现打印和自动编码递增。
按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去。
回到源excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“zd打印”。
使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一。
Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("g1"))
s = s + 1
Range("g1") = "'" & Right("0000" & s, 5)
End Sub