tag:blogger.com,1999:blog-80502595123773545172024-02-06T18:10:07.132-08:00EXCEL MACRO AND AUTOHOTKEY TIPSBlog tentang macro excel dan auto hotkey untuk mempermudah pekerjaan.
Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.comBlogger37125tag:blogger.com,1999:blog-8050259512377354517.post-25168464369551894592015-06-24T02:43:00.000-07:002015-06-24T02:43:02.516-07:00Bagaimana filter hanya untuk isi data cell tertentuSering kali kita menggunakan fasilitas filter di excel untuk menganalisa data.<br />
<br />
Nah, untuk lebih spesificnya kita memrlukan suatu kolom hanya menampilkan suatu kata saja.<br />
<br />
kalau kata tersebut hanya 1 atau 2 kali kita gunakan cukup dengan fasilitas filter pilih contain kata tertentu untuk ditulis.<br />
<br />
Tapi kalau kita filternya harus banyak kata dan beberapa kali ada baiknya kita gunakan saja 1 cell tertentu dan kita tulis suatu kata didalamnya sebagai patokan filter data.<br />
<br />
<blockquote class="tr_bq">
<u>dibawah ini macro untuk filter data tidak mengandung"-----"</u></blockquote>
<blockquote class="tr_bq">
<span style="color: magenta;">ActiveSheet.Range("datafull").AutoFilter Field:=4, Criteria1:="<>*----*", _</span></blockquote>
<blockquote class="tr_bq">
<span style="color: magenta;"> Operator:=xlAnd</span><br />
</blockquote>
<blockquote class="tr_bq">
<u>dibawah ini macro untuk filter data =nmbak</u></blockquote>
<blockquote class="tr_bq">
<span style="color: magenta;">ActiveSheet.Range("$A$5:$I$703").AutoFilter Field:=4, Criteria1:=nmbak _</span></blockquote>
<blockquote class="tr_bq">
<span style="color: magenta;"> , Operator:=xlAnd</span> </blockquote>
<blockquote class="tr_bq">
<u>dibawah ini macro untuk filter data (hanya yang mengandung kata pada cell atau range nmbakj) :</u><br />
<span style="color: magenta;">ActiveSheet.Range("$A$5:$I$703").AutoFilter Field:=4, Criteria1:="*" & _</span></blockquote>
<blockquote class="tr_bq">
<span style="color: magenta;">Range("nmbakj").Value & "*" , </span><span style="color: magenta;">Operator:=xlAnd</span> <br />
</blockquote>
<br />
Demikian penjelasan dari saya, selanjutnya saya akan post semula macro yang sering jadi kendala dalam pekerjaan<br />
<blockquote class="tr_bq">
</blockquote>
Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-51259548493499479732014-09-30T20:38:00.000-07:002014-09-30T20:38:47.335-07:00mempercepat pembuatan macro excelSetelah banyak belajar tentang macro excel.<br />
maka langkah selanjutnya adalah membuat suatu program yang bisa digunakan untuk bisa membantu untuk mempercepat pembuatan macro excel.<br />
karena tidak mungkin menghapal kode scrip macro yang begitu banyak, maka perlu dibuatkan kumpulan rumus atau kumpulan formula dan fungsi dalam pembuatan macro. (bisa dalam sebuah file excel ataupun sebuah program tersendiri.<br />
<br />
<br />
<a name='more'></a> <br />
<br />
<span style="color: white;"><br /></span>
<span style="color: white;">yaitu dengan menggunakan template fungsi macro excel.</span><br />
<span style="color: white;">dengan template tersebut setelah dijalankan maka yang keluar adalah yang kita inginkan saja tidak keseluruhan kumpulan rumus atau kumpulan formula dan fungsi dalam pembuatan macro.</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">Saya punya satu template yang cukup membantu untuk membuat macro excel tersebut.</span><br />
<span style="color: white;">siapa yang mau bisa menghubungi saya </span><br />
<span style="color: white;">saya jual murah deh cuma 20 $ atau 200.000.</span><br />
<span style="color: white;">bentuknya dalam file excel bisa dikirm lewat email....</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html</span><br />
<br />
<br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-70969022231134677902014-09-17T01:26:00.000-07:002014-09-17T22:26:05.066-07:00Membuat link dengan mudah menggunakan menu paste linkPekerjaan yang cukup memakan waktu pada excel salah satunya adalah membuat link link perhitungan. adakah cara yang lebih mudah dalam membuat link di excel?<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Biasanya kalau mau membuat link pertama di cell yang kita taruh link kita ketik "=" atau "+" lalu kita arahkan cursor ke sumber link. sumber link ini bisa bermacam macam bisa dari sheet yang sama, bisa dari sheet yang berbeda tapi file yang sama, bisa juga dari file yang berbeda dan malah berbeda folder lagi. contoh seperti dalam gambar<br />
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;"> </span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizzfimogjWB-kk4bUAcfX-3kI8JXzQ55odPbvmXforTgyfPyCkGWdr_qAPm9vRlo8haOtPgrSSA3ZyxNv6v8GZEmOHmLXaDyKBYIjtn555Bv2qSfhlY7R_aHvRW1DlLVeyuZjL8LTDc4bY/s1600/link0.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizzfimogjWB-kk4bUAcfX-3kI8JXzQ55odPbvmXforTgyfPyCkGWdr_qAPm9vRlo8haOtPgrSSA3ZyxNv6v8GZEmOHmLXaDyKBYIjtn555Bv2qSfhlY7R_aHvRW1DlLVeyuZjL8LTDc4bY/s200/link0.jpg" height="166" width="200" /></a></div>
<br />
<br />
kalau cuma bikin satu link tidak begitu merepotkan, tapi kalau ratusan atau ribuan. hayoooo. masa bolak balik dari file satu ke file yang lain atau dari sheet satu ke sheet yang lain sampai puluhan kali.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;"></span></a><br />
<a name='more'></a><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Membuat link memang merepotkan tapi ada beberapa tips yang dapat mengurangi kesusahan tersebut :<br />
<br />
<ol>
<li>Menggunakan paste special paste link. </li>
</ol>
Disini kita mengubah cara membuat link dari cara yang biasanya. Biasanya cursor ditaruh ditempat link lalu dicari sumber linknya. seperti gambar diatas. Sekarang cara yang baru kebalikannya.<br />
<br />
Yaitu kita cari sumber link dulu baru kita copy dengan "CTRL+C" atau klik kanan pilih copy. baru kita cari tempat dimana link akan ditempatkan. Cell dimana Link akan ditempatkan tinggal paste link dari menu paste spesial. Dengan cara klik kanan pilih paste spesial dan pilih paste link kemudian enter. nah otomatis hasilnya nanti di cell nya langsung kelihatan formula linknya ke sumber asal.<br />
<br />
Tapi perlu di ingat disini hasil link sudah memakai absolut atau tanda $ yang artinya kalau mau copy ke bawah atau kemana saja linknya akan tetap tidak mengikuti cell. contoh dibawah :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEju5DcSK3oC8oy6daamowTWznbFWBRq2b6FhrhKr39Q_DRiPFga91pYbJtyaagRisoHofJCVkOL2t13oI9waSS4VnWstfGJisJ3Qg885eLRpHeEJ2mfgRH-A32K2PjeFCmbWYgmsRtG76A1/s1600/link+baru.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEju5DcSK3oC8oy6daamowTWznbFWBRq2b6FhrhKr39Q_DRiPFga91pYbJtyaagRisoHofJCVkOL2t13oI9waSS4VnWstfGJisJ3Qg885eLRpHeEJ2mfgRH-A32K2PjeFCmbWYgmsRtG76A1/s640/link+baru.jpg" height="233" width="640" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Membuat link dengan mudah menggunakan Paste link</td></tr>
</tbody></table>
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;"> </span><br />
2. Cara diatas bisa digunakan untuk membuat link dari cell yang banyak misal beberapa baris, atau beberapa kolom bahkan satu tabel penuh bisa dicopy linknya dengan menggunakan cara yang diatas.<br />
<br />
3. Untuk lebih memudahkan lagi pada excel 2007 keatas, bikin aja paste spesial--> paste link menjadi shortcut atau icon.<br />
Dengan cara klik kanan dan pilih add quick access toolbar. nanti akan muncul icon bulat disamping icon save dst dipaling atas.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgyAPpOPdP0H-mv8BF6_JdhVpZNYO6-w39oN7y2SgYLWnrFozJGeSLD8LhmSvNkwjAnOofEJPggdZuW4KR1vXn5rupVrbseFYHFihXuAeOjS_4dWZTQxP9izBIxAYZkEFeZKdivhxLf7y8l/s1600/addquickaccs.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgyAPpOPdP0H-mv8BF6_JdhVpZNYO6-w39oN7y2SgYLWnrFozJGeSLD8LhmSvNkwjAnOofEJPggdZuW4KR1vXn5rupVrbseFYHFihXuAeOjS_4dWZTQxP9izBIxAYZkEFeZKdivhxLf7y8l/s1600/addquickaccs.jpg" height="259" width="320" /></a></div>
<br />
<br />
Untuk mengetahui shortcutnya tekan ALT nanti di icon icon paling atas disamping icon save dan icon lainnya akan angka angka, setiap icon ditandai angka mulai icon save ditandai no.1, lalu mungkin undo no.2 , dst.... baru icon bulat baru yang dibuat pasti ada angka yang menandainya. misalnya tandanya mungkin no. 7. Itu artinya kalau mau paste link tinggal tekan "ALT+7" untuk membuat paste link. tidak perlu lagi klik kanan atau pilih gambar paste.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjAdMJe3hf4lfDVSYkiofg5wxGEHkP4ax6jSv7O4eDJCqpUy1XUYjbaRUJyyUGnK3aQ1RMssfZwsq6ptvtxaj1K1_dcr8a1gu7REghF5wk-lNNQ8cjmPGuZt0S0g9VA2gO3rAVgJOc10Zz/s1600/Icon+paste+link.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjAdMJe3hf4lfDVSYkiofg5wxGEHkP4ax6jSv7O4eDJCqpUy1XUYjbaRUJyyUGnK3aQ1RMssfZwsq6ptvtxaj1K1_dcr8a1gu7REghF5wk-lNNQ8cjmPGuZt0S0g9VA2gO3rAVgJOc10Zz/s1600/Icon+paste+link.jpg" height="278" width="320" /></a></div>
<br />
Semoga berguna untuk menanggapi komentar dibawah.<br />
<br />
Cara add quick access toolbar ini juga berguna untuk fungsi yang lainnya seperti paste value, paste formula, dan lainnya.<br />
<span style="color: white;"> </span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com6tag:blogger.com,1999:blog-8050259512377354517.post-6497312028119121102014-09-16T10:00:00.000-07:002014-09-17T02:04:59.912-07:00Macro excel untuk menulis rumus atau formulaBagaimana caranya memasukkan rumus excel ke dalam macro excel vba?<br />
<br />
Memang digunakan cara khusus untuk memasukkan rumus excel ke dalam macro excel vba, karena penulisan rumus dalam excel secara langsung berbeda dengan penulisan rumus atau fungsi menggunakan macro.<br />
<br />
contoh rumus rumit berikut bagaiman penulisan dalam macronya?<br />
=IF(ISERROR(FIND("POST",B1,1)+FIND("DLKT4",B1,1))=FALSE,"MASUK","KELUAR")<br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
Caranya adalah :<br />
1. Tulis rumus atau fungsi di cell yg sudah ditentukan seperti biasa tanpa macro.<br />
2. Setelah rumus selesai dibuat.<br />
<br />
<a name='more'></a>3. Baru mulai record macro. (lihar posting sbelumnya mengenai recording macro in excel)<br />
4. Saat record macro sudah jalan sorot cell yang berisi rumus tadi, lalu tekan {F2} dan enter.<br />
5. Lalu stop macro recording.<span style="color: white;">http://mymacrosformula.blogspot.com/ </span><br />
6. lalu lihat macro yang sudah jadi (View macro dengan "tekan ALT+F8")<br />
7. maka hasil nya akan kelihatan contoh rumus diatas (misal rumus ada di cel c187) akan menjadi :<br />
<span style="color: white;"> http://mymacrosformula.blogspot.com/</span><br />
<span style="color: magenta;">ActiveCell.FormulaR1C1 = _<br /> "=IF(ISERROR(FIND(""POST"",R[-186]C[-1],1)+FIND(""DLKT4"",R[-186]C[-1],1))=FALSE,""MASUK"",""KELUAR"")"</span><br />
<span style="color: magenta;"></span><br />
<span style="color: magenta;"></span><br />
<span style="color: magenta;"></span>
Silahkan coba (rumus sepanjang apapun bisa dicari penulisan macronya dengan cara di atas).<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com1tag:blogger.com,1999:blog-8050259512377354517.post-53843517586809128302014-09-11T20:34:00.000-07:002014-09-16T20:08:53.328-07:00Makro desktop (AHK) drag otomatis dengan mouseSekarang saya akan membahas autohotkey. saya bisa artikan kalau ahk adalah salahsatu makro dekstop. sama dengan macro excel bekerja di excel, AHK bekerja untuk di desktop. bisa merekam perintah dan menjalannya juga.<br />
<br />
sekarang saya sedang belajar bagaimana agar bisa mouse drag atau blok suatu tabel di web secara otomatis hanya dengan menentukan titik awal bloknya saja dengan satu kali click.<br />
<br />
<br />
<a name='more'></a><br />
berikut contoh scriptnya:<br />
<br />
<span style="color: purple;">KeyWait, LButton, D ; Wait for the left mouse button to be pressed down.<br /><span style="color: white;">;http://mymacrosformula.blogspot.com/2014/09/makro-desktop-ahk-drag-otomatis-dengan.html</span><br />MouseGetPos, startxpos, startypos<br /><span style="color: white;">;;[[http://mymacrosformula.blogspot.com/2014/09/makro-desktop-ahk-drag-otomatis-dengan.html]]</span><br /><br />MouseClickDrag, Left, startxpos, startypos, 700,700</span><br />
<br />
nanti disambung lagi<br />
<br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-12674757099803456672014-09-05T01:05:00.003-07:002014-09-18T03:01:14.996-07:00macro excel lebih fleksibelseringkali kalau melihat macro excel bekerja bisa bikin pusing.<br />
<br />
untuk mengatasinya gunakan kode:<br />
- diawal macro<br />
<span style="color: purple;"> Application.ScreenUpdating = False</span><br />
dan diakhir macro gunakan kode :<br />
<span style="color: purple;"> Application.ScreenUpdating = True</span><br />
<br />
untuk kode makro yang langsung menunjuk alamat sel, akan terlalu riskan, dan tidak fleksibel<br />
karena saat letak cel berubah maka macro tidak akan jalan malah salah copy.<br />
seperti contoh dibawah :<br />
<span style="color: purple;"> Range("S10").Select</span><br />
<br />
<br />
<br />
agar macro lebih fleksible saat blok atau pilih beberapa cell langsung aja di bikin referensi dengan define name, contoh range diberi nama refername:<br />
<span style="color: purple;">ActiveWorkbook.Names.Add Name:="refername", RefersTo:=Selection</span><br />
<br />
nanti saat proses bisa langsung menunjuk ke referensi nama sel<br />
contoh proses filter dibawah:<br />
<br />
<span style="color: purple;"> ActiveSheet.Range("refername").AutoFilter Field:=8, Criteria1:="=*arti*" _<br /> , Operator:=xlOr, Criteria2:="=*ada*" </span><br />
<br />
atau proses copy contoh:<br />
<span style="color: purple;"> Application.Goto Reference:="almckintfc"</span><br />
<span style="color: purple;"> Selection.Copy</span><br />
<br />
<br />
saat pertama kali buka file untuk mendukung fleksibilitas.<br />
maka blok atau drag sell tidak usah nyebut alamat cell.<br />
<br />
<a name='more'></a><br />
<br />
tapi bisa dengan blok ke ujung kanan lalu ke ujung bawah dan langsung beri nama rangenya.<br />
<br />
<span style="color: purple;">Range(Selection, Selection.End(xlToRight)).Select</span><br />
<span style="color: purple;">Range(Selection, Selection.End(xlDown)).Select</span><br />
<span style="color: purple;">ActiveWorkbook.Names.Add Name:="refername1", RefersTo:=Selection</span><br />
<br />
bisa juga dengan blok langsung dari tempat awal ke ujung akhir cell dan langsung beri nama rangenya.<br />
<br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">Range(Selection, ActiveCell.SpecialCells(xlLastCell))</span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">ActiveWorkbook.Names.Add Name:="refername1", RefersTo:=Selection</span></span><br />
<br />
<br />
<br />
<span style="color: white;"><b><u><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> http://mymacrosformula.blogspot.com/</span></u></b></span><br />
<br />
<br />
<b><u><span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: black;">Baiklah sekarang kita mulai masukkan dalam sebuah persoalan:</span></span></span></u></b><br />
<br />
<span style="color: #4c1130;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">soal : aku ingin agar bisa table hasil salinan atau copyan (dari web misalnya) ke excel langsung bisa dipaste dan langsung bisa disortir. dan tempat pastenya bisa dimana saja? bisa dicell mana saja. (tidak ditentukan tempat tabelnya di cell mana)</span></span><br />
<span style="color: #4c1130;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">dan yang menjadi key untuk sortirnya adalah kolom ke tiga</span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><br /></span></span>
<span style="color: #a64d79;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">jawab : </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">tehniknya </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- blok tabel dgn macro drag / blok range sampai ke ujung kanan dan drag sampai ke ujung </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> bawah. <span style="color: white;">http://mymacrosformula.blogspot.com/ </span></span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- gunakan macro define name untuk menamakan tabel.</span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- gunakan macro bolak balik cell untuk menempatkan cursor di tempat paling kiri dan paling </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> atas tabel. atau a1 pada tabel. </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- gunakan macro offset cell untuk memindahkan cursor ke header kolom ketiga (yg menjadi </span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> kunci sortir). <span style="color: white;">http://mymacrosformula.blogspot.com/</span></span></span><br />
<span style="color: lime;"><br /><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- gunakan macro define name untuk menamakan header yg menjadi key sortiran.</span></span><br />
<span style="color: lime;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">- gunakan macro range untuk blok range tabel.</span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: lime;">- baru terakhir gunakan makro sortir dengan sort key nya adalah referensi sell yang sudah diberi nama tadi.</span> </span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><br /></span></span>
<br />
<br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;">contoh macronya:</span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><br /></span></span>
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> Range(Selection, Selection.End(xlToRight)).Select<br /> Range(Selection, Selection.End(xlDown)).Select<br /><span style="color: white;"> '[[http://mymacrosformula.blogspot.com/2014/09/macro-excel-lebih-fleksibel.html]] </span><br /> ActiveWorkbook.Names.Add Name:="area", RefersTo:=Selection<br /> <br /> ActiveCell.Offset(1, 0).Select<br /> ActiveCell.Offset(-1, 0).Select</span></span><span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> </span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: white;"> '[[http://mymacrosformula.blogspot.com/2014/09/macro-excel-lebih-fleksibel.html]] </span></span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> </span></span></span></span><br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> ActiveCell.Offset(0, 3).Select</span></span></span></span><br />
<br />
<span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> ActiveWorkbook.Names.Add Name:="kolomtiga", RefersTo:=Selection</span></span><span style="color: purple;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"><span style="color: white;"><span style="font-family: "Helvetica Neue",Arial,Helvetica,sans-serif;"> '[[http://mymacrosformula.blogspot.com/2014/09/macro-excel-lebih-fleksibel.html]] </span> </span> <br /> Range("area").Select<br /> Selection.Sort Key1:=Range("kolomtiga"), Order1:=xlAscending, Header:=xlGuess, _<br /> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom </span></span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-14221767878551103762014-09-02T22:47:00.001-07:002014-09-18T03:01:15.001-07:00copy paste antar workbook yang telah dibuka otomatis dengan macro excelsudah lama aku tidak nulis.<br />
sekarang kaya nya mau mulai lagi.<br />
<br />
apa yang akan dibahas ya...<br />
<br />
- makro excel bisa otomatis mengenali file yang dipilih di antara beberapa file yang sudah dibuka. untuk tujuan copy paste antar file.<br />
- dan tidak perlu mencatat nama file dengan persis cukup dengan beberapa kata yang mewakili dan membedakan dengan file lainnya.<br />
<br />
senjata atau jurus apa yang dipakai :<br />
<span style="color: white;"><span style="background-color: white;">http://mymacrosformula.blogspot.com/</span></span><br />
- macro untuk memanggil semua nama file excel yang sedang atau masih dibuka.<br />
- bikin kata kunci di sell tertentu (terdiri satu atau dua kata yang mewakili beberapa nama file excel)<br />
- makro mencari kata kunci pada list nama file yang sedang dibuka.<br />
- gunakan macro define name menggunakan dim as string untuk menjadikan nama file sebagai referensi.<br />
- jalankan <span style="color: black;"><a href="http://mymacrosformula.blogspot.com/">macro copy paste</a></span> otomatis antar file excel yang dibuka tadi (tanpa takut salah copy atau tempat paste)<br />
<br />
kegunaan :<br />
- tehnik ini kegunaanya adalah tidak perlu pusing memikirkan nama file yang panjang dan tepat dalam hal copy paste antar beberapa file excel..<br />
<br />
<br />
demikian...<br />
nanti disambung dengan kode kodenya <span style="color: white;">kalau ada yang nanya atau koment</span> <br />
<span style="color: white;"><br /></span>
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-65711862805715012812014-02-01T04:32:00.000-08:002014-09-18T19:03:22.410-07:00Bagaimana Caranya membuat Macro ExcelSebagai lanjutan dari posting sebelumnya tentang <a href="http://mymacrosformula.blogspot.com/2011/08/bagaimana-membuat-otomatisasi.html" target="_blank">bagaimana membuat otomatisasi menggunakan macro excel vba</a> dibawah ini disampaikan cara membuat program macro excel untuk tingkatan selanjutnya.<br />
<br />
<div style="text-align: center;">
<span style="font-weight: bold;"></span></div>
Bagaimana Caranya membuat program macro excel<br />
<br />
1. Caranya dengan membuat rekaman dengan fasilitas macro recorder.<br />
<span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
2. Setelah selesai rekaman, kita edit hasil rekaman dan cari yang kemungkinan tidak bisa jalan kalau di play ulang.<br />
<br />
3. Beberapa hal dalam macro yang biasanya di edit sendiri setelah selesai merekam macro, yaitu diantaranya : <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
<br />
<ul>
<li>a. <a href="http://mymacrosformula.blogspot.com/2011/06/navigasi-cell-dalam-macro-excel-vba.html" target="_blank">Navigasi cell</a> (mengarahkan cell menuju kemana) <span style="color: white;">http://mymacrosformula.blogspot.com</span></li>
<li>b. <a href="http://mymacrosformula.blogspot.com/2011/04/macro-untuk-meletakkan-memilih-cell-dan.html" target="_blank">Navigasi cell special</a> ( mengarahkan cell ke arah tertentu spt : paling atas, paling bawah, paling ujung dsb)
</li>
<li>c. Mengganti ganti file workbook yang aktif dan mengganti sheet yang aktif dimana macro bekerja.</li>
</ul>
<br />
4. Membuat macro excel menjadi fleksibel dengan menggunakan <a href="http://mymacrosformula.blogspot.com/2011/05/flexibilitas-dalam-bikin-rumus-dan-link.html" target="_blank">macro cell reference</a>, tujuannya agar macro tetap jalan walau ada perubahan tempat cell.contoh macro reference seperti :<br />
<br />
<ul>
<li>a. Menggunakan <a href="http://mymacrosformula.blogspot.com/2012/11/menggunakan-dim-dan-filename-untuk.html" target="_blank">statement dim</a> <span style="color: white;">http://mymacrosformula.blogspot.com/</span></li>
<li>b. Menggunakan define name atau range yang diberi nama <span style="color: white;">http://mymacrosformula.blogspot.com/</span></li>
<li>c. Kalau ada pengerjaan filter, mesti cek lagi tabelnya dijadikan define agar tidak berubah ubah.</li>
</ul>
<br />
<a name='more'></a><br />
<br />
5. Menggunakan template macro yang biasa dipakai untuk mengedit dan menyesuaikan macro yang sudah jadi hasil rekaman. Seperti contoh contoh macro dibawah ini : <span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<br />
<br />
<div class="WordSection1">
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr> <td style="-moz-background-clip: border; -moz-background-inline-policy: continuous; -moz-background-origin: padding; background: rgb(79, 129, 189) none repeat scroll 0% 0%; border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="-moz-background-clip: border; -moz-background-inline-policy: continuous; -moz-background-origin: padding; background: rgb(79, 129, 189) none repeat scroll 0% 0%; border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE"><b><span style="color: white;">Keterangan</span></b></span><b><span style="color: white;"><o:p></o:p></span></b></div>
</td> <td style="-moz-background-clip: border; -moz-background-inline-policy: continuous; -moz-background-origin: padding; background: rgb(79, 129, 189) none repeat scroll 0% 0%; border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<b><span style="color: white;">Macro
code<o:p></o:p></span></b></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Select cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Range("B2").Select</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">menuju</span> <span class="SpellE">kespecial</span>
cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveCell.SpecialCells</span>(<span class="SpellE">xlLastCell</span>).Select</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.End</span>(<span class="SpellE">xlDown</span>).Select</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">mengisi</span> cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
ActiveCell.FormulaR1C1 = "<span class="SpellE">jjjj</span>"</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">menghapus</span> <span class="SpellE">isi</span>
cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.ClearContents</span></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">mengaktifkan</span> file excel</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Windows("DETAIL 1.xlsx").Activate</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">mengaktifkan</span> <span class="SpellE">atau</span>
<span class="SpellE">memilih</span> sheet</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; color: white; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<div style="color: black;">
Sheets("Clearing").Select</div>
http://mymacrosformula.blogspot.com/ </div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
copy <span class="SpellE">atau</span> <span class="SpellE">salin</span> <span class="SpellE">isi</span> cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.Copy</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.Cut</span></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
paste <span class="SpellE">hasil</span> <span class="SpellE">salinan </span><span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveSheet.Paste</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Application.CutCopyMode</span>
= False</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
paste special <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.PasteSpecial</span> Paste:=<span class="SpellE">xlPasteValues</span>,
_ </div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Operation:=<span class="SpellE">xlNone</span>, <span class="SpellE">SkipBlanks</span>
:=False, Transpose:=False</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">blok</span> special cell</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Range(Selection, <span class="SpellE">ActiveCell.SpecialCells</span>(<span class="SpellE">xlLastCell</span>)).Select</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">membuat</span> <span class="SpellE">filetr</span> <span class="SpellE">dan</span> criteria <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveSheet.Range</span>("$A$1:$X$245").AutoFilter
Field:=2</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveSheet.Range</span>("$A$1:$X$245").AutoFilter
Field:=14, _ </div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Criteria1:=
"=*<span class="SpellE">Cttt</span>
<span class="SpellE">frree</span>*", Operator:=<span class="SpellE">xlAnd</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Range("J1").Select</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.AutoFilter</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">rplace</span> <span class="SpellE">dan</span> find
cell <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveCell.Replace</span>
What:="-", Replacement:="", <span class="SpellE">LookAt</span>:=<span class="SpellE">xlPart</span>, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">SearchOrder</span>:=<span class="SpellE">xlByRows</span>, <span class="SpellE">MatchCase</span>:=False, <span class="SpellE">SearchFormat</span>:=False, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ReplaceFormat</span>:=False <span style="color: white;">'http://mymacrosformula.blogspot.com/</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Cells.Find</span>(What:="-",
After:=<span class="SpellE">ActiveCell</span>, <span class="SpellE">LookIn</span>:=<span class="SpellE">xlFormulas</span>, <span class="SpellE">LookAt</span>:= _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">xlPart</span>,
<span class="SpellE">SearchOrder</span>:=<span class="SpellE">xlByRows</span>, <span class="SpellE">SearchDirection</span>:=<span class="SpellE">xlNext</span>, <span class="SpellE">MatchCase</span>:=False _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
, <span class="SpellE">SearchFormat</span>:=False).Activate</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveCell.Replace</span>
What:="-", Replacement:="", <span class="SpellE">LookAt</span>:=<span class="SpellE">xlPart</span>, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">SearchOrder</span>:=<span class="SpellE">xlByRows</span>, <span class="SpellE">MatchCase</span>:=False, <span class="SpellE">SearchFormat</span>:=False, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ReplaceFormat</span>:=False</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Cells.FindNext</span>(After:=<span class="SpellE">ActiveCell</span>).Activate<br />
<br />
<u>replace selection cell</u><br />
Application.Goto Reference:="frshe4"<br />
<br />
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _<br />
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _<br />
ReplaceFormat:=False <span style="color: white;">'http://mymacrosformula.blogspot.com/</span></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">hati</span> <span class="SpellE">hati</span>
<span class="SpellE">setelah</span> find <span class="SpellE">mesti</span> <span class="SpellE">pakai</span> plus minus offset</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveCell.Offset</span>(0, -1).Select<span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">ActiveCell.Offset</span>(0, 1).Select<span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
format style coma</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.Style</span>
= "Comma"</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.NumberFormat</span>
= "_(* #,##0.0_);_(* (#,##0.0);_(* ""- _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
""??_);_(@_)" <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.NumberFormat</span>
= "<span class="GramE">_(</span>* #,##0_);_(* (#,##0);_(*
""-""??_);_(@_)"</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
format <span class="SpellE">setelah</span> copy <span class="SpellE">dari</span> text</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.TextToColumns</span>
Destination:=Range("B12"), _ </div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">DataType</span>:=<span class="SpellE">xlDelimited</span>, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">TextQualifier</span>:=<span class="SpellE">xlDoubleQuote</span>, <span class="SpellE">ConsecutiveDelimiter</span>:=False, Tab:=False, _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Semicolon:=False, Comma:=False, Space:=False, Other:=True, <span class="SpellE">OtherChar</span> _ <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
:=";", <span class="SpellE">FieldInfo</span>:=Array(1, 1), <span class="SpellE">TrailingMinusNumbers</span>:=True</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Selection.NumberFormat</span> = "0"</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">jalankan</span> macro yang lain</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Application.Run</span>
_</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
"ambilnmvendor1"</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Application.Run</span> _ <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
"'<span class="SpellE">Lap.xls'!HAPUS_entry</span>"</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">logika</span> if</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
If
Range("B17").Value = "0" Then</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Else</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">Application.Run</span> _</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
"<span class="SpellE">copyname</span>"</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
End If</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">menangkap</span> <span class="SpellE">jumlah</span>
data <span class="SpellE">hasil</span> filter</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
ActiveCell.FormulaR1C1 = <span class="SpellE"><span class="GramE">rng.Columns</span></span><span class="GramE">(</span>1).
_</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">SpecialCells</span>(<span class="SpellE">xlCellTypeVisible</span>).Count – 1</div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 139.5pt;" valign="top" width="186"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">menggunakan</span> statement dim <span class="SpellE">untuk</span> <span class="SpellE">memanggil</span> 1 <span class="SpellE">unsur</span> <span class="SpellE">supaya</span> <span class="SpellE">tidak</span> <span class="SpellE">ditulis</span> <span class="SpellE">berulang</span> <span class="SpellE">ulang</span><br />
<span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span><span class="SpellE"> </span></div>
</td> <td style="border-color: -moz-use-text-color rgb(79, 129, 189) rgb(79, 129, 189) -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 364.5pt;" valign="top" width="486"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Windows("FILE MACRO LAP.xls").Activate</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Dim <span class="SpellE">Transaksilainnya</span> As String</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Dim
Transaksidetail As String</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Dim
JenisTransaksi As String</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Dim <span class="SpellE">rng</span> As Range <span style="color: white;"> 'http://mymacrosformula.blogspot.com/</span><span class="SpellE"> </span><br />
<br />
<span class="SpellE">Transaksilainnya</span> = (Range("b1"))</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Transaksidetail =
(Range("b4"))</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
JenisTransaksi =
(Range("b5"))</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<br />
'contoh penggunaan :<br />
<br />
Windows(<span class="SpellE">TrsDtlFl</span>).Activate</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span style="color: white;"><br /></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
Set <span class="SpellE">rng</span> = <span class="SpellE">ActiveSheet.AutoFilter.Range</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
ActiveCell.FormulaR1C1 = <span class="SpellE"><span class="GramE">rng.Columns</span></span><span class="GramE">(</span>1). _ </div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
<span class="SpellE">SpecialCells</span>(<span class="SpellE">xlCellTypeVisible</span>).Count
- 1 <span style="color: white;"> </span><br />
<span style="color: white;">'http://mymacrosformula.blogspot.com/</span></div>
</td> </tr>
<tr> <td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"></td></tr>
</tbody></table>
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr><td style="border: 1pt solid rgb(79, 129, 189); padding: 0in 5.4pt; width: 27.9pt;" valign="top" width="37"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0in;">
</div>
</td></tr>
</tbody></table>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
6. satu lagi ada caranya agar macro menjadi lebih cepat dan tidak memusingkan karena di file excel tidak terlihat makro jalan yaitu dengan <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<a href="http://adf.ly/838241/pntra">screen updating</a><br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableLightListAccent1" style="border-collapse: collapse; border: medium none; width: 709px;"><tbody>
<tr></tr>
</tbody></table>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
</div>
</div>
Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-45839399071236016352013-03-24T21:46:00.003-07:002014-09-29T04:50:45.169-07:00Dilema menggunakan pemercepat pekerjaanMemang tidak mudah menggunakan macro apalagi harus belajar lebih dalam dan lebih banyak lagi serta perlu waktu yang tidak sedikit, padahal disamping itu pekerjaan harian sudah menumpuk, pekerjaan rumah sudah semakin banyak. kapan waktunya dan kapan mulainya menggunakan macro untuk mempercepat pekerjaan. Ada 2 pertanyaan dan keputusan yang harus dijawab dan diambil untuk langkah ke depannya : <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
1. Apakah masih ingin mempercepat pekerjaan dan mulai menggunakan macro (ironinya mempelajari macro membutuhkan waktu , apakah masih ada waktu untuk itu?)<br />
2. Apakah terus mempertahankan cara cara lama tidak usah memakai macro atau apapun untuk mempercepat pekerjaan. (kalau keputusan ini yang diambil lupakan saja macro, tapi ingat untuk kedepannya nanti pekerjaan akan bertambah banyak dan menumpuk. apakah masih bisa menanganinya?). <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
<br />
<a name='more'></a><br /><br />
Tentukan keputusan anda dengan yakin tanpa keraguan, dan jangan setengah setengah atau setengah hati. Setelah keputusan diambil jalankan dengan sepenuh hati. Untuk yang memilih nomor satu, anda perlu meluangkan waktu untuk bisa mempelajari macro, tapi ada strateginya supaya tidak menghambat pekerjaan harian anda, yaitu (catatan tidak perlu ke tahap selanjutnya kalau belum mneguasai : <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
<br />
- Mulai mempercepat pekerjaan dengan hal hal yang sederhana, <br />
<ul>
<li>copy paste data antar file excel.</li>
<li>copy paste file antar folder.</li>
<li>menghapus, menambah baris dan kolom dalam excel.</li>
<li>rekap dan summary perhitungan data.</li>
</ul>
- Setelah copy paste dan perhitungan semakin cepat, mulai ada waktu untuk ketahap selanjutnya, yaitu membuat macro lebih stabil dengan penggunaan referensi cell dan membuat standarisasi folder dan nama file tempat file kertas kerja.<br />
<br />
<ul>
<li>membuat define name untuk beberapa tabel.</li>
<li>membuat pemetaan file dan folder tempat kertas kerja termasuk penyeragaman nama file. </li>
<li>membuat daftar link antar file <span style="color: white;">htt.p://mymacrosformula.blogspot.com</span></li>
<li>membuat dim statement reference cell.</li>
</ul>
- Menggunakan master data dan data base untuk perhitungan data. sehingga apabila ada yang berubah cukup master data saja yang dirubah tidak semua file kertas kerja.<br />
<br />
- Membuat daftar kesulitan atau keperluan dalam menggunakan macro dan mencari solusinya :<br />
<ul>
<li>ditahap ini kita mulai berimprovisasi, menggabung formula fungsi dan lainnya untuk mempercepat pekerjaan tergantung keperluan. <span style="color: white;">http://mymacrosformula.blogspot.com</span></li>
<li>ditahap ini apabila mendapat kesulitan jangan bosan bosan mencari solusi : bisa dari online sudah banyak situs situs yang menyediakan jawaban , dan banyak forum forum yang bisa diikuti atau tempat bertanya, bisa juga dengan membaca blog blog yang berkaitan dengan masalah yang dihadapi atau beri komentar diblog atau bertanya lewat email dengan pemilik blog. <span style="color: white;">http://mymacrosformula.blogspot.com</span></li>
<li>menggunakan search engine seperti google dan lainnya. trik untuk mencari misal mencari copy paste value di blog tertentu ketik aja di kotak pencarian google "copy paste value site:blogspot.com" (artinya mencari copy paste value di situs dengan akhiran blogspot.com)</li>
</ul>
<br />
Catatan catatan:<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-22082707131838860532013-03-11T03:14:00.001-07:002014-09-29T04:50:45.118-07:00Tehnik dalam menggunakan Macro untuk yang tidak seragam atau tidak standar.<div style="text-align: justify;">
Ada kalanya kita menemukan masalah dimana macro tidak bisa memecahkan masalah otomatisasi kita, mungkin ada penyelesaiannya tapi kita aja yang tidak atau belum menemukannya. saat menghadapi masalah seperti ini kita bisa menyelesaikannya dengan menggunakan tehnik tehnik tertentu. diantaranya bisa dengan menggunakan file dummy, atau kolom dummy atau kolom atau range sementara untuk perhitungan tertentu yang nanti bisa disambung sambung dan hasil akhirnya bisa menemukan pemecahan masalah. </div>
<div style="text-align: justify;">
contoh :</div>
<div style="text-align: justify;">
</div>
<ul style="text-align: justify;">
<li>Seringkali untuk rumus logika IF kalau tidak salah hanya dibatasi sampai dengan 7 kriteria untuk slebihnya bisa menggunakan kolom dummy yaitu misal kriteria s/d 40 kriteria kolom dummy 1 untuk rumus if sampai kriteria ke tujuh, lalu jika hasil kom dummy 1 masih belum ketemu di buat kolom dummy 2 sampai kriteria ke 14, dst sampai buat 6 kolom dummy.</li>
<li>kolom dummy terakhir disini 6, dibikin resume atau hasil rekap semua kolom dummy. dengan rumus =kolom dummy1&kolom dummy2&kolom dummy3&kolom dummy4&kolom dummy5 atau = kolom dummy1+kolom dummy2+kolom dummy3+kolom dummy4+kolom dummy5 <a name='more'></a></li>
<li>syaratnya untuk setiap kolom dummy perhitungan IF bila hasilnya tidak ketemu mesti arahkan hasilnya nanti dengan tanda kosong ("") atau 0</li>
<li>Cara penyelesaian lainnya bisa dengan rumus referensi lookup dengan bikin tabel lain khusus sebagai pemisah kriteria.</li>
<li>Atau dengan rumus index dan match yang pernah dibahasa sebelumnya.</li>
<li style="text-align: justify;">Atau bisa juga dengan menggunakan macro jadi kolom dummy dibentuk dengan macro lalu setelah ketemu hasil cell perhitungan dihapus dan hasil akhir saja yang di tampilkan.</li>
</ul>
<div style="text-align: justify;">
Dan satu hal yang paling penting yang menjadi penyebab adalah ketidakseragaman dan ketidak standaran input dari user. contoh tehnik macro untuk yang tidak standar misalnya nama file tidak standar atau nama sheet tidak standar maka kita gunakan tehnik pencarian penangkapan nama file lalu kita tetapkan nama file untuk sesi yang berlangsung. contoh :</div>
<ul>
<li>tehnik pencarian nama file, nama file kedua yang dibuka excel tidak ketahui macro</li>
<ul>
<li><span style="color: magenta;"><b><i> Application.Workbooks(2).Activate<br /> Range("H6:K10").Select<br /> Selection.Copy<span style="color: magenta;"><b><i> </i></b></span></i></b></span><span style="color: magenta;"><b><i><span style="color: white;"><span style="color: white;">'http://mymacrosformula.blogspot.com</span></span></i></b></span></li>
<li><span style="color: magenta;"><b><i><span style="color: magenta;"><b><i> Application.Workbooks(1).Activate</i></b></span> </i></b></span></li>
<li><span style="color: magenta;"><b><i> ActiveSheet.Paste </i></b> </span></li>
</ul>
</ul>
<br />
<ul>
<li>di file kedua tersebut kita ambil nama file dengan rumus atau fungsi "=cell(info,address)"</li>
<li>lalu kita pisahkan hasil rumus diatas sehingga dapat cuma nama filenya saja nett. dengan rumus gabungan rumus mid dan search tanda "\".</li>
<li>lalu dikopy ke file macro tempat macro dijalankan </li>
<li>gunakan macro cell referensi seperti telah dibahas sebelumnya dengan statement Dim untuk value cell tertentu. <span style="color: magenta;"><b><i><span style="color: white;"><span style="color: white;">http://mymacrosformula.blogspot.com</span></span></i></b></span></li>
</ul>
<br />
Macro diatas unik karena macro akan jalan untuk semua file excel yang telah dibuka pada urutan kedua. <span style="color: magenta;"><b><i><span style="color: white;"><span style="color: white;">http://mymacrosformula.blogspot.com</span></span></i></b></span>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-24785664424354964412013-01-02T01:54:00.000-08:002014-09-29T04:50:45.126-07:00Menunggu tampilan website keluar (AHK)Biasanya pada AHK, untuk run website tertentu, untuk menunggu tampilannya lama keluar keburu jalan action berikutnya. jadi perlu jendela baru sebagai jembatan. untuk memastikan website sempurna keluar baru run command berikutnya. yaitu jendela perantara kalau di IE bisa tekan Ctrl + l <br />
seperti contoh dibawah :<br />
<br />
<em><span style="color: #6aa84f;">run </span></em><a href="http://mymacrosformula.blogspot.com/"><em><span style="color: #6aa84f;">http://mymacrosformula.blogspot.com/</span></em></a><br />
<em><span style="color: #6aa84f;">Sleep, 100</span></em><br />
<em><span style="color: #6aa84f;"></span></em><br />
<em><span style="color: #6aa84f;">Send, {CTRLDOWN}l{CTRLUP}</span></em><br />
<em><span style="color: #6aa84f;">WinWait, Open, Type the Internet ad</span></em><br />
<em><span style="color: #6aa84f;">IfWinNotActive, Open, Type the Internet ad, WinActivate, Open, Type the Internet ad</span></em><br />
<em><span style="color: #6aa84f;">WinWaitActive, Open, Type the Internet ad</span></em><br />
<em><span style="color: #6aa84f;"><a name='more'></a>Send, {ESC}</span></em> <em><span style="color: magenta;"></span></em>
<span style="color: black;"></span>
<span style="color: black;">Kalau untuk mengisi kotak kosong di tengah web bisa dengan perintah Find "apa yang diminta " lalu tekan Tab untuk pindah ke kotak kosongnya. lihat contoh di bawah :</span>
<br />
<br />
<em><span style="color: #6aa84f;">Sleep, 100 </span></em><br />
<em><span style="color: #6aa84f;">Send, {CTRLDOWN}f{CTRLUP}</span></em><br />
<em><span style="color: #6aa84f;">Sleep, 100</span></em><br />
<em><span style="color: #6aa84f;">send Ussser<br />Sleep, 100</span></em><br />
<em><span style="color: #6aa84f;">send {ENTER}</span></em><br />
<em><span style="color: #6aa84f;">Sleep, 100</span></em><br />
<em><span style="color: #6aa84f;">send {ESC}</span></em><br />
<em><span style="color: #6aa84f;">Sleep, 100</span></em><br />
<em><span style="color: #6aa84f;">send {TAB}</span></em><br />
<em><span style="color: #6aa84f;">sleep, 100</span></em><br />
<em><span style="color: #6aa84f;">Send, BBBBB<br />Send, {TAB}{TAB}{TAB}{TAB}</span></em><br />
<span style="color: magenta;"><em><span style="color: #6aa84f;">Sleep, 100<br />send {ENTER}</span></em><br />
<em><span style="color: #6aa84f;"><br /></span></em><span style="color: black;">Kalau mengisi kotak kosong di tengah web juga bisa pakai record mouse di AHK, tapi syaratnya koordinat kotak kosong atau isian tersebut dari ujung kiri atas jendela web tidak berubah. lebih aman pakai command Tab saja. contohnya :</span><br /><em></em></span><br />
<em>MouseClick, left, 800, 554</em>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-75097658643293001602012-12-26T20:03:00.002-08:002014-09-29T04:50:45.207-07:00Simpan file sekaligus mengganti dan menghapus file lamaBagaimana menyimpan file baru dengan macro dan mereplace file lama yang namanya sama.<br />
<br />
contoh file baru disimpan dengan nama book2.xlsx, padahal mungkin file lama sudah ada difolder tersebut dengan nama yang sama.<br />
<br />
<i><span style="color: #3d85c6;">Dim Wk As Workbook</span></i><br />
<i><span style="color: #3d85c6;"></span></i><br />
<i><span style="color: #3d85c6;">If Dir("C:\book2.xlsx") <> "" Then</span></i><br />
<i><span style="color: #3d85c6;">Kill "C:\book2.xlsx"</span></i><br />
<i><span style="color: #3d85c6;">Else </span><span style="color: white;">'http://mymacrosformula.blogspot.com/</span></i><br />
<i><span style="color: #3d85c6;"><a name='more'></a>End If</span></i><i><span style="color: #3d85c6;">Set Wk = Workbooks.Add</span></i><br />
<i><span style="color: #3d85c6;">Application.DisplayAlerts = False</span></i><br />
<i><span style="color: #3d85c6;">Wk.SaveAs Filename:="C:\book2.xlsx"</span></i>
<i><span style="color: #3d85c6;"></span></i><br />
<span style="color: black;">Catatan : file diatas yang sering diganti ganti sangat berguna sekali untuk perhitungan sementara. file seperti biasanya saya gunakan untuk mengecek total dan subtotal perhitungan mendatar menurun dan lainnya. kalau sudah benar perhitungannya. file tersebut digunakan untuk perhitungan lainnya tanpa harus dihapus.</span>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-82843403309536808672012-12-26T11:17:00.000-08:002014-09-29T04:50:45.217-07:00Navigasi Cell dalam macro excel VBAMungkin sudah banyak yang tau ini, ini mengingatkan lagi kalau lupa tinggal baca lagi secara ringkas :<br />
<br />
Menuju ke alamat cell spesial paling awal/atas dan ujung bawah/terakhir sheet<br />
Range("A1").Select<br />
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select<br />
<br />
Menuju ke alamat cell paling ujung bawah/terakhir sheet<br />
shortcut (ctrl+end)<br />
macronya :<br />
<a name='more'></a>ActiveCell.SpecialCells(xlLastCell).Select<br />
<br />
Menuju ke alamat cell paling atas, bawah, kiri, kanan<br />
shortcut (ctrl+up),(ctrl+down),(ctrl+left),(ctrl+right)<br />
macronya :<br />
<br />
Selection.End(xlUp).Select<br />
Selection.End(xlDown).Select<br />
Selection.End(xlToLeft).Select<br />
Selection.End(xlToRight).Select<br />
<br />
Bedakan dengan rumus diatas (antara ke dan blok sampai):<br />
<br />
<br />
<br />
Dari tempat cell berada sekarang diblok sampai ke alamat cell paling atas, bawah, kiri, kanan<br />
shortcut (ctrl+shift+up),(ctrl+shift+down),(ctrl+shift+left),(ctrl+shift+right)<br />
macronya :<br />
<br />
Range(Selection, Selection.End(xlUp)).Select<br />
Range(Selection, Selection.End(xlDown)).Select<br />
Range(Selection, Selection.End(xlToLeft)).Select<br />
Range(Selection, Selection.End(xlToRight)).Select<br />
<br />
<br />
atau pakai cara langsung<br />
SendKeys ("^{HOME}") '//Ctrl-Home<br />
SendKeys ("{UP}") '//Up Arrow<br />
SendKeys ("{DOWN}") '//Down Arrow<br />
SendKeys ("{LEFT}") '//Left Arrow<br />
SendKeys ("{RIGHT}") '//Right Arrow<br />
<br />
<a href="http://adf.ly/838241/navigasi-cell-2">Lanjutkan ke Navigasi Cell dalam macro excel VBA (bagian 2)</a><br />
<a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html">contoh makro navigasi cell 2</a><br />
<a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5604607586958727314" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBh4319MYSGPR49hXuuR6pXZpqRcMnQXIgTlO9YUjacl2JLd3C4vnA3U4gpRYHUKZBhtJXCYmIQ8dQMJP9XR0oqXO3hUV3I4RQMoyFRE5qsYOydvZQK0ogZUr4guhHbXzxqBvbkMQlqMvd/s200/excel-icon.png" style="cursor: hand; float: left; height: 35px; margin: 0px 10px 10px 0px; width: 29px;" /></a>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-91484860653961000912012-12-26T10:17:00.000-08:002014-09-29T04:50:45.244-07:00Advertisers, You can now buy links on my website directly!I have recently joined <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">ask2link.com</a> to enable advertisers to buy text links advertisement on my website. <br />
<a name='more'></a>ask2link's text links are unique since they could bring targetted traffic and boost your organic search engine rankings. ask2link.com provides secure, easy, and fast checkout flow so you could get your text link ads live within five minutes.<br />
<br />
Bloggers or Webmasters: If you would like to monetize your blog or website beyond Adsense, you could visit <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">ask2link</a> to learn more.<br />
<br />
Buy text link ads now on this website with ask2link. Start advertising now in this website as part of your online marketing campaign. You could now purchase text link ads on this website by following here:<br />
<br />
<a href="http://www.ask2link.com/buy_ad/42d79aa9add49a3f87d31306771436" target="_blank">http://www.ask2link.com/buy_ad/42d79aa9add49a3f87d31306771436</a><br />
<br />
<br />
Note to advertisers, SEO agencies/SEO specialists, internet marketers, or e-commerce websites: You could visit <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">ask2link</a> to buy static text links on hundreds of websites easily as part of your inbound link building and SEO campaign.<br />
They accept credit cards and PayPal payments and your text links will be live within five minutes after your order.<br />
ask2link's text links are unique because they are rendered as plain static HTML links that could bring you more<br />
traffic and boost your organic search engine ranking for your keywords.<br />
<br />
-------<br />
<br />
Thanks,Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-32965488574131562882012-12-26T00:29:00.000-08:002014-09-29T04:50:45.140-07:00macro untuk meletakkan/ memilih cell dan memblok suatu range<a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html">klik untuk download latihan macro memilih cell.xls</a> <a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5604607586958727314" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBh4319MYSGPR49hXuuR6pXZpqRcMnQXIgTlO9YUjacl2JLd3C4vnA3U4gpRYHUKZBhtJXCYmIQ8dQMJP9XR0oqXO3hUV3I4RQMoyFRE5qsYOydvZQK0ogZUr4guhHbXzxqBvbkMQlqMvd/s200/excel-icon.png" style="cursor: hand; float: left; height: 35px; margin: 0px 10px 10px 0px; width: 29px;" /></a><br />
<br />
<br />
<br />
Macro untuk meletakkan/ memilih cell dan memblok suatu range yang terpisah pisah. Beberapa keistimewaan macro yang jarang terlihat dan langka untuk loncat ke cell tertentu dan memblok atau menambah area blok dari rang yang sudah ada.<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
Bagaimana melompat atau menuju ke cell turun 5 baris dan kekiri 3 kolom, dari tempat cell berada sekarang ?<br />
Jawab :<br />
<a name='more'></a>ActiveCell.Offset(5, -3).Select<br />
<br />
<br />
Bagaimana melompat atau menuju ke cell naik 3 baris dan kekanan 4 kolom, dari tempat cell berada sekarang ?<br />
Jawab :<br />
ActiveCell.Offset(-3, 4).Select<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
Bagaimana melompat atau menuju ke cell naik 1 baris dan kekanan 2 kolom, dari range cell berada sekarang ?<br />
Jawab :<br />
ActiveCell.Offset(-1, 2).Select<br />
<br />
<br />
Bagaimana memilih range / blok tertentu dan melanjutkan atau menambah range / blok dari blok yang sudah ada<br />
Jawab :<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
Range("Database").Select<br />
Selection.Resize(Selection.Rows.Count + 5, _<br />
Selection.Columns.Count).Select<br />
<br />
<br />
Bagaimana memilih range / blok tertentu kemudian melompat ke cell tertentu dan melanjutkan atau menambah range / blok yang sudah ada<br />
Range("Database").Select<br />
Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _<br />
Selection.Columns.Count + 1).Select<br />
<br />
Bagaimana macro untuk range blok special berulang kali ?<br />
(manualnya kita tekan Ctrl+bawah,bawah,bawah)<br />
jawaban yang salah :<span style="color: white;">http://mymacrosformula.blogspot.com/</span><br />
Range(Selection, Selection.End(xlDown)).Select<br />
<br />
<br />
Range(Selection, Selection.End(xlDown)).Select<br />
<br />
Range(Selection, Selection.End(xlDown)).Select<br />
<br />
Range(Selection, Selection.End(xlDown)).Select<br />
<br />
Cara diatas salah yang benar adalah :<br />
???<br />
<span style="color: white;">'berikan dukungan, donasi atau komen anda, apabila tulisan ini berguna bagi anda</span><br />
<span style="color: white;"> Range(Selection, Selection.End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown)).Select</span><br />
<span style="color: white;">'http://mymacrosformula.blogspot.com/</span><br />
<span style="color: white;">'berikan dukungan, donasi atau komen anda, apabila tulisan ini berguna bagi anda</span><br />
<span style="color: white;"></span><br />
<span style="color: white;"><br /></span><span style="color: white;">maju indonesia</span><br />
<br />
<br />
<br />
Semua keterangan di atas diambil dari situs :"<a href="http://support.microsoft.com/kb/291308">http://support.microsoft.com/kb/291308</a>"<br />
<span style="font-family: Times, "Times New Roman", serif; font-size: xx-small;"><strike><u>04/04/2011</u></strike></span><br />
Berikut saya berikan contoh macro yang sudah ada<br />
<a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html">klik untuk download latihan macro memilih cell.xls</a> <a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5604607586958727314" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBh4319MYSGPR49hXuuR6pXZpqRcMnQXIgTlO9YUjacl2JLd3C4vnA3U4gpRYHUKZBhtJXCYmIQ8dQMJP9XR0oqXO3hUV3I4RQMoyFRE5qsYOydvZQK0ogZUr4guhHbXzxqBvbkMQlqMvd/s200/excel-icon.png" style="cursor: hand; float: left; height: 35px; margin: 0px 10px 10px 0px; width: 29px;" /></a>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-27403563127036259602012-12-26T00:15:00.000-08:002014-09-29T04:50:45.131-07:00Back link referral post<a href="http://www.ask2link.com/refer/shigenmaxi" title="Buy Link, Buy Links"><br /><img alt="Buy and sell links - in blogs or websites" border="0" src="http://www.ask2link.com/img/paid-to-paypal.gif" /></a><br />
<br />
If you blog, you probably try to make money from contextual advertisement such as Google Adsense.<br />
<a name='more'></a>I recently signed up with <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">Ask2Link</a> to sell non-intrusive text based (links) ads on my website. With Ask2Link,<br />
advertisers can purchase plain text ads on your website.<br />
<br />
Ask2Link is a web advertising company located in San Francisco Bay Area, California.<br />
You don't need to live in the U.S.A or Canada though to make money with Ask2Link, since they send all paychecks through PayPal, so you will need to have a valid PayPal account. They accept international publishers (webmasters and bloggers) throughout the world.<br />
<br />
They support Wordpress-powered blogs, PHP, Ruby, Perl, JSP, and also Blogger.com/Blogspot.com and Wordpress.com Blogs so sign up now with <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">Ask2Link</a>.<br />
<br />
Note to advertisers, SEO agencies/SEO specialists, internet marketers, or e-commerce websites: You could visit <a href="http://www.ask2link.com/refer/shigenmaxi" target="_blank">Ask2Link</a> to buy static text links on hundreds of websites easily as part of your inbound link building and SEO campaign.<br />
They accept credit cards and PayPal payments and your text links will be live within five minutes after your order.<br />
Ask2Link's text links are unique because they are rendered as plain static HTML links that could bring you more<br />
traffic and boost your organic search engine ranking for your keywords.Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-3417649845717630092012-11-22T23:55:00.000-08:002014-09-29T04:50:45.144-07:00Message box dengan timer pada AHK <div style="text-align: justify;">
Kegunaan message box pada AHK sebagai perantara loncatan dari windows ke windows berikutnya. Tapi msgbox biasa tidak bisa lanjut kecuali di tekan enter atau spasi. Eh ternyata ada msgbox dengan waktu atau timer. Jadi messagebox dengan waktu atau timer ini atau pendeknya kusebut saja msgbox timer ini berfungsi sebagai informasi di tengah jalannya program macro desktop. Info ditengah proses ini bukan informasi biasa tapi info dengan pilihan dan pernyataan, bahwa sudah selesai proses pertama mau dan akan dilanjutkan ke proses kedua lalu ada pertanyaan apakah semua bahan sudah siap kalau sudah siap klik OK atau biarkan msgbox 2 s/d 4 detik maka proses kedua akan lanjut otomatis. Dan ada alternative kalau belum siap dilanjutkan </div>
<div style="text-align: justify;">
<a name='more'></a></div>
<div style="text-align: justify;">
ke proses kedua diperintahkan tekan “no” secepat cepatnya sebelum proses berjalan secara otomatis. <span style="color: white;">http://mymacrosformula.blogspot.com/</span></div>
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Berikut contoh kode macro AHK nya :<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<br />
<div style="margin: 2px 20px 20px;">
<div class="smallfont" style="margin-bottom: 2px;">
<b>Penjelasan dan contoh soal</b>: <input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 60px;" type="button" value="Buka" /></div>
<div class="alt2" style="border-bottom: 1px inset; border-left: 1px inset; border-right: 1px inset; border-top: 1px inset; margin: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div style="display: none;">
<em><span style="color: #3d85c6;">MsgBox, 4,, Proses kedua sudah siap / tidak? `nbila tidak pakai tekan no secepatnya,4 </span></em><br />
<em><br /><span style="color: #3d85c6;"></span></em>
<em><span style="color: #3d85c6;">IfMsgBox No</span></em><br />
<em><span style="color: #3d85c6;">{</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">WinWait, Format Reklap</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">Send, {ctrlDOWN}w{ctrlUP}</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">send {altdown}{f4}{altup}</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">Sleep, 100</span></em><br />
<em><span style="color: #3d85c6;">WinWait, lap awal,</span></em><br />
<em><span style="color: #3d85c6;">IfWinNotActive, lap awal,, WinActivate, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">WinWaitActive, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">}</span></em><br />
<a href="http://mymacrosformula.blogspot.com/"><em><span style="color: white;">http://mymacrosformula.blogspot.com</span></em></a><br />
<em><br /><span style="color: #3d85c6;"></span></em>
<em><br /><span style="color: #3d85c6;"></span></em>
<em><span style="color: #3d85c6;">IfMsgBox Yes</span></em><br />
<em><span style="color: #3d85c6;">{</span></em><br />
<em><span style="color: #3d85c6;">sleep 200</span></em><br />
<em><span style="color: #3d85c6;">WinWait, lap awal,</span></em><br />
<em><span style="color: #3d85c6;">IfWinNotActive, lap awal,, WinActivate, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">WinWaitActive, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">send {down}</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">send {enter}</span></em><br />
<em><span style="color: #3d85c6;">}</span></em><br />
<a href="http://mymacrosformula.blogspot.com/"><em><span style="color: white;">http://mymacrosformula.blogspot.com</span></em></a><br />
<a href="http://mymacrosformula.blogspot.com/"><em><span style="color: white;">http://mymacrosformula.blogspot.com</span></em></a><br />
<em><span style="color: #3d85c6;">IfMsgBox Timeout</span></em><br />
<em><span style="color: #3d85c6;">{</span></em><br />
<em><span style="color: #3d85c6;">sleep 200</span></em><br />
<em><span style="color: #3d85c6;">WinWait, lap awal,</span></em><br />
<em><span style="color: #3d85c6;">IfWinNotActive, lap awal,, WinActivate, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">WinWaitActive, lap awal, </span></em><br />
<em><span style="color: #3d85c6;">send {down}</span></em><br />
<em><span style="color: #3d85c6;">sleep 100</span></em><br />
<em><span style="color: #3d85c6;">send {enter}</span></em><br />
<em><span style="color: #3d85c6;">}</span></em></div>
</div>
</div>
<div style="text-align: justify;">
Kode diatas maksudnya adalah msgbox sebelum melanjutkan ke proses kedua. Ada 3 pilihan jika belum siap maka aplikasi ditutup, jika yes dan batas waktu habis atau timeout maka aplikasi akan jalan ke proses kedua secera otomatis <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br /></div>
Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-89376585381490070662012-11-20T00:24:00.001-08:002014-09-29T04:50:45.230-07:00Menggunakan dim dan filename untuk referensi cellDim digunakan pada macro agar kode nama atau istilah tertentu bisa dimasukkan dan dikenali dalam macro. Pertama Dim kita tentukan dulu menjadi jenis apa, bisa string/huruf atau integer/bilangan atau lainnya. Kedua kita definisikan atau kita beri nilai mengacu kemana?<br />
<br />
Untuk referensi cell dalam macro bisa menggunakan <a href="http://mymacrosformula.blogspot.com/2011/05/flexibilitas-dalam-bikin-rumus-dan-link.html" rel="nofollow" target="_blank">define name</a> dan bisa juga <br />
<a name='more'></a>dengan Dim berikut untuk mengacu ke cell tertentu.<br />
<br />
berikut contoh penggunaan Dim :<br />
<br />
<span style="color: orange;">'Karena ref cell tidak bisa di tengah rumus mesti pakai dim</span><br />
<br />
<span style="color: #3d85c6;"><i>Windows((Range("n40"))).Activate</i></span><br />
<span style="color: #3d85c6;"><i>Dim FileName1 As String</i></span><br />
<span style="color: #3d85c6;"><i>Dim FileName2 As String</i></span><br />
<span style="color: #3d85c6;"><br /><i></i></span><span style="color: #3d85c6;"><i>FileName1 = (Range("K3"))</i></span><br />
<span style="color: #3d85c6;"><i>FileName2 = (Range("K5"))</i></span><br />
<br />
<span style="color: #3d85c6;"><i>MSG1 = MsgBox("tempatkan cel di tempat paste dan yes,kalau belum tekan no untuk batal", vbYesNo, "Proses?")</i></span><br />
<br />
<span style="color: #3d85c6;"><i>If MSG1 = vbYes Then</i></span><br />
<br />
<span style="color: orange;">'bila pilih yes</span><br />
<br />
<span style="color: #3d85c6;"><i>ThisWorkbook.Activate</i></span><br />
<span style="color: #3d85c6;"><i>Windows(FileName1).Activate</i></span><br />
<span style="color: #3d85c6;"><br /><i></i></span><span style="color: #3d85c6;"><i>Sheets("perdist").Select</i></span><br />
<span style="color: #3d85c6;"><i>Cells.Select</i></span><br />
<br />
<span style="color: white;">ref file: di file pembuatan progress</span><br />
<span style="color: purple;">Untuk rumus diatas, menggunakan nama file yang terdapat di cell K3 dan K5 untuk selanjutnya diaktifkan atau dibuka sebagai tempat paste.</span>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-87763317345218693322012-10-30T23:03:00.001-07:002014-09-29T04:50:45.226-07:00Bedakan macro cell find dan selection.findBedakan makro antara cari seluruh cell dengan mencari dari suatu range.<br />
<br />
bedakan antara Cells.find dengan Selection.Find<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
<br />
<br />
dibawah ini adalah di seluruh cell dalam satu sheets<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
Cells.Find(What:="asd", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _<br />
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _<br />
, SearchFormat:=False).Activate<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
<br />
dibawah ini adalah di dalam suatu range atau suatu blok<br />
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
Range("D5:G13").Select<br />
<br />
Selection.Find(What:="ser", After:=ActiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False, SearchFormat:=False).ActivateMaxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-2914730299294666432012-10-08T01:37:00.005-07:002014-09-29T04:50:45.135-07:00Mensiasati File yang terlalu besar Bag.2Salah satu cara mengecilkan file adalah dengan membuat file kedua salinan yang merupakan hanya sebagai laporan.<br />
<br />
misal ada file 1 induk perhitungan (didalam file banyak sekali rumus vlookupnya dan sumifnya sehingga file berkembang menjadi 30 mega)<br />
lalu tehnik yang saya lakukan adalah <a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
<br />
<br />
<div style="margin: 2px 20px 20px;">
<div class="smallfont" style="margin-bottom: 2px;">
<b>Penjelasan dan contoh soal</b>: <input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 60px;" type="button" value="Buka" /></div>
<div class="alt2" style="border-bottom: 1px inset; border-left: 1px inset; border-right: 1px inset; border-top: 1px inset; margin: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div style="display: none;">
1. difile 1 induk perhitungan dibikin alamat cell tertentu misal (cell m40) dengan rumus mis : <a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
<br />
<span style="color: purple;">="cek balance "&MID(A3;6;20)&" per "&TEXT(NOW();"dd-mm-yyyy pukul HH'Mm")&".xls"</span><br />
<br />
<span style="color: black;">hasil dari rumus itu akan menjadi "cek Balance September 2012 per 08-10-2012 pukul 11'16.xls" </span><br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com/</span></a><br />
<span style="color: black;">alamat ini nanti akan menjadi <strong>nama file salinan yang ukurannya lebih kecil</strong> dengan menghilangkan rumus referensi dari file induk menjadi value.</span><br />
<br />
<br />
2. Bikin Macro untuk mengcopy beberapa sheet yang diperlukan dari file induk ke file baru dengan nama di cell yang sudah ditentukan diatas.dengan macro :<br />
<br />
<span style="color: purple;">Sheets(Array("Cek balance", "Cek face perdist p", _</span><br />
<span style="color: purple;"></span><br />
<span style="color: purple;">"Cek face perdist r", "Cek face perdist n", "PPAIDperdist", "RPAID perdist", _</span><br />
<span style="color: purple;">"NPAID perdist")).Select</span><br />
<br />
<span style="color: purple;">Sheets("Cek Balance").Activate</span><br />
<span style="color: purple;">Sheets(Array("Cek Balance", "Cek face perdist p", _</span><br />
<span style="color: purple;"></span><br />
<span style="color: purple;">"Cek face perdist r", "Cek face perdist n", "PPAIDperdist", "RPAID perdist", _</span><br />
<span style="color: purple;">"NPAID perdist")).Copy</span><br />
<br />
<u>'menyimpan dengan nama dari alamat cell</u><br />
<span style="color: purple;">ChDir "D:\1 interf pst"</span><br />
<span style="color: purple;"></span><br />
<span style="color: purple;">ActiveWorkbook.SaveAs Filename:= _</span><br />
<span style="color: purple;">(Range("m40"))</span><br />
<span style="color: purple;">Range("C8").Select</span><br />
<br />
<span style="color: black;">3. Menyimpan file dalam bentuk format excel 2003 lalu menutup atau memisahkan semua link dari file 1 induk perhitungan. sehingga menjadi berdiri sendiri. dan otomatis semua rumus dan fungsi referensi seperti vlookup, hlookup, maupun sum if menjadi value. </span><br />
<br />
<span style="color: purple;">ActiveWorkbook.SaveAs Filename:= _</span><br />
<span style="color: purple;"></span><br />
<span style="color: purple;">(Range("m40")) _</span><br />
<span style="color: purple;">, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _</span><br />
<span style="color: purple;">ReadOnlyRecommended:=False, CreateBackup:=False</span><br />
<span style="color: purple;">ActiveWorkbook.BreakLink Name:= _</span><br />
<span style="color: purple;">"D:\1 interf pst\bulan lalu\1 file induk perhitungan.xls", _</span><br />
<span style="color: purple;">Type:=xlExcelLinks</span><br />
<br />
<span style="color: black;">4. Sampai proses ketiga ini jalankan dulu macronya untuk mengetahui link mana saja yang tidak terputus. Catat di cell mana saja link tidak terputus. lalu dibuat copy value untuk semua cell tersebut. (catatan : macro edit link diatas tidak berhasil memutuskan semua link)</span><br />
kemudian menyimpan file baru salinan yang hampir tanpa rumus itu.<br />
<br />
<br />
berikut adalah copy paste value untuk cel cel yang linknya tidak terputus : <br />
<span style="color: purple;">Sheets("Cek balance").Select</span><br />
<span style="color: purple;"></span><br />
<span style="color: purple;">Range("I6").Select</span><br />
<span style="color: purple;">Range(Selection, Selection.End(xlDown)).Select</span><br />
<span style="color: purple;">Selection.Copy</span><br />
<span style="color: purple;">Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</span><br />
<span style="color: purple;">:=False, Transpose:=False</span><br />
<span style="color: purple;">Application.CutCopyMode = False</span><br />
<span style="color: purple;">Sheets("Cek balance").Select</span><br />
<span style="color: purple;">Range("M40").Select</span><br />
<span style="color: purple;">Selection.Copy</span><br />
<span style="color: purple;">Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</span><br />
<span style="color: purple;">:=False, Transpose:=False</span><br />
<span style="color: purple;">Application.CutCopyMode = False</span><br />
<span style="color: purple;"><br /></span><span style="color: purple;">Range("k43:l43").Select</span><br />
<span style="color: purple;">Selection.Copy</span><br />
<span style="color: purple;">Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</span><br />
<span style="color: purple;">:=False, Transpose:=False</span><br />
<span style="color: purple;">Application.CutCopyMode = False</span><br />
<span style="color: purple;">Sheets("Cek face perdist p").Select</span><br />
<span style="color: purple;">Range("A8").Select</span><br />
<span style="color: purple;">Sheets("Cek face perdist p").Select</span><br />
<span style="color: purple;">Selection.Copy</span><br />
<span style="color: purple;">Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _</span><br />
<span style="color: purple;">:=False, Transpose:=False</span><br />
<span style="color: purple;">Application.CutCopyMode = False</span><br />
<span style="color: purple;">ActiveWorkbook.Save</span></div>
</div>
<br /></div>
<a name='more'></a>Jadi ringkasannya adalah file perhitungan yang besar dicopy dulu beberapa sheet menjadi file baru lalu diputuskan semua linknya dan disimpan file baru tersebut ke format excel 2003.<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br /><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-8775145464403945782012-09-12T20:40:00.000-07:002014-09-29T04:50:45.221-07:00kegunaan absolut dalam copy paste rumus di excelSalah satu yang membuat rumus excel kelihatan rumit adalah tanda "$" atau sering disebut tanda absolut.<br />
kenapa sih mesti pakai absolut, bukankah tanpa absolut rumus tetap bisa jalan.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Tanda absolute sangat berguna sekali jika suatu rumus dicopy paste kebawah atau keatas. terutama rumus rumus yang berhubungan dengan reference seperti lookup, vlookup, hlookup, index, match, if, sumif, dsb...<span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
contoh ada dua kolom di cell C1 terdapat angka 125 sebagai patokan <br />
<a name='more'></a>nilai jumlah 125<br />
12 1500...B2 diisi rumus Cell ( nilai dikali cell C1) shg rumusnya di cell B2=A2*C1<br />
12<br />
13 <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
15<br />
14<br />
<br />
bila sebelum kita beri tanda absolut langsung kita copy ke bawah rumus di cell B2 akan berubah dan salah. seperti dibawah ini :<br />
nilai jumlah 125<br />
<br />
12 1500...B2 diisi rumus Cell ( nilai dikali cell C1) shg rumusnya di cell B2=A2*C1<br />
12 0 hasil dari A3*C2 ( 12 x 0)<br />
13 0 hasil dari A4*C3 ( 13 x 0)<br />
15 0 hasil dari A5*C4 ( 15 x 0)<br />
14 0 hasil dari A6*C5 ( 14 x 0)<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Agar kesalahan di atas tidak terjadi kita copy ke bawah maka rumus di cell B2 diberi tanda absolut <br />
dari mulanya rumusnya B2=A2*C1 menjadi B2=A2*$C$1. ( nanti rumus C1 tidak akan berubah mengikuti cell walau di copy kebawah.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
( Cara memberi tanda absolut yaitu saat cursor pada fungsi di cell B2 disorot di tulisan C1 tekan F4 satu kali sehingga menjadi $C$1 )<br />
<br />
<br />
<br />
nilai jumlah 125<br />
12 1500...B2 diisi rumus Cell ( nilai dikali cell C1) dan beri tanda absolut shg rumusnya di cell B2=A2*$C$1<br />
12 1500 hasil dari A3*$C$1( 12 x 125)<br />
13 1625 hasil dari A4*$C$1( 13 x 125)<br />
15 1875 hasil dari A5*$C$1( 15 x 125)<br />
14 1750 hasil dari A6*$C$1( 14 x 125)<br />
<br />
kesimpulan : <a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
1. rumusnya yang ada di Excel jika dicopy ke cell lain maka rumus cell akan berubah otomatis mengikuti dan menyesuaikan tempat cellnya, sehingga perlu di beri tanda absolut untuk rumus yang tidak ingin berubah kalau nanti dicopy ke sell lain.<br />
<br />
2. cara untuk memberi absolut bisa menggunakan tombol F4. :<br />
- tekan F4 satu kali baris dan kolom jadi absolut. C1 --> $C$1<br />
- tekan F4 dua kali baris menjadi absolut. C1 --> C$1. baris ke satu jadi absolut<br />
- tekan F4 tiga kali kolom menjadi absolut C1 --> $C1. kolom C jadi Absolut.<br />
- tekan F4 empat kali semua tanda absolut menjadi hilang lagi kembali seperti semula.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<br />Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com2tag:blogger.com,1999:blog-8050259512377354517.post-90460611560905166022012-08-11T00:10:00.000-07:002014-09-30T20:25:37.686-07:00Bagaimana Membuat otomatisasi dengan macro excel VBAOtomatisasi memang diperlukan untuk mempermudah dan mempercepat pekerjaan. Beberapa keuntungan nya diantaranya :<br />
<ul>
<li>Memperpendek waktu pemrosesan perhitungan <span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;">)</span></li>
<li>Menyederhanakan masalah dengan adanya dashboard atau shortcut interface</li>
<li>Memperpendek waktu berpikir dan mengurangi energi berpikir yang tidak perlu. ( misal : setelah ini klik ini plus ini copy ini dan paste ini akan memakan waktu lama dan melelahkan. Dengan otomatisasi itu semua tidak terjadi.)<span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;">) </span></li>
<li>Tidak perlu mengingat rumus atau prosesnya mulai dari awal lagi.</li>
</ul>
Otomatisasi diperlukan untuk pekerjaan yang sifatnya berkala misal rutin harian, mingguan, bulanan bahkan tahunan. Dan bisa juga dikerjakan untuk suatu pekerjaan yang sangat banyak dan lebih banyak lagi sehingga akan memerlukan proses berbulan bulan atau sampai tahunan. Dengan otomatisasi pekerjaan berbulan bulan <br />
<a name='more'></a>tersebut dapat dikerjakan dalam hitungan hari<span style="background-color: white; color: white;">.(http://mymacrosformula.blogspot.com)</span><br />
<br />
<span style="color: white;">(http://mymacrosformula.blogspot.com)</span><br />
<br />
Dalam pekerjaan pembuatan laporan maupun perhitungan perhitungan otomatisasi dapat dibuat dengan menggunakan macro excel vba, Cara membuat program otomatisasi dengan macro seperti merekam tape recorder dan memainkannya lagi.<br />
<span style="color: white;">(http://mymacrosformula.blogspot.com)</span><br />
<br />
Untuk memulainya dari yang sederhana saja dulu. Kita tinggal klik record macro lalu kita kerjakan perhitungan perhitungan seperti klik cell ini bikin rumus, lalu copy dan klik cell ini lagi lalu copy lagi ke sheet ini baris sekian paste dan seterusnya sampai perhitungannya selesai lalu klik stop record macro. dan sudah selesai kita bikin program otomatisasi di excel. Baru setelah itu kita bisa melihat program program yang sudah kita bikin dan melihat kode kode macro yang otomatis terbentuk dengan menekan tombol record tadi. Lalu coba jalankan program macro yang udah dibikin tadi dengan menekan tombol play. dan lihat hasilnya apakah sudah sesuai dengan yang diharapkan. Mulailah latihan dengan cara di atas. <br />
<br />
Pada Excel 2007 pilih menu View --> Macros --> Record macro ( untuk memulai merekam macro )<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhBQtnRNhkQyvNr4iQXDefnizuJUyAQ4YpzOYsyyP9J_noGsNDdrpN8UsOq8iMq8AZR9qlpu1JJE6quXEpqluXp8YBGctNhJDacKURTTc9cd45TKLhydhgKeI3WDm6w2mOZK7QKkNYRO4j/s1600/macro+record.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhBQtnRNhkQyvNr4iQXDefnizuJUyAQ4YpzOYsyyP9J_noGsNDdrpN8UsOq8iMq8AZR9qlpu1JJE6quXEpqluXp8YBGctNhJDacKURTTc9cd45TKLhydhgKeI3WDm6w2mOZK7QKkNYRO4j/s640/macro+record.jpg" height="162" naa="true" width="640" /></a></div>
<br />
Pada Excel 2007 pilih menu View --> Macros --> View macros --> Edit ( untuk melihat program /kode macro selesai merekam )<br />
<span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;">)</span><br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu1xbPFfSecK4rI3GgHVPb8Fj3RWQ5Bhs99zZo4qlsIl6G6dMx0l1rLlxpaM4AZTwPl7ltM-ZJ6t3cUtXuRHi-kUYKVL0w9Q-v0cDpL8RxiDOq_4KjxaF4UXqD5lFoPtyzhFNG4a9sXMnN/s1600/macro+record.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu1xbPFfSecK4rI3GgHVPb8Fj3RWQ5Bhs99zZo4qlsIl6G6dMx0l1rLlxpaM4AZTwPl7ltM-ZJ6t3cUtXuRHi-kUYKVL0w9Q-v0cDpL8RxiDOq_4KjxaF4UXqD5lFoPtyzhFNG4a9sXMnN/s640/macro+record.jpg" height="168" naa="true" width="640" /></a><br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Pada Excel 2007 pilih menu View --> Macros --> View macros --> Run ( untuk menjalankan program /kode macro yang sudah direkam )<br />
<span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;">)</span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhx2aVKBR28dWkw1a_BuMjvSYqUDHQDz7cw-91XQoQGhBefm5JewKZeEyqVBSst7wyHh4KsrugcYlaJ3WfT9IbD8tlDho09Gmbcgu-HdtPOBUYxq6tx_-37AG26CMszwgstC7W7sPmpVXxm/s1600/run+macro.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhx2aVKBR28dWkw1a_BuMjvSYqUDHQDz7cw-91XQoQGhBefm5JewKZeEyqVBSst7wyHh4KsrugcYlaJ3WfT9IbD8tlDho09Gmbcgu-HdtPOBUYxq6tx_-37AG26CMszwgstC7W7sPmpVXxm/s200/run+macro.jpg" height="193" naa="true" width="200" /></a></div>
<br />
Nanti setelah selesaikan dijalankan. dilihat kalau hasilnya tidak sama maka perlu diperhatikan ada beberapa kode macro dari recording yang tidak jalan. hal ini karena beberapa hal. salah satunya karena navigasi cell yang tidak bisa di record oleh recorder macro. Untuk itu kode macro perlu di edit manual dengan kode navigasi cell yang sesuai dan benar. (lihat artikel sebelumnya <a href="http://adf.ly/838241/navigasi-cells">navigasi cell 1</a>, <a href="http://adf.ly/838241/navigasi-cell-2">navigasi cell 2</a>, dan <a href="http://www.ziddu.com/download/14868174/latihanmacropindahcellataurange.xls.html">contoh kode macro</a> )<br />
<span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><span style="color: white;">)</span><br />
Setelah itu kita <span style="color: white;">(</span><a href="http://mymacrosformula.blogspot.com/2014/02/bagaimana-caranya-membuat-macro-excel.html"><span style="color: blue;">akan ketahap selanjutnya...</span></a><span style="color: white;">)</span>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com4tag:blogger.com,1999:blog-8050259512377354517.post-34939253242964683952012-07-27T02:06:00.055-07:002014-09-29T04:50:45.148-07:00Memahami fungsi Index dan Match bag.1Memahami fungsi Index dan Match bag.1.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Fungsi Index dalam excel adalah untuk menentukan nilai atau isi dari alamat cell tapi dalam suatu tabel. bukan dari wokrsheet misal di cell a4 ditulis "jadi". maka hasil dari rumus index (range tabel,baris ke 4, kolom ke 1) adalah "jadi"<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Fungsi Match adalah untuk menentukan berada di urutan berapakah suatu nilai dalam suatu list. misal ada list angka : <br />
angka urutan<br />
- 50 1<br />
-123 2<br />
-345 3 <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
-567 4<br />
<a name='more'></a>-789 5<br />
-890 6<br />
<br />
maka hasil dari rumus match(789, blok dari list tabel, <strong>0</strong>) adalah 5.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Pada fungsi atau rumus match ada beberapa jenis match yaitu :<br />
jenis 1. Tanda 0 untuk cari angka yang sama persis <br />
jenis 2. Tanda 1 untuk cari angka terbesar <strong>kurang dari</strong> objek<br />
jenis 3. Tanda-1 untuk cari angka terkecil <strong>lebih dari</strong> objek<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Untuk jenis 2. match dengan <strong>type kurang dari</strong> hanya cocok untuk tabel dengan urutan dari atas ke bawah yaitu dari yang terkecil paling atas dan yang terbesar berada paling bawah. (urutan piramida/ascending)<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
maka hasil dari rumus match(580, blok dari list tabel, <strong>1</strong>) adalah 4. yaitu dengan nilai 567 < 580<br />
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Untuk jenis 3. match dengan type <strong>lebih dari </strong>hanya cocok untuk tabel dengan urutan dari atas ke bawah yaitu dari yang terkecil paling bawah dan yang terbesar berada paling atas. (urutan piramida terbalik / descending)<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
misal tabel :<br />
<br />
angka urutan<br />
<br />
- 500 1<br />
- 350 2<br />
- 275 3<br />
- 185 4 <a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
- 57 5<br />
<br />
<br />
maka hasil dari rumus match(290, blok dari list tabel,<strong>-1</strong>) adalah 2. yaitu dengan nilai 350 > 290<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
yang perlu diperhatikan dalam penggunaan index adalah baris dihitung dari atas kebawah (yang paling atas baris ke 1)<br />
yang perlu diperhatikan dalam penggunaan macth adalah susunan urutan tabel apakah ascending atau descending. untuk menentukan jenis type match nya.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<br />
Dan untuk gabungan rumus index dan match yaitu untuk ....<br />
<br />
nanti disambung lagi...<br />
penjelasannya nanti saja<br />
<br />
fungsi match bisa digunakan untuk pemberian bobot terhadap suatu rentang nilai, <br />
<br />
misal : nilai yang dicari 150 dapat nilai berapa ?<br />
<br />
angka nilai<br />
- diatas 350 5<br />
- 275 - 350 4<br />
- 185 - 275 3<br />
- 57 - 185 2 <span style="color: white;">http://mymacrosformula.blogspot.com</span><br />
- 0 - 57 1<br />
<br />
maka dibentuk tabel dummy untuk menghitungnya agar bisa dimasukan rumus index dan match<br />
angka nilai<br />
1000 (atau tak terhingga) 5<br />
350 4<br />
275 3<br />
185 2<br />
57 1<br />
maka rumus untuk gabungan index match nya adalah : index(blok tabel;match(<strong>150, </strong>blok kolom angka,-1);2)<br />
maka hasilnya adalah untuk 150 yaitu 2. (selamat mencoba)<br />
<br />
kesimpulan untuk tabel bentuk descending digunakan properties match dengan -1 dan untuk tabel angka diantara diambil angka yang batas paling atas atau nilai terbesar setiap rentang atau angka sisi kanan.<br />
<br />
kalau ada pertanyaan silahkan buka page contact me<br />
<br />
untuk penentuan nilai rentang bisa menggunakan fingsi if, and dan or tapi cukup hanya bisa beberapa baris, kalau baris rentangnya banyak sampai 100 baris rentang rumus if tidak bisa digunakan lagi.Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-42973391634319383192012-07-08T22:53:00.001-07:002014-09-29T04:50:45.154-07:00gunakan loop macro<a href="http://www.exceltip.com/st/Using_Loops_in_VBA_in_Microsoft_Excel/628.html">http://www.exceltip.com/st/Using_Loops_in_VBA_in_Microsoft_Excel/628.html</a><br />
<br />
You can run the macros either from the Visual Basic Editor by placing your cursor in the macro and pressing the F5 key, or from Excel by opening the Macros dialog box (ALT+F8) choosing the macro to run and clicking Run. It is best to run these macros from Excel so you can watch them as they work.<br />
<br />
<br />
<br />
<br />
Exercise 1: Do… Loop Until…<br />
The object of this macro is to run down column C as far as is necessary putting a calculation in each cell as far as is necessary.<br />
On Sheet1 select cell C2 and run the macro Loop1.<br />
Here's the code:<br />
<br />
Sub Loop1()<br />
' This loop runs until there is nothing in the next column<br />
Do<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
ActiveCell.Offset(1, 0).Select<br />
Loop Until IsEmpty(ActiveCell.Offset(0, 1))<br />
End Sub<br />
<br />
<br />
<br />
This macro places a formula into the active cell, and moves into the next cell down. It uses Loop Until to tell Excel to keep repeating the code until the cell in the adjacent column (column D) is empty. In other words, it will keep on repeating as long as there is something in column D.<br />
<br />
Delete the data from cells C2:C20 and ready for the next exercise<br />
<br />
<br />
<br />
Exercise 2: Do While… Loop<br />
<br />
<br />
<br />
The object of this macro is to run down column C as far as is necessary putting a calculation in each cell as far as is necessary.<br />
On Sheet1 select cell C2 and run the macro Loop2<br />
Here's the code<br />
<br />
Sub Loop2()<br />
' This loop runs as long as there is something in the next column<br />
Do While IsEmpty(ActiveCell.Offset(0, 1)) = False<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
ActiveCell.Offset(1, 0).Select<br />
Loop<br />
End Sub<br />
<br />
This macro does the same job as the last one using the same parameters but simply expressing them in a different way. Instead of repeating the code Until something occurs, it does something While something is the case. It uses Do While to tell Excel to keep repeating the code while there is something in the adjacent column as opposed to until there is nothing there. The function IsEmpty = False means "Is Not Empty".<br />
<br />
<br />
<br />
Delete the data from cells C2:C20 and ready for the next exercise<br />
<br />
<br />
<br />
Exercise 3: Do While Not… Loop<br />
<br />
<br />
<br />
The object of this macro is to run down column C as far as is necessary putting a calculation in each cell as far as is necessary.<br />
<br />
<br />
<br />
On Sheet1 select cell C2 and run the macro Loop3.<br />
<br />
<br />
<br />
Here's the code:<br />
<br />
<br />
<br />
Sub Loop3()<br />
<br />
<br />
<br />
' This loop runs as long as there is something in the next column<br />
<br />
<br />
<br />
Do While Not IsEmpty(ActiveCell.Offset(0, 1))<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Loop<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
This macro makes exactly the same decision as the last one but just expresses it in a different way. IsEmpty = False means the same as Not IsEmpty. Sometimes you can't say what you want to say one way so VBA often offers an alternative syntax.<br />
<br />
<br />
<br />
Delete the data from cells C2:C20 and ready for the next exercise<br />
<br />
<br />
<br />
Exercise 4: Including an IF statement<br />
<br />
<br />
<br />
The object of this macro is as before, but without replacing any data that may already be there.<br />
<br />
<br />
<br />
Move to Sheet2, select cell C2 and run the macro Loop4.<br />
<br />
<br />
<br />
Here's the code:<br />
<br />
<br />
<br />
Sub Loop4()<br />
<br />
<br />
<br />
' This loop runs as long as there is something in the next column<br />
<br />
<br />
<br />
' It does not calculate an average if there is already something in the cell<br />
<br />
<br />
<br />
Do<br />
<br />
<br />
<br />
If IsEmpty(ActiveCell) Then<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
<br />
<br />
<br />
End If<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Loop Until IsEmpty(ActiveCell.Offset(0, 1))<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
The previous macros take no account of any possible contents that might already be in the cells into which it is placing the calculations. This macro uses an IF statement that tells Excel to write the calculation only if the cell is empty. This prevents any existing data from being overwritten. The line telling Excel to move to the next cell is outside the IF statement because it has to do that anyway.<br />
<br />
<br />
<br />
Exercise 5: Avoiding Errors<br />
<br />
<br />
<br />
This macro takes the IF statement a stage further, and doesn't try to calculate an average of cells that are empty. <br />
<br />
<br />
<br />
First, look at the problem. Move to Sheet3, select cell C2 and run the macro Loop4.<br />
<br />
<br />
<br />
Note that because some of the pairs of cells in columns A and B are empty, the =AVERAGE function throws up a #DIV/0 error (the Average function adds the numbers in the cells then divides by the number of numbers - if there aren't any numbers it tries to divide by zero and you can't do that!).<br />
<br />
<br />
<br />
Delete the contents of cells C2:C6 and C12:C20. Select cell C2 and run the macro Loop5.<br />
<br />
<br />
<br />
Here's the code:<br />
<br />
<br />
<br />
Sub Loop5()<br />
<br />
<br />
<br />
' This loop runs as long as there is something in the next column<br />
<br />
<br />
<br />
' It does not calculate an average if there is already something in the cell<br />
<br />
<br />
<br />
' nor if there is no data to average (to avoid #DIV/0 errors).<br />
<br />
<br />
<br />
Do<br />
<br />
<br />
<br />
If IsEmpty(ActiveCell) Then<br />
<br />
<br />
<br />
If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then<br />
<br />
<br />
<br />
ActiveCell.Value = ""<br />
<br />
<br />
<br />
Else<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
<br />
<br />
<br />
End If<br />
<br />
<br />
<br />
End If<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Loop Until IsEmpty(ActiveCell.Offset(0, 1))<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
Note that this time there are no error messages because Excel hasn't tried to calculate averages of numbers that aren't there.<br />
<br />
<br />
<br />
In this macro there is a second IF statement inside the one that tells Excel to do something only if the cell is empty. This second IF statement gives excel a choice. Instead of a simple If there is an If and an Else. Here's how Excel reads its instructions… <br />
<br />
<br />
<br />
"If the cell has already got something in, go to the next cell. But if the cell is empty, look at the corresponding cells in columns A an B and if they are both empty, write nothing (""). Otherwise, write the formula in the cell. Then move on to the next cell."<br />
<br />
<br />
<br />
Exercise 6: For… Next Loop<br />
<br />
<br />
<br />
If you know, or can get VBE to find out, how many times to repeat a block of code you can use a For… Next loop.<br />
<br />
<br />
<br />
Move to Sheet4, select cell C2 and run the macro Loop6.<br />
<br />
<br />
<br />
Here's the code:<br />
<br />
<br />
<br />
Sub Loop6()<br />
<br />
<br />
<br />
' This loop repeats for a fixed number of times determined by the number of rows<br />
<br />
<br />
<br />
' in the range<br />
<br />
<br />
<br />
Dim i AsInteger<br />
<br />
<br />
<br />
For i = 1 To Selection.CurrentRegion.Rows.Count - 1<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Next i<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
This macro doesn't make use of an adjacent column of cells like the previous ones have done to know when to stop looping. Instead it counts the number of rows in the current range of data and uses the For… Next method to tell Excel to loop that number of times (minus one, because when VBA counts it starts at zero).<br />
<br />
<br />
<br />
Exercise 7: Getting the Reference From Somewhere Else<br />
<br />
<br />
<br />
Select cell G2 and run the macro Loop7.<br />
<br />
<br />
<br />
Here's the code:<br />
<br />
<br />
<br />
Sub Loop7()<br />
<br />
<br />
<br />
' This loop repeats a fixed number of times getting its reference from elsewhere<br />
<br />
<br />
<br />
Dim i As Integer<br />
<br />
<br />
<br />
Dim intRowCount As Integer<br />
<br />
<br />
<br />
intRowCount = Range("A1").CurrentRegion.Rows.Count - 1<br />
<br />
<br />
<br />
For i = 1 To intRowCount<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = "=Average(RC[-5],RC[-6])"<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Next i<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
You can get the reference for the number of loops from anywhere. This macro places a set of calculations in column G for a number of times dictated by the number of rows in the block of data starting with cell A1. The For… Next statement has been simplified a bit by first declaring a variable intRowCount and filling it with the appropriate information (how many rows in the block by A1). This variable gets used in the next line instead of a long line of code. This is just another example of doing the same job a different way.<br />
<br />
<br />
<br />
If you wanted to construct a loop that always ran a block of code a fixed number of times, you could simply use an expression like:<br />
<br />
<br />
<br />
For i = 1 To 23<br />
<br />
<br />
<br />
Exercise 8: About Doing Calculations…<br />
<br />
<br />
<br />
All the previous exercises have placed a calculation into a worksheet cell by actually writing a regular Excel function into the cell (and leaving it there) just as if you had typed it yourself. The syntax for this is:<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = “TYPE YOUR FUNCTION HERE”<br />
<br />
<br />
<br />
These macros have been using:<br />
<br />
<br />
<br />
ActiveCell.FormulaR1C1 = “=Average(RC[-5],RC[-6])”<br />
<br />
<br />
<br />
Because this method actually places a function into the cell rather than a value, their results will change as the cells that they refer to change, just like regular functions – because they are regular functions. The calculating gets done in Excel because all that the macro did was to write the function.<br />
<br />
<br />
<br />
If you prefer, you can get the macro to do the calculating and just write the result into the cell. VBA has its own set of functions, but unfortunately AVERAGE isn’t one of them. However, VBA does support many of the commoner Excel functions with its WorksheetFunction method.<br />
<br />
<br />
<br />
On Sheet1 select cell C2 and run the macro Loop1. <br />
<br />
<br />
<br />
Take a look at the cells you just filled in. Each one contains a function, written by the macro. <br />
<br />
<br />
<br />
Now delete the contents from the cells C2:C20, select cell C2 and run the macro Loop8.<br />
<br />
<br />
<br />
Here’s the code:<br />
<br />
<br />
<br />
Sub Loop8()<br />
<br />
<br />
<br />
Do<br />
<br />
<br />
<br />
ActiveCell.Value = WorksheetFunction.Average(ActiveCell.Offset(0, -1).Value, _<br />
<br />
<br />
<br />
ActiveCell.Offset(0, -2).Value)<br />
<br />
<br />
<br />
ActiveCell.Offset(1, 0).Select<br />
<br />
<br />
<br />
Loop Until IsEmpty(ActiveCell.Offset(0, 1))<br />
<br />
<br />
<br />
End Sub<br />
<br />
<br />
<br />
Take a look at the cells you just filled in. This time there’s no function, just the value. All the calculating was done by the macro which then wrote the value into the cell.Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com0tag:blogger.com,1999:blog-8050259512377354517.post-59651447642714136232012-06-21T02:26:00.002-07:002014-09-29T04:50:45.188-07:00Kegunaan setting regional pada format angka di excelPertama saya jelaskan dulu dimana letak setting regional ini :<br />
Setting regional ini letaknya di control panel --> Regional and language option spt gambar di bawah :<br />
<'' gambar setting regional "><br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
<br />
Apa pengaruhnya regional ini pada excel?<br />
Sangat pengaruh terutama saat kita akan menyalin atau copy paste dari aplikasi lain misal : web banking, SAP, program program perhitungan lainnya ke excel.<br />
<a name='more'></a>Dan juga saat kita download dari aplkasi alikasi tersebut ke folder lokal. biasanya di download dalam bentuk ext .xls, .csv atau txt. kalau setting regional kita tidak disesuaikan file yang kita buka nanti malah menjadi text dan angkanya tidak bisa dijumlahkan atau menjadi text bukan numeric.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Ilustrasinya seperti ini :<br />
misal kita ada aplikasi namanya program penjualan mau kita kopi paste ke excel dengan blok layar tampilan aplikasi dan paste di excel.<br />
- Pertama kita perhatikan dulu letak titik komanya di aplikasi, ternyata contohnya seperti ini 450,000 (berarti ini format satuan angka adalah english united state ) yaitu ribuan dipisahkan dengan koma.<br />
<br />
- maka kita setting Regional and language option menjadi english united state.<br />
- lalu kita paste salinan tampilan layar aplikasi tadi ke excel maka hasilnya akan sesuai seperti yang kita harapkan dan angkanya bisa dijumlah dengan benar.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
- Nah, bagaimana kalau kita setting Regional and language option menjadi Indonesia (ribuan dipisah titik). maka nanti hasil pastenya di excel adalah menjadi kacau angka 450,000 menjadi dianggap cuma 450 atau malah tidak bisa dihitung karena dianggap text bukan numeric.<br />
<br />
Begitu juga sebaliknya misal diaplikasi setting nya titik koma maka sebaiknya kita atur juga Regional and language option menjadi Indonesia. agar nanti perhitungan berjalan lancar.<br />
<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
Ada juga cara agar kita tidak usah mengganti Regional and language option yaitu dengan text to column (saya menyebutnya "ALT+D+E". Di Excel 2007 menunya ada di Data --> Text to Column. <br />
biasanya setelah paste di excel atau buka file yang formatnya beda dari versi excel yang ada, akan muncul gambar berbentuk gambar paste kalau kita klik maka akan langsung menuju menu text to column.<br />
<br />
Pada Text to Column ini pada step yang ketiga kan ditanyakan setting format angkanya yaitu pemisah decimal nya apa koma atau titik dan pemisah ribuannya apa koma atau titik.<br />
<a href="http://mymacrosformula.blogspot.com/"><span style="color: white;">http://mymacrosformula.blogspot.com</span></a><br />
demikian dulu kalau ada yang belum bisa ditanyakan ke <a href="mailto:maxi.kiiro@gmail.com" target="_blank">saya</a>Maxihttp://www.blogger.com/profile/13057501715098598491noreply@blogger.com2