|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
1. total宏是统计当月打印次数和当月最后件号(序号)的,
是特定在“查询”页运行的,由“统计”按钮触动运行。
2. 按你的修改如下,运行正常。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect ("123")
With Sheets("存储")
bh = Year(Date) & Format(Month(Date), "00") '编号前段
If Left([f8], 6) = bh Then '如是同月
[f8] = bh & Format(Mid([f8], 7) + 1, "00000") '编号加1
Else
[f8] = bh & "00001" '重起编号
End If
Application.Calculation = xlAutomatic
[e37] = Val([e37]) + 1 '件数加1
Application.Calculation = xlManual
h = .[k65536].End(3).Row + 1 '存储位置
If .[a1] < " " Then h = 1 '空库处理
.Cells(h, 1) = [e37] '存序号
For r = 15 To 39 '存随机数据
ar = Range("b" & r & ":g" & r)
.Cells(h, r * 6 - 73).Resize(1, 6) = ar
Next r
End With
ActiveSheet.Protect ("123")
End Sub
3. 真不明白你除了记录防伪数据外,还要记录36行、38行那些东西干嘛? |
|