每打印一次。数字加1，VBA怎么写

ljc6

yaojil 发表于 2018-6-8 19:17
这样吗？？？？？

现在有个问题，同一天里，上午打开一次，号数0001开始，然后中午关了，下午再次打开，还是0001开始，能不能改成 同一天里再次打开的时候，号数从最后一次的号数开始累加！比如，早上我号数用到0010，然后下行再次打开的时候 ，从0011开始！

ljc6

yaojil 发表于 2018-6-8 19:17
这样吗？？？？？

能不能改成，在同一天里，不管什么时候打开的，号数可以累加，比如，上午打开是从0001开始，用到0010号，再次打开的时候，从0011开始，而且号数避开 “4” 这个数字

zopey

ljc6 发表于 2018-6-12 14:01
能不能改成，在同一天里，不管什么时候打开的，号数可以累加，比如，上午打开是从0001开始，用到0010号， ...

Private Sub Workbook_Open()
Dim a, b, c
a = Format(Date, "yyyymmdd")
b = CStr(Sheet1.[a2].Value)

If a = b Then
    c = Sheet1.[a3].Value + 1
    If c Mod 10 = 4 Then c = c + 1
    Sheet1.[a3] = Format(c, "0000")
Else
    Sheet1.[a2] = Format(Date, "yyyymmdd")
    Sheet1.[a3].NumberFormatLocal = "@"
    Sheet1.[a3] = "0001"
End If
End Sub

yaojil

同一天连续打印

ljc6

yaojil 发表于 2018-6-12 19:30
同一天连续打印

不行啊！还是打开还是0001

ljc6

zopey 发表于 2018-6-12 14:44
Private Sub Workbook_Open()
Dim a, b, c
a = Format(Date, "yyyymmdd")

问题解决了一个，但是打印的时候不能避开“4”这个数字

yaojil

这样试试呢

ljc6

yaojil 发表于 2018-6-15 07:48
这样试试呢

很好用，谢谢，大神
但是我想再麻烦一下，能否在点击打印按钮之后，弹出对话框提示，几个选项，然后先择了选项后，选项内容会自己填写到指定的一个单元格内

yaojil

无附件，无米之炊？？？

ljc6

yaojil 发表于 2018-6-15 16:18
无附件，无米之炊？？？

我自己修改了一下，可以用，不知道对不对！还请指教！