Lo mbak kok para pemirsa, kayanye belajar excel mo tampil di sctv nih dengan
pembawa acara Mbak ctv,..
________________________________
From: STDEV(i) <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Mon, September 6, 2010 9:25:43 AM
Subject: Re: [belajar-excel] Sorting data mengabaikan KataDepan "The", "An" dan
"A"
kpd Mr. Kid, mbak Haps titip salam & mengucapkan terima kasih & selamat mudik,
katanya...
(sok tahu dia.,..)
Jadi benar apa yg diajarkan oleh Mr. Kid, yaitu
** kita perlu kolom bantu (dummies) yg isinya formula, dimana formula
tsb sanggup
menghilangkan "The ", "An " dan "A " terutama di Kata terdepannya
** Lalu tabel yg sudah menjadi 2 kolom tsb di SORT, dengan kolom kunci
sorting adalah
kolom bantu tadi..
kalau perlu hasil formula dapat di konversi dulu menjadi konstanta (dengan copy
> PasteSpecial
> Value); Setelah itu KolomBantu dapat saja disembunyikan. Memang begitulah
>nasib pembantu,
setelah bekerja dan menghasilkan sesuatu, dia tidak diajak tampil di pesta-nya.
Rumus yang diberikan mas Kid cukup pendek dan sederhana (93 karakter)
walaupun rumus ini juga memberi bonus: "menghilangkan "The /An /A " di tengah
kalimat", jika ada,
tetapi tidak ada pengaruhnya ketika kolom hasilformula (hanya) dipakai sbg
kunci
sorting
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(" "&LOWER(A3)&" "," a "," ")," an ","
")," the "," "))
Selain itu "para pamiarsa" boleh mencoba beberapa rumus lain seperti di bawah
ini:
(1) 135 karakter, rumus klasik berbasis fungsi IF (untung itemnya cuma 3 bijik)
=LOWER(IF(LEFT(A3,2)="A ",RIGHT(A3,LEN(A3)-2),IF(LEFT(A3,3)= "An
",RIGHT(A3,LEN(A3)-3),
IF(LEFT(A3,4)="The ",RIGHT(A3, LEN(A3)-4),A3))))
(2) 137 karakter, rumus yang mengada-ada, array formula yg tidak perlu di
enter
dgn Ctrl+Shift+Enter
=LOWER(RIGHT(A3,LEN(A3)-
IF(MAX((LEFT(A3,{2,3,4})={"A ","An ","The
"})*{1,2,3})>0,MAX((LEFT(A3,{2,3,4})={"A ","An ","The "})*{2,3,4}),0)))
(3) 90 karakter, rumus perbaikan dari rumus (2), lihat array konstanta-nya
(semula ada 2) sekarang tinggal satu
=LOWER(IF(OR(LEFT(A3,FIND(" ",A3)-1)={"A","An","The"}),RIGHT(A3,LEN(A3)-FIND("
",A3)),A3))
rumus lain tetap ditunggu, anggap saja ini sbg Challenge...
~siti~
2010/9/5 Mr. Kid <mr.nm...@gmail.com>
>
> Hai,
> Dengan bantuan sebuah kolom kriteria sort (kolom yang akan di sort nantinya),
>yang
>
> berisi formula menghilangkan seluruh kondisi yang tak diperlukan.
>
> Kriteria yang dihilangkan :
> The An A
>
> kolom C diberi formula :
> =Trim( Substitute( Substitute( Substitute( " " & Lower( b2 ) & " ", " a ", "
> "
>), " an ", " " ), " the ", " " ) )
>
> kemudian lakukan sort terhadap kolom C.
>
> Jika kriteria sangat banyak, lebih baik gunakan UDF untuk mengisi kolom ini,
>atau malah proses seluruhnya
>
> dengan VBA tanpa kolom bantu dalam sebuah prosedur Sub.
>
> Regards.
> Kid.
