Hot Fox: Re: ]] XL-mania [[ Substitute multi karacters yang letaknya tidak beraturan.

segunda-feira, 14 de novembro de 2011

Re: ]] XL-mania [[ Substitute multi karacters yang letaknya tidak beraturan.

Misal data yg akan diproses seperti ini tertulis di cell A1

terpakai ,=**//\\terpakai 123.<<<terpakai123>>> X terpakai 9 t.e.r.p.a.k.a.i. =z=123 < terpakai 123 ? Terpakai 321 XX99W

RUMUS di B1 seperti ini

=Substitusi(A1, "., /X9<>=")

didalam Fungsi (UDF) Substitusi harus ada 2 argument yaitu

(1)

data string yag akan diproses dlm rumus tdi atas diwakili oleh Rujukan ke cell A1

(2)

data string yg berupa rangkaian kriteria (karakter-karakter yg mau dihilangkan)

dlm rumus di atas ditulis secra konstanta : "., /X9<>="

yg artinya Argument No.2 terdiri dari 9 karakter kriteria: titik, koma, spasi. garing, X, 9, <, >, =

Text itu dapat bapak ganti semauk-mauknya...

hasilnya ?

terpakai**\\terpakai123terpakai123terpakaiterpakaiz123terpakai123?Terpakai321W

coding UDF nya?

Function Substitusi(S As String, KriteList As String) As String

Dim i As Integer, Temp As String, k As String

Temp = S

For i = 1 To Len(KriteList)

k = Mid(KriteList, i, 1)

Temp = Replace(Temp, k, "")

Next i

Substitusi = Temp

End Function

emmmm.. Menurut pendapat saya, walaupun deskripsi sudah jelas (menurut penanya)

tidak ada ruginya pengirim problem mengirim bonus berupa lampiran workbook,

karena si penjawab akan perlu DATA untuk mencoba-coba solusi (UDF ataupun

FORMULA)

Jika tidak ada lampiran kiriman: berarti harus kerja-bhakti dulu baru bisa testing-testing...

artinya waktu untuk segera menanggapi problem lain jadi mundur... dikitt...

maaf ngeyelannya sudah mulai ON...

2011/11/9 Anas Baso <anasbaso@gmail.com>

Hello

Saya punya masalah untuk mengganti caracter caracter aneh dalam satu
GABUNGAN KATA YANG PANJANG, dan inigin menghilangkan semua kharater "
Spasi, koma, titik, /, hurup tertentu, angka tertentu, <, >, ?, =" dan
banyak lagi yang letaknya tidak beraturan.
Saya tidak kasih contoh, karena saya yakin, statement diatas susah jelas,

Saya pakai Substitute tapi panjangnya minta ammmmpuuunnnn.
So, can you help with a short forumula or using VBA hould be OK!!
Anas

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 73

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| selamat merayakan idul adha!                                      |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.