Tạo chuỗi mô tả độ dài ngày. (2 người xem)

[emgaingayngo]

Em muốn viết 1 macro mô tả số lượng ngày như trong hình sau :

ví dụ ngày 26/06/15 có độ dài =3, tương tự cho các ngày khác. Mong GPE giúp đỡ. Chân thành cảm ơn.

 

[salam]

Dùng hàm đếm là được mà

 

[emgaingayngo]

Cám ơn các bạn, mình biết dùng công thức. Nhưng cần macro hơn, nếu không đã hỏi bên công thức, cái thực sự cần là cái chuỗi.

 

[SA_DQ]

Muốn VBA thì cũng có thôi; Hàm UDF luôn!

 

[emgaingayngo]

cái này không phải là cái chuỗi bác ơi! Để em mở rộng thêm. any way thank for your answer !

 

[SA_DQ]

cái này không phải là cái chuỗi bác ơi! Để em mở rộng thêm. any way thank for your answer !

Chắc bạn đang cần hàm như thế này

=EmGaiNgayNgo( Rng As Range) sẽ trả về chuỗi "3-4-. . ."

Option Explicit
Function EmGaiNgayNgo(Rng As Range)
 Dim Cls As Range, Tmp$
 Dim Dem As Byte, fDat As Date, lDat As Date
 
 fDat = Rng(1).Value
 lDat = Rng(Rng.Cells.Count)
 For Each Cls In Rng
    If Format(Cls.Value, "mm/dd/yyyy") = Format(fDat, "mm/dd/yyyy") Then
        Dem = Dem + 1
    Else
        Tmp = Tmp & "-" & CStr(Dem)
        Dem = 1
        fDat = fDat + 1
        
        If fDat > lDat Then Exit Function
    End If
 Next Cls
 EmGaiNgayNgo = Mid(Tmp, 2, Len(Tmp)) & "-" & CStr(Dem)
End Function