Wa alaikum salam.. Formula dengan fungsi substitute() untuk mengantisipasi : he sells an iron mask he sells a silver mask
Regards. Kid. Mohon Maaf Lahir dan Batin... 2010/9/6 STDEV(i) <[email protected]> > > > 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 <[email protected]> > > > > > 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. > > -- Kid.
