2022-12-18 03:02来源:m.sf1369.com作者:宇宇
你说的编号应该是页码吧:
1. 点击 页面布局
2. 点击 页面设置
3. 选择 页眉./页脚
4. 点击 自定义页脚
5. 根据个人需求在左中右任意一个位子点击大概第三个图标【插入页码】
6. 这时候会自动录入这个 &[页码]
7. 也可直接点击页脚选择合适的页脚
8. 预览的时候就看得到设置好的页码了
输入以下公式,然后向下填充公式
=IF(B2=,,SUBTOTAL(103,$B$2:B2))
公式表示:如果B2为空,就留空;否则返回显示区域的数据个数,作为序号,以来来忽略隐藏行对序号的影响。
详见附图
函数法:
在=ROM()公式所在行的行号
在A2单元格中输入:=ROM(A1)回车,即A2单元格显示数字:1.
然后鼠标放在A2单元格右下角会出现一个黑色十字标志,同样双击光标,序号自动生成。
1、在第一行输入09-0001,在第二行输入09-0002
2、用鼠标选中这两个单元格(反选,划黑)
3、鼠标指向09-0002右下角,图标会变成黑色实心的十字(开始是空心十字)。
4、按住鼠标左键,向下拖动即可。会自动生产09-0003、09-0004.......
假如你的序号分别在a1和a30
设置
a30公式 =a1
然后在VBA编辑器中的thisworkbook代码区输入以下代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheet1.Range(a1) = Sheet1.Range(a1) + 1
End Sub
即可
做个宏, 请参考已答过:
Sub 打印_单击()
Range(U12).Select '[A1]是要变单元格位置
ActiveCell.FormulaR1C1 = [U12] + 1 '1是看你要加多少,[U12]是单元格位置
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份
End Sub