mungkin seperti ini (ini masih versi asal asalan, tetapi pelan pelan dapat diperbagus logikanya)
Function KelompokTgl(vRange As Range, TgRange As Range) As String
' Markonah for BeExcel Kasus # 17751
'-----------------------------------
Dim v As Long, i As Integer, S As String
For v = WorksheetFunction.Max(vRange) To 1 Step -1
For i = 1 To vRange.Columns.Count
If Not vRange(1, i).Value = vbNullString Then
If vRange(1, i).Value = v Then
S = S & TgRange(1, i).Value & ","
End If
End If
Next i
If Len(S) > 0 Then S = Left(S, Len(S) - 1)
S = S & " @ " & v & "S" & ", "
Next v
If Len(S) > 6 Then S = Trim(Left(S, Len(S) - 7))
If Right(S, 1) = "," Then S = Left(S, Len(S) - 1)
KelompokTgl = S
End Function
*2012/6/22 Kurei recca <[email protected]> *
>
> *Saya sedang mengerjakan macro UDF, akan tetapi saya kesulitan dalam
> mengelompokkan,*
> *Lebih jelasnya dapat dilihat di lampiran*
> *Mohon Pencerahannya,*
> *Best Regards*
>
>
>
UDF Pengelompokan Tanggal (Markonah).xlsm
Description: Binary data
