Dear all exel-lent berikut adalah code untuk find and permanen highlight pada MS WORD MACRO
Sub Find_and_Highlight_Loop() ' ' This macro will find the word in speech marks "", select it, highlight it and ' then move on and find the next one until it reaches the end of the document. ' ' To add more words, then copy the text between the markers and paste after the ' last marker ' Don't forget to replace the word ;-) ' <----------------> Selection.Find.ClearFormatting With Selection.Find .Text = "122" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Loop ' <----------------> End Sub sekiranya bisa menjadi modal untuk memecahkan teka teki angka yg saya miliki. Regards. Pada , Pukka Hamonangan Pardede <angan_l...@yahoo.co.id> menulis: wadoh.. rumit nian.. saya malah menjadi bertambah pusing.. hehehehehe thanks mas Kid buat sarannya.. saya tunggu dulu para master cekrip yg lain dulu bergabung. mana tau saja ada yg punya ide bagus.. :D regards. Pada Minggu, 9 Februari 2014 13:24, Mr. Kid <mr.nm...@gmail.com> menulis: Setelah masuk di-Excel, maka segera ditransformasi menjadi tabel yang sederhana, sehingga yang disimpan sepanjang masa adalah data yang sederhana. Dengan demikian, seluruh proses pengolahan data kapan pun untuk data kapan pun yang telah ada dapat dilakukan dengan mudah. Mewarnai bagian teks dalam Excel tidak bisa dengan mudah dilakukan oleh formula di cell tersebut. Dengan UDF bisa dilakukan tapi formula ditulis di cell lain untuk mengubah format potongan cell lain. Syaratnya pun, cell yang diubah harus memiliki template dan panjang yang tetap. Tentu hal ini tidak bisa memenuhi kasus Anda. Alhasil, maka diperlukan sebuah prosedur Sub (tidak bisa digunakan seperti UDF lagi) untuk mewarnai potongan teks tersebut. Kalau harus pakai prosedur SUB, kenapa ndak dimanfaatkan si prosedur SUB tersebut untuk men-transformasi data hasil export to Excel menjadi sebuah tabel sederhana ? Untuk menampilkan potongan teks yang diwarnai tentu saja masih suatu hambatan. Tetapi, jika maksud dari pewarnaan tersebut adalah menunjukkan bahwa di sms tersebut memang ada item dimaksud, maka sebenarnya bisa disusun output berupa teks sms yang item-itemnya seperti yang dicari. Misal text sms berbunyi blabliblubla ingin menampilkan item yang berbunyi bla. Teks sms ditampilkan pada kolom A, dan kolom B dalam 2 baris akan menampilkan item bla (ada 2 bijik bla) beserta pricenya di kolom C. Bisa jadi nanti ada ide lain untuk melakukan summary data sms setahun yang item bla saja. Kalo ndak salah, pengolahan data akan lebih mudah jika data disusun secara sederhana. Tabel berkaidah database (bukan berarti harus buat database loh ya, karena yang dibutuhkan hanya tabel yang kaidahnya seperti sebuah tabel dalam database) terbukti relatif mudah untuk diolah menjadi banyak output dengan banyak kebutuhan. btw, ini kan sekedar ide sajah... hehehe... sapa tahu ide tersebut sudah diputuskan ndak mungkin dilakukan... (who knows...) hehehe... met berumit ria yak... kalau yang SumIFsC supaya bisa mengabaikan yang teks, kita tunggu yang punya cekrip sajah yah... kalo ndak salah, butuh di cek dulu apakah item yang mau diproses itu numerik atau bukan... tapi ini juga sekedar dugaan sajah... bisa jadi kliru... kalau pakai UDF SumPart, setelah bagian : for lidx=0 to ubound( spart ) diberi cekrip berbunyi : if instr( spart(lidx) , sprice ) <> 0 then lalu sebelum baris : next lidx diberi cekrip berbunyi : endif Wassalam, Kid. 2014-02-09 13:04 GMT+07:00 Pukka Hamonangan Pardede <angan_l...@yahoo.co.id>: > >maaf Mr Kid, >data yg kita hitung berasal dari eksport sms masuk (inbox export to excel) >jadi datanya kadang pendek kadang panjang sekali kadang juga disertakan dengan >nama tau inisial. >sebenarnya formula yg bapak berikan sudah bekerja dengan baik. namun pas >dilapangan baru keliatan ada sedikit problemnya. yaitu sender sering >menyertakan nickname. > > >regards. > > > >Pada Minggu, 9 Februari 2014 12:56, Mr. Kid <mr.nm...@gmail.com> menulis: > > >Kenapa kok datanya ndak disimpan menjadi tabel sederhana berisi setiap item >saja ? >Bukankah dengan mengolah data seperti itu bentuknya menghasilkan kerumitan ? > >Wassalam, >Kid. > > > > > >2014-02-09 12:46 GMT+07:00 Pukka Hamonangan Pardede <angan_l...@yahoo.co.id>: > > >> >>maaf agak telat, ternyata ada sedikit masalah dengan formulanya dilapangan. >>contoh: >>5.12.22#10 = total harga 30 namun setelah saya tambah text hasilnya menjadi >>40 berikut contoh 2: >>5.12.22#10 = total harga 40 (seharusnya 30) >> >> >>mohon bimbingan dan kesabarannya para excel-lent semua. >> >> >>----------------- " file terlampir " ------------------ >> >> >> >>Pada Jumat, 7 Februari 2014 20:30, Pukka Hamonangan Pardede >><angan_l...@yahoo.co.id> menulis: >> >> >>Dear all excel-lent, >>Terimakasih telah membantu saya menyelesaikan kasus angka di excel. >> >> >>semoga Tuhan memberkati anda semua. >> >> >>regards. >> >> >> >>Pada Jumat, 7 Februari 2014 13:29, Jan Raisin <miss.jan.rai...@gmail.com> >>menulis: >> >> >>Pak Pardede, >> >> >>coba diblok semua data yang ingin diubah. >>tekan tombol CTRL H sehingga muncul dialog box Find and Replace >>pada kotak Find what: isi dengan # >>pada kotak Replace with: isi dengan x >>tekan tombol Replace All >> >> >>oia.. UDF SumIfSC sudah didesain untuk hal seperti ini, jadi nanti pada saat >>penggunaannya tinggal masukkan tanda x di antara kutip dua debagai >>delimiter_value-nya >> >> >>Salam, >> >> >> >> >>-Miss Jan Raisin- >> >> >>Pada 7 Februari 2014 12.49, Pukka Hamonangan Pardede <angan_l...@yahoo.co.id> >>menulis: >> >> >>> >>>Dear Miss and Mr Excel-lent >>>Terimakasih atas bantuannya.. >>>maaf bila saya ingin mengganti format tanda " # " menjadi tanda " x " >>>misalnya, bagaimana kah caranya? >>>apa langkah yg harus saya ambil? >>> >>> >>>mohon bimbingan dan kesabarannya. >>> >>> >>>Regards. >>> >>> >>> >>> >>> >> >> >> >> > > >
