EXCEL中如果使每次打印自动生成单号,而不用手动去更改?

显示全部楼层 · 2013-4-9 13:27:23

上面的方法好象只能是用VBA方法，如果不熟悉VBA，比较麻烦，需要QQ直接教了。第二个可用公式=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&...

千问 · 2013-4-9 13:27:23

在表的合适位置添加一个按钮控件（更名为：打印）。控件的单击事件如下： Private Sub CommandButton1_Click()
' 打印
'ActiveSheet.PrintOut
' 自动生成单号
Dim a, b, c
a = Range("E1")
c = Val(a)...

千问 · 2013-4-9 13:27:23

vba编辑器中双击workbook 粘贴下面的代码 Private Sub Workbook_BeforePrint(Cancel As Boolean) '如果在弹出的打印对话框取消了打印，编号仍旧会增加。
With Sheets("sheet1").[E2] '假设要改变sheet1的E2单元格
.Value = ...