Tạo số phiếu thu/chi tự động tăng dần theo tháng, năm (1 người xem)

[littlecat1987]

Nhờ mọi người sửa dùm mình code tạo số phiếu thu/chi tự động tăng dần theo tháng, năm
Mình đã tạo được số phiếu tự động theo tháng năm, nhưng chưa tạo được số phiếu tăng dần theo loại phiếu thu/chi
Cám ơn

 

[Ba Tê]

Nhờ mọi người sửa dùm mình code tạo số phiếu thu/chi tự động tăng dần theo tháng, năm
Mình đã tạo được số phiếu tự động theo tháng năm, nhưng chưa tạo được số phiếu tăng dần theo loại phiếu thu/chi
Cám ơn

Hàm Excel được không?

E3="P" & C3 & TEXT(COUNTIFS($A$3:A3;A3;$C$3:C3;C3);"000") & "-" & TEXT(A3;"mmyy")

Hoặc "táng" cho nó 1 lần bằng Sub:

Public Sub GPE()
Dim Dic As Object, sArr(), dArr(), I As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range([A3], [A3].End(xlDown)).Resize(, 3).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
    Tem = sArr(I, 1) & sArr(I, 3)
    If Not Dic.Exists(Tem) Then
        Dic.Add Tem, 1
        dArr(I, 1) = "P" & sArr(I, 3) & Format(1, "000") & "-" & Format(sArr(I, 1), "mmyy")
    Else
        Dic.Item(Tem) = Dic.Item(Tem) + 1
        dArr(I, 1) = "P" & sArr(I, 3) & Format(Dic.Item(Tem), "000") & "-" & Format(sArr(I, 1), "mmyy")
    End If
Next I
[D3].Resize(I - 1) = dArr
Set Dic = Nothing
End Sub

 

[giangleloi]

Hàm Excel được không?

E3="P" & C3 & TEXT(COUNTIFS($A$3:A3;A3;$C$3:C3;C3);"000") & "-" & TEXT(A3;"mmyy")

Công thức thật tuyệt