Xin hàm đánh thứ tự theo ngày (4 người xem)

[vubaduc1993]

Em mò mãi không ra hàm làm sao tự động đánh thứ tự theo ngày - các bác giúp em cái được không ạ
ví dụ có 15 dòng ngày 14-6 thì tự động đánh 1 đến 15 - khi nhập 8 lần ngày 15-6 thì tự động thành từ 1 đến 8 nối tiếp . Thank you các bác

 

[befaint]

=COUNTIF($B$2:B2,B2)
Fill down

 

[vubaduc1993]

=COUNTIF($B$2:B2,B2)
Fill down

cảm ơn bác - hóa ra hàm đơn giản như thế mà không nghĩ ra

 

[SA_DQ]

Rỗi việc xin giới thiệu với các bạn cách thức VBA mã hóa số hóa đơn tăng theo ngày

Ngày

Mã Ngày

06/09/2019

I690

06/12/2019

I6C0

06/11/2019

I6B0

06/17/2019

I6H0

06/14/2019

I6E0

06/14/2019

I6E1

06/14/2019

I6E2

06/14/2019

I6E3

06/13/2019

I6D0

06/10/2019

I6A0

Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Sub DanhSoThuTuTheoNgay()
Dim WF As Object, Rng As Range, sRng As Range
Dim fDat As Date, lDat As Date, SoNgay As Integer, STT As Integer, J As Long
Dim MyFormat As String, MyAdd As String

Set WF = Application.WorksheetFunction
fDat = WF.Min(Columns("A:A")):                         lDat = WF.Max(Columns("A:A"))
SoNgay = lDat - fDat
Set Rng = Range([A1], [A1].End(xlDown)):           Rng.Offset(1, 1).ClearContents
MyFormat = Range([A2], [A2].End(xlDown)).NumberFormat
Rng.Offset(1).NumberFormat = "MM/DD/yyyy"
For J = 0 To SoNgay
    Set sRng = Rng.Find(Format(fDat + J, "MM/DD/yyyy"), , xlValues, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address:                                STT = 0
        Do
            sRng.Offset(, 1).Value = DateToStr(fDat + J) & CStr(STT)
            STT = STT + 1
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
    Range([A2], [A2].End(xlDown)).NumberFormat = MyFormat
Next J
Rng.Offset(1).NumberFormat = MyFormat
MsgBox "Chào & Chúc Vui!"
End Sub

Function DateToStr(Optional Dat As Date) As String
If Dat < 9 Then Dat = Date
DateToStr = Mid(Alf, Year(Dat) - 2000, 1) & Mid(Alf, Month(Dat) + 1, 1)
DateToStr = DateToStr & Mid(Alf, Day(Dat) + 1, 1)
End Function

​