打印之后实现表单流水号递增

金樽空对月

代码如下：

1. Private Sub CommandButton1_Click()
   
2. Application.ActiveSheet.PrintOut copies:=1
   
3. With Sheets("Sheet1")
   
4. If .[B1] = "" Or Val(Mid(.[B1].Text, 5, 2)) <> Month(Now()) Then
   
5. .[B1] = Format(Now(), "YYYYMM") & Format(1, "0000")
   
6. Else
   
7. .[B1] = Format(Now(), "YYYYMM") & Format(Val(Mid(.[B1].Text, 8, 4)) + 1, "0000")
   
8. End If
   
9. End With
   
10. End Sub
    

复制代码