Ada teman saya minta dibuatkan formula untuk memotong kalimat di dalam
cell, misalnya "Dedy Irawadi Kusnanto" menjadi "dikuswanto" atau
"Irwan Safarian" menjadi "isafarian".
Untuk banyaknya kata selalu berbeda karena (misalnya) untuk nama orang
itu ada yang 2,3,4 atau 5 (contoh : Batman jadi Batman, Wonder Woman
jadi wwoman, Satria Baja Hitam jadi sbhitam, Satria Wajan Hitam Dari
Timur jadi swhdtimur)
Saya coba buatnya menggunakan VBA, yaitu :
Function pisah(kata As String)
Dim mantra() As String
If kata <> "" Then
mantra() = Split(kata, " ")
For i = 0 To UBound(mantra)
If i = UBound(mantra) Then
pisah = pisah & Trim$(mantra(i))
Else
pisah = pisah & Trim$(Left(mantra(i), 1))
End If
Next
pisah = LCase(pisah & "@indovision.tv")
Else
pisah = ""
End If
End Function
Yang saya tanyakan ada tidak caranya kombinasi formula tanpa
menggunakan macro ??
Thx
