Hot Fox: Re: ]] XL-mania [[ Mengurutkan SubString-Angka dalam String

terça-feira, 1 de dezembro de 2009

Re: ]] XL-mania [[ Mengurutkan SubString-Angka dalam String

"Wow !!!" (bhs jawa-nya = " weee lha dalah...".

Tak bisa daku mengomentarinya lagi...

Nama paling pas untuk formula tsb mungkin : "formula gilak"

Terima kasih pak Anton...

Kalau data-Length nya seragam masih bisa dengan penggabungan "biasa"; seperti ini

=SMALL(--MID(B2,{1,4,7,10,13,16},2),1)&"-"&

SMALL(--MID(B2,{1,4,7,10,13,16},2),2)&"-"&

SMALL(--MID(B2,{1,4,7,10,13,16},2),3)&"-"&

SMALL(--MID(B2,{1,4,7,10,13,16},2),4)&"-"&

SMALL(--MID(B2,{1,4,7,10,13,16},2),5)&"-"&

SMALL(--MID(B2,{1,4,7,10,13,16},2),6)

Di mana-mana, "penggbungan" dengan excel sheet memang 'menjengkelkan'..

Menghadapi Data-Length bervariasi, menggagas algoritmanya lebih jelas & cepat dengan makro (UDF)

Function Xsort(D As String) As String
   Dim v As Variant, w As Variant, n As Integer
   v = Split(D, "-")
   ReDim w(UBound(v))
   For n = 0 To UBound(v)
      w(n) = CInt(v(n))
   Next n
   w = Bubbles(w)
   For n = 0 To UBound(w)
   Xsort = Xsort & CStr(w(n)) & "-"
   Next n
   If Len(Xsort) > 0 Then Xsort = Left(Xsort, Len(Xsort) - 1)
End Function
'-------------

Bubbles adalah UDF lain yg kerjaannya mengurutkan array data.

Jadi "jalan ceritaknya" kira-kira:

1. data string di split agar menjadi array data,

2. (Loop 1) setiap elemen di array tsb dikonversi menjadi bilangan

3. lalu diurutkan (dengan bantuan Bubbles, di dlm Bubles ada loop 2 tingkat)

4. (Loop 3) digabung lagi menjadi data string dengan delimiter "-"

Kebanyakan Loop ya ??

-----------------------------------
----- Original Message -----
From: anton suryadi
To: XL-mania@yahoogroups.com
Sent: Sunday, November 29, 2009 9:31 PM
Subject: Re: ]] XL-mania [[ Mengurutkan SubString-Angka dalam String

Formula berikut ini terinspirasi oleh pendekatan formula yang pertama kali diperkenalkan

ke jagat excel oleh salah satu warga negara Indonesia, dan telah mendapat apresiasi tinggi

dari para Excel Master tingkat dunia!..
terima kasih untuk Om Hady Widjaya n Om Abimono ^_^

=IF(LEN(P3)<LEN(B3)-(LEN("-"&B3)-LEN(SUBSTITUTE("-"&B3,"-0","")))/LEN("-0"),

P3&"-"&INDEX(SMALL(--MID($B3,ROW(INDIRECT("1:"&1+LEN($B3)-LEN(SUBSTITUTE($B3,"-",""))))*3-2,2),

ROW(INDIRECT("1:"&1+LEN($B3)-LEN(SUBSTITUTE($B3,"-",""))))),1+LEN($P3)-LEN(SUBSTITUTE($P3,"-",""))),

RIGHT(P3,LEN(B3)-(LEN("-"&B3)-LEN(SUBSTITUTE("-"&B3,"-0","")))/LEN("-0")))
(array formula, enter dengan Ctrl+Shift+Enter)
>semoga bermanfaat

--------------------
From: siti Vi <setiyowati.devi@gmail.com>
Sent: Fri, November 27, 2009 1:56:01 PM

Ysc: XL-maniawati / XL-maniawan,
Hiburan CelengPalsu- C2 berikut ini, masih ada hubungannnya dengan Celeng-Palsu- C1.

mengkonversi text angka tergabung menjadi text angka tergabung yg sudah terurut
data	hasil yg diinginkan
38-44-23-19-02-15-91-01-45-32	1-2-15-19-23-32-38-44-45-91
05-89-43-11-56-03-25-81-67-29	3-5-11-25-29-43-56-67-81-89
11-93-42-81-10-01-97-36-17-72	1-10-11-17-36-42-72-81-93-97
87-15-22-73-23-46-09-03-38-17	3-9-15-17-22-23-38-46-73-87


38-44-23-19-02-15-91-01-45-32-22	1-2-15-19-22-23-32-38-44-45-91
05-89-43-11-56-03-25-81-67-29-41-05-34	3-5-5-11-25-29-34-41-43-56-67-81-89
11-93-42-81-10-01-97-36-17	1-10-11-17-36-42-81-93-97
87-15-22-73-23-46-09	9-15-22-23-46-73-87
38-44-23-19-02-15-91-01-45-32-22-11-93-42-81-10-01-97-36-17	1-1-2-10-11-15-17-19-22-23-32-36-38-42-44-45-81-91-93-97

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 78

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Momods lagi hanimuuunnn...                                        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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

Going Green: Your Yahoo! Groups resource for green living