给发票编号写个序号

xing_chen

因为一张发票有时会开具多行，这样就有一个问题，这么给发票编号写个对应的序号：
序号         发票编号

有哪位老师，看看帮忙写个代码、谢谢

wanao2008

但愿能帮到你：

Sub byWanao()
    Dim i%, fpStr$, jsNum%, stNum%
    jsNum = jsNum + 1
    Cells(2, 1) = "'" & Right("000" & jsNum, 3)
    stNum = 2
    For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(i, 2) <> Cells(stNum, 2) Then
            jsNum = jsNum + 1
            Cells(i, 1) = "'" & Right("000" & jsNum, 3)
            stNum = i
        End If
    Next
End Sub

3190496160

06年就注册 的老会员了，这个问题，应该可以搞定的了呀，
关键是要明白，你是需要按钮来实现，还是输入发票编号，自动判断填充序号？？

3190496160

Sub 序号()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim ar As Variant
With Sheet1
    r = .Cells(Rows.Count, 2).End(xlUp).Row
     .Range("a2:a" & r) = Empty
    ar = .Range("a1:b" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            If Not d.exists(Trim(ar(i, 2))) Then
                n = n + 1
                ar(i, 1) = Format(n, "000")
                d(Trim(ar(i, 2))) = ""
            End If
        End If
    Next i
     .Range("a1:b" & r) = ar
End With
Set d = Nothing
MsgBox "ok!"
End Sub

3190496160

填充序列号.rar (12.73 KB, 下载次数: 11)

2021-7-24 18:13 上传

点击文件名下载附件

xing_chen

3190496160 发表于 2021-7-24 18:13

谢谢！是呀，一眨眼15年了，以前注册是咨询公式函数类的，后来工作内容变化就有一段时间不上此类网站。现在工作有时需要，才又上此类网站咨询。记得那时也看见代码，感觉高深。VBA代码没有系统学习，只是零时抱佛脚，拿来修改。所以会时不时咨询你及其他老师了。有劳大家了。

准提部林

Sub TEST()
Dim Arr, T$, i&, N&
Arr = Range([a1], [b65536].End(xlUp))
For i = 2 To UBound(Arr)
    Arr(i, 1) = ""
    If Arr(i, 2) = T Then GoTo i01
    N = N + 1: T = Arr(i, 2)
    Arr(i, 1) = "'" & Format(N, "000")
i01: Next i
[a1].Resize(UBound(Arr)) = Arr
End Sub

xing_chen

准提部林 发表于 2021-7-24 21:01
Sub TEST()
Dim Arr, T$, i&, N&
Arr = Range([a1], .End(xlUp))

谢谢！我运行了，通过！你有劳了。

65861954

每天最大乐趣就是在论坛下载各种问题自己研究，尝试自己写代码，然后再对比各位大神写的代码。收获颇多。蓝桥大神，liuliang大神，3190496160，准提部林,,,,等等还有很多大神。这些大神代码学到了很多，很多时候有种豁然开朗的感觉，哇，原来可以这样用。原来还能这样写。谢谢大神们！

xing_chen

65861954 发表于 2021-7-24 21:54
每天最大乐趣就是在论坛下载各种问题自己研究，尝试自己写代码，然后再对比各位大神写的代码。收获颇多。蓝 ...

谢谢！有同感。只是遗憾我不能做到每天上此论坛，只是有时遇到问题才上，但各位老师对同一问题的不同代码，确实有助于我这种初学者对代码的理解。