![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLiRv3stADOfCLE3eQGHIoOh45JKMJV3euJCAkcP9mI1IMyxSp9hppClz2k4LIKeT7T7parwEOs3G5w9wrWwLjVzJTC-YKueMPR2FO8JdtA8y7TbiI-iYdyQG22hoHOgyzkX8d/s320/12-8-2010+7-46-21+AM.png)
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
No comments:
Post a Comment