Wow, tq very much,, Sudah terselesaikan..
Powered by Telkomsel BlackBerry® -----Original Message----- From: Markonah <[email protected]> Sender: [email protected] Date: Fri, 22 Jun 2012 21:21:26 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] PENGELOMPOKAN TANGGAL 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* > > >
