[已解决]求助~如何制作销售单号

karlh · 发表于 2012-3-10 11:30

我想弄成销售单号是‘GS+当前日期+001’
然后单击一下这个单元格就能变成GS&当前日期&002 这样递增..

gaosen.rar (4.21 KB, 下载次数: 49)

karlh · 发表于 2012-3-10 11:30

坐等真相..........

雄鹰 · 发表于 2012-3-10 11:40

本帖最后由雄鹰于 2012-3-10 11:42 编辑

Private Sub Worksheet_PivotTableBeforeprint(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
Sheets("sheet2").Range("a1") = Sheets("sheet2").Range("a1") + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("sheet2").Range("a1") = 0 Then
Sheets("sheet1").Range("i5") = "GS" & Format(Now(), "yyyymmdd") & Format(Sheets("sheet2").Range("a1") + 1, "000")
Sheets("sheet2").Range("a1") = Sheets("sheet2").Range("a1") + 1
End If
End Sub

gaosen.zip (19.12 KB, 下载次数: 32)

linch92413 · 发表于 2012-3-10 11:44

这个最佳答案由 linch92413 给出，感谢 linch92413 的回答。

单击隐藏图章

这样看看行不行

gaosen(linch92413).rar (10.86 KB, 下载次数: 136)

zjcat35 · 发表于 2012-3-10 11:53

如果你要重新编号,你直接把原来编号删除后再点击就可!

karlh · 发表于 2012-3-10 11:53

雄鹰发表于 2012-3-10 11:40
Private Sub Worksheet_PivotTableBeforeprint(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeS ...

好像不行啊 = =
你用的是2007版的吗？

ztccsj · 发表于 2012-7-11 23:34

linch92413 发表于 2012-3-10 11:44
这样看看行不行

挺好玩，不知道楼主有啥用

convind · 发表于 2015-1-2 23:53

谢谢分享，辛苦了

		自动登录	找回密码
密码			注册

[已解决]求助~如何制作销售单号

相关帖子