Public Function RemoveSpace(kata As String)
' Author : I Ketut Wiryadinata
' Program : menghilangkan spasi diantara huruf/angka
Lagi:
If InStr(kata, " ") = 0 Then
RemoveSpace = kata
Exit Function
Else
kata = Left(kata, InStr(kata, " ") - 1) & Right(kata, Len(kata) - InStr(kata, " "))
GoTo Lagi ' ulangi proses sampai tidak ada lagi spasi dalam kata
End If
End Function
Cara memakai function RemoveSpace ini :
Misalnya anda memiliki data di cell A1 yang isinya : I n d o n e s i a, maka untuk menghapus spasi diantara huruf-huruf itu, tuliskan formula di cell B1 =RemoveSpace(A1). Otomatis di B1 akan tertulis Indonesia.
Bagi anda yang belum pernah menggunakan VBA, click disini untuk mengetahui langkah-langkah dalam menggunakan Visual Basic Editor (VBE) yang built in dalam MS Excel
6 komentar:
terima kasih pak sangat membantu. lalu bagaimana bila setelah space tersebut hilang action kita selanjutnya adlah ALT+ENTER.. terima kasih
Pak Fikri,
Spasi yang sudah hilang masih berupa hasil sebuah rumus atau function, sehingga kalau dicopy biasa ketempat (Cell) lain tidak akan sama hasilnya. Agar hasilnya sama harus di "paste spceial", centang "value" nya saja. maka setelah itu siap utk di copy kemana saja dan hasilnya sama.
Thank you atas responsnya, bapak termasuk yang berminat untuk hal seperti ini. Masih banyak yang ingin saya upload, tapi karena belum banyak peminatnya saya tunggu sampai banyak yang tanya.
Salm kenal pak Fikri.
SAYA UDAH COBA DI OFFICE 2007. tapi kok malah muncul #name? itu kenapa yaa??
terimakasih template VBA nya pak sangat bermanfaat,
tapi adakah rumus yang lebih komprehensif untuk mengubah data text yang ada spasi di antara kata nya, tapi tidak akan mengubah teks yang sudah benar..
misalnya ada yang i n d o n e s i a, tapi sudah ada Amerika Serikat (sudah benar),
terimakasih sebelumnya maaf merepotkan :)
Chrisna, maaf baru sempat ngblog lagi.
Sepertinya harus dibuat program tambahan utk itu.
Thanks very much, perfectly (y)
Posting Komentar