Wednesday, December 08, 2010

Code: JejerVertical

Untuk menjejerkan data-data pada cell di MS Excel seperti pada gambar diatas:

Function JejerVertical(r As Range, ByVal Delim As String) As String
Dim s As String
Dim i As Integer
s = ""
For i = 1 To r.Rows.Count
s = s & r.Cells(i, 1).Value & Delim
Next i
JejerVertical = s
End Function