[milis-komputeraktif] excel - lagi excel - lagi!!! {04}

[InsanBiasa]

Pakai Macro EXCEL/VBA.

Function AddSpace(vInput As String) As String
Dim vTemp1 As String
vTemp1 = ""
For i = 1 To Len(vInput)
       vTemp1 = vTemp1 + Mid(vInput, i, 1) + " "
Next i
AddSpace = vTemp1
End Function


Jonathan Susanto wrote:

thanks banget broooooo.......

saya uda berhasil mencobanya........

tapi bagai mana jika semua di bagi rata


bisakah!!!

thx

Jonathan Susanto
Dalam Proses Belajar. Mencari dan Berbagi Ilmu.
Be Happy!

dengan kata lain, tidak pandang bulu, mao MERCY,HONDA,DAIHATSU,DLL, semua di format menjadi satu spasi antar huruf..

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+

Mailing List KomputerAktif
milis-komputeraktif@news.gramedia-majalah.com

Arsip
http://www.mail-archive.com/milis-komputeraktif@news.gramedia-majalah.com/
------------------------------------------------

untuk berlangganan kirim mail kosong ke :
[EMAIL PROTECTED]

untuk berhenti berlangganan kirim mail kosong ke:
[EMAIL PROTECTED]

addspace.xls
Description: MS-Excel spreadsheet