Tecnologia, programação e muito Visual FoxPro.

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

__._,_.___
Recent Activity:
+-:: 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.

.

__,_._,___

Nenhum comentário:

Arquivo do blog