tag:blogger.com,1999:blog-68520077814170585852024-02-20T19:04:08.076-08:00Tempatnya Belajar Macro ExcelDedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.comBlogger39125tag:blogger.com,1999:blog-6852007781417058585.post-17992440207046077572010-03-07T05:42:00.000-08:002010-03-07T07:39:20.744-08:00Mengenal PivotTable<div style="text-align: justify;">Jika Anda memiliki sejumlah data yang besar dan terdiri atas banyak kolom (field), tentu dari data itu banyak makna yang dapat disimpulkan. Namun demikian, akan sulit bila Anda harus menyimpulkan kecenderungan apa yang terjadi, perbandingan antara suatu field dengan field yang lain, perulangan data, hubungan perulangan data dalam suatu periode. Untuk melakukan analisa yang jelas diperlukan pengelompokan, pengurutan, serta pengolahan data sesuai spesifikasi yang diperlukan. Microsoft Excel telah menyediakan sarana pengelolaan data berupa Sorting (pengurutan data), Filter (penyaringan data), dan Sub Total (pengelompokan dan perhitungan data)1. Namun, jika fasilitas tadi belum mencukupi kebutuhan Anda dalam menganalisa data, maka ada suatu sarana yang hebat dari Excel disebut PivotTable<br /></div><br /><div class="fullpost"><br />Ketik data seperti gambar berikut:<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvkhgpOedxuKBh9fu8sCFMsJV6G6RzLROE8JPkWEGqP0y6X9JZOXcYlr-nHrRuhaqwQmTbjMuw3f8_GQP1BXDp023llELECpeL-go3U4kq6yQsCUJy2PfQD5YtV79vO_zRd4-JlAm3p2DN/s1600-h/1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 178px; height: 223px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvkhgpOedxuKBh9fu8sCFMsJV6G6RzLROE8JPkWEGqP0y6X9JZOXcYlr-nHrRuhaqwQmTbjMuw3f8_GQP1BXDp023llELECpeL-go3U4kq6yQsCUJy2PfQD5YtV79vO_zRd4-JlAm3p2DN/s320/1.png" alt="" id="BLOGGER_PHOTO_ID_5445900170140623986" border="0" /></a>Sekarang kita ingin mengetahui berapa total penjualan buku setiap tanggal dari setiap sales dengan menggunakan Pivot Table<br /></div><br />- Sorot range A2 sampai C12<br />- Klik [Data] pada Menu Bar lalu klik [PivotTable and PivotChart Report…]<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4EZwulQ5lC3oMgX_uqZzKYiXttIdQqOXr4hJx8Y-j9tRylqStLJPz7zt6_zSrui8qEU2xuewS6ZROko8okfo7I1P0rucKBSZE0MKKg9zJD9pTYc1Xf9glws-CiSe97_kEKFRaRCPhlH__/s1600-h/2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 194px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4EZwulQ5lC3oMgX_uqZzKYiXttIdQqOXr4hJx8Y-j9tRylqStLJPz7zt6_zSrui8qEU2xuewS6ZROko8okfo7I1P0rucKBSZE0MKKg9zJD9pTYc1Xf9glws-CiSe97_kEKFRaRCPhlH__/s320/2.png" alt="" id="BLOGGER_PHOTO_ID_5445901187270315586" border="0" /></a>Akan muncul gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnVV3zaReLbJyf5PQNqUvh-z4mAlMeY9ThveHBWxAfOlyIXbip9VihtOcrloKGrBbnj2BKawHGf-Iz8yGZ_gZxRZCe0ED2EnJ51bAdBsfju6r1RKfNpeZ9mnVF4joGxHzIDlnUJHaLeP9J/s1600-h/3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 221px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnVV3zaReLbJyf5PQNqUvh-z4mAlMeY9ThveHBWxAfOlyIXbip9VihtOcrloKGrBbnj2BKawHGf-Iz8yGZ_gZxRZCe0ED2EnJ51bAdBsfju6r1RKfNpeZ9mnVF4joGxHzIDlnUJHaLeP9J/s320/3.png" alt="" id="BLOGGER_PHOTO_ID_5445901878874865330" border="0" /></a>- Secara default option button [Microsoft Office Excel list or database] dan PivotTable dipilih<br />- Jika ingin disertai dengan Chart maka klik pada option button PivotChart report<br />- Klik [Next]<br />- Muncul kotak dialog PivotTable dan PivotChart Wizard dan Range A2:C12 disorot<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSxAnAkv4-9wMkkhd1bCsvdGMksIKevU3NG4NC-7sLC_tA53jcj3mAU0NCaPV0wzgfd0jo8jz8mLI_0ZIA3hBBZnmXAQN6tMq1RyCspKlCgh3i5VB7ckMlPzNaa9tFwdXafqaSAdZ1ntg2/s1600-h/4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 260px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSxAnAkv4-9wMkkhd1bCsvdGMksIKevU3NG4NC-7sLC_tA53jcj3mAU0NCaPV0wzgfd0jo8jz8mLI_0ZIA3hBBZnmXAQN6tMq1RyCspKlCgh3i5VB7ckMlPzNaa9tFwdXafqaSAdZ1ntg2/s320/4.png" alt="" id="BLOGGER_PHOTO_ID_5445903214224036530" border="0" /></a>- Klik [Next]<br />Muncul kotak dialog berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsFWMvf5hqhk72ORKboGgNOwc9i6sDfizVGI6r0akitrzE4zSHyD6GL8LgDFsMJY8N6RCKLdEzmdXaGCprNv1AWbAdyEWmv_Ar5Zi3f2LzwPqyQ86E5Vbqbc_zO-T_-jsUS5iDzMj61WpE/s1600-h/5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 143px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjsFWMvf5hqhk72ORKboGgNOwc9i6sDfizVGI6r0akitrzE4zSHyD6GL8LgDFsMJY8N6RCKLdEzmdXaGCprNv1AWbAdyEWmv_Ar5Zi3f2LzwPqyQ86E5Vbqbc_zO-T_-jsUS5iDzMj61WpE/s320/5.png" alt="" id="BLOGGER_PHOTO_ID_5445904618543100642" border="0" /></a>- Klik [Layout]<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiiujqIa6xPUIbqCK5d1pop3W_70CITW2jd9v1VWMIUm7uTkufUkPvF6cWgUd-7FW3TPuJ-1tOQHm3M2izJfFSnb9W_rZguXA_hcuq3gvJK7P6Kgw5XLWxNTKfd6rhBbUgjrjc6Qq9g0mk/s1600-h/6.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 229px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiiujqIa6xPUIbqCK5d1pop3W_70CITW2jd9v1VWMIUm7uTkufUkPvF6cWgUd-7FW3TPuJ-1tOQHm3M2izJfFSnb9W_rZguXA_hcuq3gvJK7P6Kgw5XLWxNTKfd6rhBbUgjrjc6Qq9g0mk/s320/6.png" alt="" id="BLOGGER_PHOTO_ID_5445905388224559330" border="0" /></a>- Drag [Tgl] ke area [Row]<br />- Drag [Sales] ke area [Row]<br />- Drag [Jml] ke area [Column] atau [Data]<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiawP_aT0-iGQcE-rE2iXNOJmCM1SbDo5OWP-kw3xhN5m2IOcIr1K6Ja8fOR-41gRj1ADmNmsU7623gglv1jm48X7AQQrdplGksLkvCWWw9j0eCuoLvK9RJpwYy1epJEysw_9OPiDK45GTT/s1600-h/7.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 228px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiawP_aT0-iGQcE-rE2iXNOJmCM1SbDo5OWP-kw3xhN5m2IOcIr1K6Ja8fOR-41gRj1ADmNmsU7623gglv1jm48X7AQQrdplGksLkvCWWw9j0eCuoLvK9RJpwYy1epJEysw_9OPiDK45GTT/s320/7.png" alt="" id="BLOGGER_PHOTO_ID_5445906142123504402" border="0" /></a>Notes<br /><div style="text-align: justify;">Dalam PivotTable data yang bersifat hitungan, contoh: Jumlah ,Average dll diletakkan pada area Column. Sedangkan data yang sifatnya nama,tanggal,keterangan dll diletakkan pada area Row<br /></div><br />- Kemudian klik [OK]<br />- Muncul kotak dialog berikut<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip5BUnJeWZSbgtf7KV0LRBgKtiZ2DDrMp-SCis-1rrWy9NrjWEhuXTGdJwl51bB0UEApXvy0X8QyokdmMfjgTf0UdZ0UR0POTCsAiKcYPmnAPNIR9RB26OhFPFAiMVCW5HuhE425tKIzwc/s1600-h/8.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 143px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip5BUnJeWZSbgtf7KV0LRBgKtiZ2DDrMp-SCis-1rrWy9NrjWEhuXTGdJwl51bB0UEApXvy0X8QyokdmMfjgTf0UdZ0UR0POTCsAiKcYPmnAPNIR9RB26OhFPFAiMVCW5HuhE425tKIzwc/s320/8.png" alt="" id="BLOGGER_PHOTO_ID_5445907290992187458" border="0" /></a>- Ada 2 option button, [New worksheet] jika Pivot akan diletakkan pada sheet baru dan [Existing worksheet] jika Pivot akan diletakkan pada sheet yang sama dengan data tadi<br /></div>- Sebagai contoh klik option button [New worksheet]<br />- Maka hasil akhirnya adalah seperti gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1yhZXrUbCO3i2I8yo2oESFBKEMCvqMVdrmba4_oLhi7AlnLUcvyHJyw327VmuKDGqe6eoHIbCknAbj_oC9jhMav0Uxh7SokWpuKIaXQydgNteRrWdU5vOqSSz7GEf45WM1zhsc6azNGyr/s1600-h/9.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 201px; height: 291px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1yhZXrUbCO3i2I8yo2oESFBKEMCvqMVdrmba4_oLhi7AlnLUcvyHJyw327VmuKDGqe6eoHIbCknAbj_oC9jhMav0Uxh7SokWpuKIaXQydgNteRrWdU5vOqSSz7GEf45WM1zhsc6azNGyr/s320/9.png" alt="" id="BLOGGER_PHOTO_ID_5445908209665515122" border="0" /></a><br />- Untuk tampilan lain coba drag tulisan [Sales] ke [Total] ==> Timpa<br />- Maka hasilnya akan seperti ini<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSbMN3_dagwm3Jty0Vp2Cp8eTzMFVJOMnTIOwCl-f-kxCJA3ZVqCv7jKKgT6BtmCheWY9fAYD8jIx8yhWosEUqZ2X1l90ViGDoKUd_W94XXF4GqzG0N508HfLk6AEVT8E-ZpfB9iTNkXHi/s1600-h/10.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 119px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSbMN3_dagwm3Jty0Vp2Cp8eTzMFVJOMnTIOwCl-f-kxCJA3ZVqCv7jKKgT6BtmCheWY9fAYD8jIx8yhWosEUqZ2X1l90ViGDoKUd_W94XXF4GqzG0N508HfLk6AEVT8E-ZpfB9iTNkXHi/s320/10.png" alt="" id="BLOGGER_PHOTO_ID_5445908625178556994" border="0" /></a><br />Perhatikan tanda panah pada combo box [Tgl] dan [Sales], coba anda klik…<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbwMpQkTMTA_WII9YuEkNeP4hbbgx5hdxUVLDtDx-8WK7uBchlXVEsWHyuMAYtWwsSG46_iUHZRwskYdFqudp2FIlsdGxtv7yBZQWUkAgqTLBqj5xMV7iBeWf8gwQLMeOUrAOtZA1xlyw1/s1600-h/11.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 214px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbwMpQkTMTA_WII9YuEkNeP4hbbgx5hdxUVLDtDx-8WK7uBchlXVEsWHyuMAYtWwsSG46_iUHZRwskYdFqudp2FIlsdGxtv7yBZQWUkAgqTLBqj5xMV7iBeWf8gwQLMeOUrAOtZA1xlyw1/s320/11.png" alt="" id="BLOGGER_PHOTO_ID_5445909981571416978" border="0" /></a>Anda dapat memilih salah satu Sales yang ingin dilihat. Fungsinya seperti Auto Filter. Untuk menghilangkan tanda Check List terlebih dahulu klik pada [Show All], setelah itu pilih satu atau lebih nama Sales<br /></div><br />Cukup jelas kah bahasan mengenai penggunaan PivotTable ini?<br /><div style="text-align: justify;">Jika ada yang kurang jelas silahkan diskusikan dengan saya dengan meninggalkan komentar<br /></div><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-40742749136168317672010-02-21T07:46:00.000-08:002010-02-21T17:46:20.766-08:00Cara Menjalankan MacroPada artikel terdahulu sudah saya tulis cara menjalankan Macro adalah dengan cara:<br />- Dari menu bar Visual Basic Editor (VBE) dengan mengklik [Run] - [Run Sub/UserForm F5]<br /><div style="text-align: justify;">- Dari menu bar Visual Basic Editor (VBE) dengan menekan tombol F8 beberapa kali untuk <a href="http://d-josva.blogspot.com/2010/02/melihat-macro-bekerja-step-by-step.html">Melihat Macro Bekerja Step by Step</a> atau line demi line<br /></div><div style="text-align: justify;">Kedua cara di atas adalah melalui Visual Basic Editor. Tentu saja ini agak riskan jika pemakai Macro anda harus selalu masuk ke VBE. Karena bisa jadi Macro yang anda buat, secara sengaja ataupun tidak sengaja bisa "tersentuh" dan berubah yang mengakibatkan kesalahan pada program.<br /></div><div style="text-align: justify;">Menjalankan Event pada Macro yang paling banyak digunakan adalah melalui Tombol (Button) Tombol ini umumnya di tempatkan pada Worksheet dan UserForm. Untuk menjalankan Event cukup hanya dengan mengklik tombol ini<br /></div><br /><div class="fullpost"><br />Note<br />Event adalah:<br /><div style="text-align: justify;">Kejadian yang timbul akibat prosedur VBA (Macro) dijalankan, adapun contoh Event adalah Menghapus range, Membuka file,Mengcopy range, Mengcopy sel dll<br /></div><br /><div style="text-align: justify;">Kembali ke awal tadi, bagaimana menjalankan Macro selain 2 cara yang di atas tadi? Pertama- tama siapkan sebuah kode sebagai bahan untuk latihan, kodenya adalah sbb:<br /></div><blockquote>Sub Latihan()<br /><br />Range("A1").Value = 10<br />Range("A2").Value = 15<br />Range("A3").Formula = "=A1+A2"<br /><br />Range("A1").Select<br /><br />End Sub</blockquote><br /><span style="font-weight: bold;">CARA 1</span><br />- Dari menu bar Sheet1 Excel klik [Tools] - [Macro] - [Macros]<br />- Akan muncul seperti Gambar 1 berikut<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4u28YDRac5cu7l9y3ZpSZ610-8apSXrxutabMOzf3BFNERBPS4s8g8LEEBkuizr6zKhCE1OjN6odmiCY-Nm21N9attQqVQhwJZ3F4D8iE5ovma2Nd4f-S7tNrV5WfYfV7GDB4PEtKvfFA/s1600-h/m4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 316px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4u28YDRac5cu7l9y3ZpSZ610-8apSXrxutabMOzf3BFNERBPS4s8g8LEEBkuizr6zKhCE1OjN6odmiCY-Nm21N9attQqVQhwJZ3F4D8iE5ovma2Nd4f-S7tNrV5WfYfV7GDB4PEtKvfFA/s400/m4.png" alt="" id="BLOGGER_PHOTO_ID_5440728797578187906" border="0" /></a>- Lalu klik tombol Run, maka Macro akan dieksekusi yaitu muncul angka pada selA1=10,A2=15 dan A3=25<br /></div><br /><span style="font-weight: bold;">CARA 2</span><br />- Hapus angka terdapat pada SeL A1,A2 dan A3<br />- Dari menu bar Sheet1 Excel klik [Tools] - [Macro] - [Macros]<br />- Perhatikan Gambar 1 lalu klik tombol Options<br />- Lalu akan muncul gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmEVI8MtsKQqKkeWc_n6PWMpZoSWriRHJoGozGbV0e8a1Wnontuk4415ljbhVApM7QpBwreNk7NYNMEL9-a0kvOVKOFQhkU1J12zYf96hpP8F_Gi8zNVaXNhGqKoQ9MALFKmKzGoFw3E2Y/s1600-h/m5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 297px; height: 220px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmEVI8MtsKQqKkeWc_n6PWMpZoSWriRHJoGozGbV0e8a1Wnontuk4415ljbhVApM7QpBwreNk7NYNMEL9-a0kvOVKOFQhkU1J12zYf96hpP8F_Gi8zNVaXNhGqKoQ9MALFKmKzGoFw3E2Y/s400/m5.png" alt="" id="BLOGGER_PHOTO_ID_5440730786949992498" border="0" /></a><br />- Pada kotak Ctrl+Shift ketikkan huruf S besar lalu klik OK<br />- Sekarang tekan Ctrl+Shift+S bersamaan, maka Macro akan dieksekusi<br /><br />Untuk cara lainnya Klik <a href="http://d-josva.blogspot.com/2010/01/cara-lain-menjalankan-macro-2.html">disini</a><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-68281223112027700992010-02-21T05:59:00.000-08:002010-02-21T07:39:28.746-08:00Modul Dan ProsedurModul adalah tempat prosedur diletakkan <br /><div style="text-align: justify;">Prosedur adalah: Unit kode yang diapit atau terletak diantara statement Sub dan End Sub dan statement Function dan End Function <br /></div> <span style="font-weight: bold;">Contoh 1 </span><br />Sub Test() <br />Range ("A1").Value = 20 <br />End Sub <br /> <span style="font-weight: bold;">Contoh 2 </span><br />Function Test() <br />Range ("A1").Value = 20 <br />End Function <br /> Kedua prosedur di atas jika dijalankan akan sama-sama menghasilkan nilai 20 pada sel A1 <br /><div class="fullpost"><br /><div style="text-align: justify;">Prosedur dalam Visual Basic Application mempunyai 2 lingkup.Yaitu lingkup PRIVATE dan PUBLIC <br /></div><span style="font-weight: bold;">A. Lingkup PRIVATE </span><br /><div style="text-align: justify;">Sebuah prosedur dengan menggunakan lingkup PRIVATE, hanya dapat di akses dan mengakses prosedur lain tetapi hanya dalam satu modul yang sama (lihat gambar-1) <br /><br /></div><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0xzEI59X3gzQ1x9cFjwVoraS0GVxWG6_hMk77RbcVBNar5GQqAWvJyBW_GrltKSVkxIjhg6P-BtFKoTXNzJkKvObP7hiETVIWlavm5G0fvfn3QeZqwlvRlxF-tTZRE4W9YxUNegblSelz/s1600-h/M1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 214px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0xzEI59X3gzQ1x9cFjwVoraS0GVxWG6_hMk77RbcVBNar5GQqAWvJyBW_GrltKSVkxIjhg6P-BtFKoTXNzJkKvObP7hiETVIWlavm5G0fvfn3QeZqwlvRlxF-tTZRE4W9YxUNegblSelz/s400/M1.png" alt="" id="BLOGGER_PHOTO_ID_5440715391510368866" border="0" /></a><br /><div style="text-align: justify;">Keempat prosedur diatas berada dalam satu modul yang sama.Yaitu Module1 Jika Test1 kita jalankan maka akan menghasilkan nilai 1 pada sel A1, demikian juga Test2 dan Test3 akan menghasilkan nilai 1 pada sel A2 dan A3. <br /></div>Bagaimana dengan Test4?<br /><div style="text-align: justify;">Test4 jika dijalankan akan menjalankan Test2 (Call Test2) yaitu menghasilkan nilai 1 pada sel A2 . Private Sub Test4() akan berfungsi karena yang di akses (dipanggil) yaitu Private Sub Test2() berada dalam satu modul <br /><br /></div>Note: Agar lebih jelas, gunakan F8 untuk menjalankan prosedur . Lihat postingan <a href="http://d-josva.blogspot.com/2010/02/melihat-macro-bekerja-step-by-step.html">Melihat Macro Bekerja Step By Step</a><br /> <br />- Sekarang tambahkan sebuah modul, dengan cara klik <span style="font-weight: bold;">[Insert]</span> lalu klik <span style="font-weight: bold;">[Module] </span><br />- Di Jendela Kode Module2 Cut Copy kan Test2 yang di Module1 (lihat gambar-2)<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj03_sTx9-QwLhQJVWzfVQMMI1MIUzqN77SPsPNuQVplkb-PFRpCk-PlKsuZ0Rn6wxhjsLe0uPs5kVp65FIH1sFh4_FFF-Hb3IkUllctrPbtpJu6iDq2FUstoA-lFGeJvnmkyL4HWeDZyCJ/s1600-h/M2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 354px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj03_sTx9-QwLhQJVWzfVQMMI1MIUzqN77SPsPNuQVplkb-PFRpCk-PlKsuZ0Rn6wxhjsLe0uPs5kVp65FIH1sFh4_FFF-Hb3IkUllctrPbtpJu6iDq2FUstoA-lFGeJvnmkyL4HWeDZyCJ/s400/M2.png" alt="" id="BLOGGER_PHOTO_ID_5440717359654578946" border="0" /></a>Kembali ke jendela kode Module 1 <br />Letakkan kursor di Test4, lalu jalankan prosedur, apa yang terjadi? <br /><div style="text-align: justify;">Akan muncul pesan ERROR seperti gambar-3, karena Test2 yang di call berada pada modul yang lain (module2) <br /><br /></div><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgOSiCbkFFY8vKX3A6FJPdUz6QzIpfU1Ys6F7cYExknQ-Fpl8T2Yio_dMmbvqmHVTiaao1cmM8tOsXr-Ljf8NfKNZ5eU6yAVFGeJ_g1Lx6qSuLLG4WmcIrrgl5yW5ZQSfcIZ5J6K5Y1bGYe/s1600-h/M3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 210px; height: 133px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgOSiCbkFFY8vKX3A6FJPdUz6QzIpfU1Ys6F7cYExknQ-Fpl8T2Yio_dMmbvqmHVTiaao1cmM8tOsXr-Ljf8NfKNZ5eU6yAVFGeJ_g1Lx6qSuLLG4WmcIrrgl5yW5ZQSfcIZ5J6K5Y1bGYe/s400/M3.png" alt="" id="BLOGGER_PHOTO_ID_5440719502355888418" border="0" /></a> <span style="font-weight: bold;">B. Lingkup PUBLIC </span><br /><div style="text-align: justify;">Lingkup PUBLIC adalah kebalikan dari Lingkup PRIVATE. Lingkup PUBLIC dapat diakses dan mengakses prosedur ke semua modul dalam satu Workbook <br /><br /></div>Kembali ke gambar-2 <br />- Di Module1 =>Private Sub Test4() ganti dengan Public Sub Test4(), <br />- Di Module2 =>Private Sub Test2() ganti dengan Public Sub Test2(), <br /> <br /><div style="text-align: justify;">Sekarang jalankan prosedur Private Sub Test2, dan lihat hasilnya.Angka 1 akan muncul di sel A2 <br /></div> <br /><br /><br /><br /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-71574705193664447422010-02-18T00:01:00.000-08:002010-02-18T01:13:30.361-08:00Melihat Macro Bekerja Step By Step<div style="text-align: justify;">Dalam membuat suatu program, ada 3 hal penting yang pasti dikerjakan oleh seorang Programmer <br /></div>Yaitu: <br /><ul><li>Merencanakan dan membangun sebuah program </li><li>Membuat Design nya </li><li>Menguji atau test hasil program </li></ul><div style="text-align: justify;">Demikian juga untuk Macro Excel ini, ketiga hal di atas pasti akan anda temui setiap kali anda akan membuat suatu program yang berbasiskan bahasa Macro. Dari ketiga komponen diatas maka faktor terbesar adalah menguji hasil program anda dari mulai awal, pertengahan hingga selesai seutuhnya. Anda harus menguji setahap demi setahap supaya segera tahu dimana hal-hal yang harus segera diperbaiki <br /></div>Nah..untuk mengujinya maka kita harus bisa tahu bagaimana Macro itu bekerja Step By Step<br /><div class="fullpost"><br />Langkah pertama <br />- Masuk ke jendela kode lalu copykan kode berikut ini: <br /><blockquote><span style="color: rgb(51, 51, 255);">Sub</span> Lihat()<br />Range("A1").Value = 10<br />Range("B1").Value = 15<br />Range("C1").Value = Range("A1").Value + Range("B1").Value<br />Range("A1").Select<br /><span style="color: rgb(51, 51, 255);">End Sub</span></blockquote><br />- Atur jendela supaya Jendela Kode dan Sheet Excel terlihat bersamaan <br />Caranya: <br /><div style="text-align: justify;">Pada menu bar Visual Basic Editor klik<span style="font-weight: bold;"> [Window]</span> kemudian <span style="font-weight: bold;">[Tile Vertically]</span> Atur posisi dan besarnya supaya terihat seperti gambar berikut :<br /><br /></div><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhufF2CKqus0fb2paTCTB2wEH-Sp61HXgch7WoM7fb7BOHZ6aFcYfys3MGuI5FlvacE_QWqcYrJmUh8fCIZlTtKEshrQUyv_LjEEKiuTqSCd2Zy1I85VKdY81ELFr_AqjvYsGxS3bEjv53C/s1600-h/11.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 299px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhufF2CKqus0fb2paTCTB2wEH-Sp61HXgch7WoM7fb7BOHZ6aFcYfys3MGuI5FlvacE_QWqcYrJmUh8fCIZlTtKEshrQUyv_LjEEKiuTqSCd2Zy1I85VKdY81ELFr_AqjvYsGxS3bEjv53C/s400/11.png" alt="" id="BLOGGER_PHOTO_ID_5439493764383435570" border="0" /></a><br />Langkah Kedua<br />- Pada sheet Excel taruh sel aktif di sel A1<br />- Pada Jendela Kode klik dimana aja<br /><br />Langkah ketiga<br />- Tekan F8 ===> lihat gambar berikut:<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsdlJUKvHeBlZKRlOq88gVEnOq_OSgDFbhtfyjOwNzFTqeQn5YsavUH62RfiuCcjGypl5J61zm6Lq5WrBagzbGhDkGHcOg4ZCfwko3V0L5GLRY2nmTNtm76R-nCVo-nhWIscxWKrs6OWX7/s1600-h/12.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 106px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsdlJUKvHeBlZKRlOq88gVEnOq_OSgDFbhtfyjOwNzFTqeQn5YsavUH62RfiuCcjGypl5J61zm6Lq5WrBagzbGhDkGHcOg4ZCfwko3V0L5GLRY2nmTNtm76R-nCVo-nhWIscxWKrs6OWX7/s400/12.png" alt="" id="BLOGGER_PHOTO_ID_5439497080630879634" border="0" /></a>Ada tanda panah kuning dan Sub Lihat() di sorot warna kuning sebagai step pertama Macro bekerja.Perhatikan pada sheet Excel belum terjadi apa-apa<br /></div><br />- Tekan F8 kembali ===> lihat gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIRABoGqKs4QXqnx66hmufIvd4PsVtf1XA2H5oxYkybv8v1hNlhrwXcbd88jJRKfgsWi7_CBB-mwlFkn5YoGo4z_unnKD5vq5zsMNle2m7o2e_q80VID8ZhfOHnTTn3y3yNbNj3xDK3Zzw/s1600-h/13.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 105px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIRABoGqKs4QXqnx66hmufIvd4PsVtf1XA2H5oxYkybv8v1hNlhrwXcbd88jJRKfgsWi7_CBB-mwlFkn5YoGo4z_unnKD5vq5zsMNle2m7o2e_q80VID8ZhfOHnTTn3y3yNbNj3xDK3Zzw/s400/13.png" alt="" id="BLOGGER_PHOTO_ID_5439498928358235042" border="0" /></a>Tanda panah begerak ke line 2 dari kode. Di Sheet Excel belum terjadi apa-apa<br /><br />- Tekan F8 kembali ===> lihat gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUBidJYSzQWDyyybIaE7znZhJJ1q2p4EXuW-j1XEKoMnufrQ15O8gow3TUlIjuf7VJ93TJ7pkgS6ZDUiJjYtUbTK6vPIB8vWJRzjJbJ40Rf4xFR8G8iG6e5bNnTNQOYk-yR9DgcP7o4ORu/s1600-h/14.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 105px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUBidJYSzQWDyyybIaE7znZhJJ1q2p4EXuW-j1XEKoMnufrQ15O8gow3TUlIjuf7VJ93TJ7pkgS6ZDUiJjYtUbTK6vPIB8vWJRzjJbJ40Rf4xFR8G8iG6e5bNnTNQOYk-yR9DgcP7o4ORu/s400/14.png" alt="" id="BLOGGER_PHOTO_ID_5439500391569867378" border="0" /></a>Panah kuning bergerak ke line 3, dan di Sheet Excel sel A1 muncul angka 10<br /><br />- Tekan F8 kembali ===> lihat gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRkXW2BSCc-ZdpNdgmqPL5vWvGg-LKpjKasz4JlylWjqPZ2oHKLffUw4w5MgoN4l9M7GsSDY4pRoZKghsIny1afR_HODK1W9n60hC9nqVg18aBDj3YR2vwVkdOC-yFduJkzoidESmbazEv/s1600-h/15.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 103px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRkXW2BSCc-ZdpNdgmqPL5vWvGg-LKpjKasz4JlylWjqPZ2oHKLffUw4w5MgoN4l9M7GsSDY4pRoZKghsIny1afR_HODK1W9n60hC9nqVg18aBDj3YR2vwVkdOC-yFduJkzoidESmbazEv/s400/15.png" alt="" id="BLOGGER_PHOTO_ID_5439502091322692018" border="0" /></a>Panah kuning bergerak ke line 4, dan di Sheet Excel sel B1 muncul angka 15<br /><br />- Tekan F8 kembali ===> lihat gambar berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQoC58HM1AETmGML5JjFRdbCGxVW5VRDUS6I23eO2XcUgbedBso2pU3D-FGc84lT5_pP5V-op1UNW-KpiyvqIU1LQRlESO6k33mJHOFZYpmAhR-90Q9xrQYhw5t4XO1_CKIKsay7bMefpU/s1600-h/16.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 103px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQoC58HM1AETmGML5JjFRdbCGxVW5VRDUS6I23eO2XcUgbedBso2pU3D-FGc84lT5_pP5V-op1UNW-KpiyvqIU1LQRlESO6k33mJHOFZYpmAhR-90Q9xrQYhw5t4XO1_CKIKsay7bMefpU/s400/16.png" alt="" id="BLOGGER_PHOTO_ID_5439505587983842850" border="0" /></a>Panah kuning bergerak ke line 5, dan di Sheet Excel sel C1 muncul angka 25<br />sebagai hasil penjumlahan Sel A1 + Sel B1<br /><br />- Tekan F8 kembali ===> lihat gambar berikut<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieUDbd59s58hfbC6wEirTa6tlxJvSRsiOOsdvbD9hMCPX8M2gzFinqA6dtxQx5vq7R45tkztdHLW-9kiS4u7sOlxwMD7sh43VsesPZ5NxGqvFf6KZLBLq1a3kF1a5nEh6EXq6goVUB4elR/s1600-h/17.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 104px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieUDbd59s58hfbC6wEirTa6tlxJvSRsiOOsdvbD9hMCPX8M2gzFinqA6dtxQx5vq7R45tkztdHLW-9kiS4u7sOlxwMD7sh43VsesPZ5NxGqvFf6KZLBLq1a3kF1a5nEh6EXq6goVUB4elR/s400/17.png" alt="" id="BLOGGER_PHOTO_ID_5439506761640432834" border="0" /></a>Panah kuning bergerak ke line 6, dan di sel aktif kembali ke Sel A1 sebagai akibat dari perintah Range("A1").Select<br /></div><br />Jadi beginilah Macro bekerja Step By Step<br /><br />Sekarang coba anda ganti kode line 2 sbb:<br /><br />Range("A1").<span style="font-weight: bold;">Valu</span> = 10 ==><span style="font-weight: bold;">Value</span> menjadi <span style="font-weight: bold;">Valu</span><br /><br />Tekan F8 3X maka pada F8 yang ke tiga akan muncul pesan berikut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJaOkEdIlWc4gtsXDEA-aGsEQPZc-2KiAqNUZ1MiwG98Ky-n2x3ohJOzTBjvme0nJ35O-H6Qj8-4WzBlMGEmevTAt_mbI-voV-EbSUWEhX7Dugb3XhIaFOi3-Ngx0vldsVYBt7r4VpnBQx/s1600-h/18.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 301px; height: 134px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJaOkEdIlWc4gtsXDEA-aGsEQPZc-2KiAqNUZ1MiwG98Ky-n2x3ohJOzTBjvme0nJ35O-H6Qj8-4WzBlMGEmevTAt_mbI-voV-EbSUWEhX7Dugb3XhIaFOi3-Ngx0vldsVYBt7r4VpnBQx/s400/18.png" alt="" id="BLOGGER_PHOTO_ID_5439507866204009602" border="0" /></a>Karena <span style="font-weight: bold;">Valu</span> tidak dikenal oleh VBA<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-28167730711788431642010-02-17T00:48:00.000-08:002010-02-23T20:19:25.291-08:00Menambahkan Sebuah Macro<div style="text-align: justify;">Sebagian besar Macro dirancang dan dikembangkan pada Jendela Kode.Untuk latihan kali ini kita akan membuat suatu prosedur Macro sederhana untuk lebih memperdalam dasar-dasar pengenalan Macro anda <br /></div>- Buka sheet Excel <br />- Tekan [Alt-F11] untuk masuk ke Visual Basic Editor <br />- Klik ganda Sheeet1(Sheet) pada Jendela Project <br />- Pada jendela kode ketik Sub Test() kemudian Enter <br />- Maka otomatis kita akan mendapatkan 2 line kode sbb <br /> <br /><div style="background: rgb(216, 216, 216) none repeat scroll 0% 0%; -moz-background-clip: border; -moz-background-origin: padding; -moz-background-inline-policy: continuous;">Sub Test() <br /> <br /> End Sub</div><br /><div class="fullpost"><br />Note: <br /><div style="text-align: justify;">- Huruf "S" pada Sub Test otomatis akan muncul huruf besar "S" walaupun anda mengetikkan dengan huruf "s" kecil.Demikian juga untuk kode-kode yang dikenal VBE yang lainnya.Huruf kecil secara otomatis akan berubah menjadi huruf besar.Jadi anda tidak usah repot-repot untuk mengganti huruf awal dengan huruf besar <br /></div> <br />Sekarang mari kita lanjutkan lagi: <br />- Tambahkan kode diantara 2 line kode tadi sehingga menjadi seperti ini <br /><div style="background: rgb(224, 248, 247) none repeat scroll 0% 0%; -moz-background-clip: border; -moz-background-origin: padding; -moz-background-inline-policy: continuous;">Sub Test() <br />Sheets("Sheet1").Select <br /> Range("C1").Select <br /><br /> Do Until Selection.Offset(0, -2).Value = "" <br /> Selection.Value = Selection.Offset(0, -2).Value & " " & Selection.Offset(0, -1) <br /> Selection.Offset(1, 0).Select <br /> Loop <br /><br /> Range("A1").Select <br />End Sub </div><br />- Untuk lebih mudahnya, Copy paste saja kode diatas ke Jendela kode anda <br /><div style="text-align: justify;">Keterangan kode: <br />Kode diatas artinya adalah menggabungkan kata yang terdapat pada kolom A dan kata yang terdapat pada kolom B dan hasil penggabungannya berada di kolom C.Prosedur akan berjalan terus selama ada kata di sel kolom A. Prosedur akan berhenti sampai data terakhir di kolom A <br /></div> <br />- Tekan [Alt -F11] untuk kembali ke Excel <br />- Sekarang ketik 5 buah nama di kolom A (Sel A1:A5) dan 5 buah nama di kolom B (Sel B1:B5) <br />Lihat gambar<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbDewrVwxKscAJukmvaAK15bZFAKoa8MlToc-TU8wlzcVpyZdn1nPj2ZB4LSKxls2X8dI3ozbvkuyg30FfIKpmJqWGGNaSe8tF8ma1mMaT_nUpp4vdPuGYdae6zDloEmYT3lMNKP5qhWj_/s1600-h/1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 270px; height: 104px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbDewrVwxKscAJukmvaAK15bZFAKoa8MlToc-TU8wlzcVpyZdn1nPj2ZB4LSKxls2X8dI3ozbvkuyg30FfIKpmJqWGGNaSe8tF8ma1mMaT_nUpp4vdPuGYdae6zDloEmYT3lMNKP5qhWj_/s400/1.png" alt="" id="BLOGGER_PHOTO_ID_5439133761697780802" border="0" /></a>- Tekan [Alt-F11] untuk kembali ke Visual Basic Editor <br />- Jalankan Macro ini dengan cara klik [Run] - [Run/Sub UserForm F5] <br />- Tekan [Alt -F11] untuk kembali ke Excel dan lihat apa yang terjadi (Lihat Gambar)<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaee8nHaxdDqk2n-esudxbM0h3j5s9YApwB6G11z4wMqWBKqk10AP-z-BqLRDj-ulPI0rO44UR8Qj9F9hgkHIuEv7MdUDP03WXmbt7GMbFBM1HDJGXJ57RVIakbyoQZQI5TiKVmY_3Bpme/s1600-h/2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 302px; height: 103px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaee8nHaxdDqk2n-esudxbM0h3j5s9YApwB6G11z4wMqWBKqk10AP-z-BqLRDj-ulPI0rO44UR8Qj9F9hgkHIuEv7MdUDP03WXmbt7GMbFBM1HDJGXJ57RVIakbyoQZQI5TiKVmY_3Bpme/s400/2.png" alt="" id="BLOGGER_PHOTO_ID_5439134713612002514" border="0" /></a>- Hasilnya nama di kolom A dan B bergabung di kolom C dengan spasi tentunya.Spasi ini ada sebagai akibat dari kode <br /><span style="color: rgb(51, 51, 255);">S</span><span style="color: rgb(51, 51, 255);">election.Value = Selection.Offset(0, -2).Value </span><span style="font-weight: bold; color: rgb(51, 51, 255);">& " " & </span><span style="color: rgb(51, 51, 255);">Selection.Offset(0, -1) </span><br />- Sekarang coba ganti kode nya dengan ini: <br /><span style="color: rgb(51, 51, 255);">Selection.Value = Selection.Offset(0, -2).Value </span><span style="font-weight: bold; color: rgb(51, 51, 255);">&</span><span style="color: rgb(51, 51, 255);"> Selection.Offset(0, -1) </span><br />Maka hasilnya akan menjadi seperti ini: Penggabungan tanpa spasi <br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgOFyVuE7Jr17TDRTuXe5CSHy_qFKmhRJ35rsSzTvx_fkGj7zYo9vIDWYoiMd76EUu5rUk66w2HlEspJLky4DL7_esAyRu5FUL4yNbJRCd3KC3IVwJli7cMVgh8XlbKkcS3Kq_3oA8icoIR/s1600-h/3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 301px; height: 103px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgOFyVuE7Jr17TDRTuXe5CSHy_qFKmhRJ35rsSzTvx_fkGj7zYo9vIDWYoiMd76EUu5rUk66w2HlEspJLky4DL7_esAyRu5FUL4yNbJRCd3KC3IVwJli7cMVgh8XlbKkcS3Kq_3oA8icoIR/s400/3.png" alt="" id="BLOGGER_PHOTO_ID_5439135833425702786" border="0" /></a> <br />- Kembalikan lagi ke kode awal <br />- Hapus semua hasil penggabungan (Kolom C) kemudian nama Duma di kolom A (Lihat gambar)<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7p7na-XOknGGUSSe0IOD770StgWcf9uV8NtfSbR5PqpWNXDk3Qa_lq1WyLzWGVMpu9qxy75FStqvyK1zBalRcoLB8fLGCcB0VevATryyUbJ84-UVOk0R4Vhr7zNkpWCfqcYNExs5IIbvi/s1600-h/4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 302px; height: 103px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7p7na-XOknGGUSSe0IOD770StgWcf9uV8NtfSbR5PqpWNXDk3Qa_lq1WyLzWGVMpu9qxy75FStqvyK1zBalRcoLB8fLGCcB0VevATryyUbJ84-UVOk0R4Vhr7zNkpWCfqcYNExs5IIbvi/s400/4.png" alt="" id="BLOGGER_PHOTO_ID_5439136386391261810" border="0" /></a> <br />- Kembali ke VBE [Alt - F11] lalu jalankan Macro nya <br />- Maka hasilnya menjadi seperti ini <br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8AuLECGYCrnClp86OzPKRl1atTO2qrJpk_LkLw_DgeeiGsTBEpvixc7t56WuuAJvFl2awFeQ1pJe529YI64-k3_dcpUKcgRbyzQ9up8CgPNI9xaYAoUqPjqiWGqqI6vbv8cwH4xbRsFhq/s1600-h/5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 302px; height: 105px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8AuLECGYCrnClp86OzPKRl1atTO2qrJpk_LkLw_DgeeiGsTBEpvixc7t56WuuAJvFl2awFeQ1pJe529YI64-k3_dcpUKcgRbyzQ9up8CgPNI9xaYAoUqPjqiWGqqI6vbv8cwH4xbRsFhq/s400/5.png" alt="" id="BLOGGER_PHOTO_ID_5439137042360506274" border="0" /></a> <br />Sesuai dengan yang saya tulis diatas tadi, Prosedur akan berhenti sampai data terakhir di kolom A , artinya data tidak boleh LONGKAP <br /><br />Cukup jelas? <br /><br /><br /><br /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com1tag:blogger.com,1999:blog-6852007781417058585.post-53423846562156222352010-02-13T23:08:00.000-08:002010-02-14T06:15:56.644-08:00Jendela KodeSekarang kita masuk ke Jendela VBE yang ketiga yaitu Jendela Kode. Lebih dari 90% pekerjaan VBA dilakukan di Jendela Kode.<br />- Menulis program (perintah)<br />- Menguji prosedur VBA (Macro)<br />- Memodifikasi sesuai kebutuhan<br /><br />Untuk lebih memahami pengenalan Jendela Kode, kita akan coba membuat sebuah Macro sederhana<br /><div class="fullpost"><br />- Masuk ke Visual Basic Editor (VBE)<br />- Pada Project Window klik ganda pada Sheet1<br />- Klik di mana aja pada Jendela Kode<br />- Tulis kode berikut, atau langsung copy paste saja<br /><blockquote>Sub Test()<br /><br />Range("A1").Value = 10<br />Range("B1").Value = 15<br />Range("C1").Formula = "=A1+B1"<br /><br />Range("A1").Select<br /><br />End Sub</blockquote>Pada Jendela Kode akan terlihat seperti gambar ini:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwQ_N3uFVvW0gjIc_fmNYaQYDAMB9eULOL-mjfmPoSfXSuIyfG4se8g6JzcODS8fQxa_8QYc8haPxMjluSFr84EmE5Ycxum5kpPNXHyFF7R0fR0z1z3Z2b7YKgUdbVgIYau6dn2nRvwf_h/s1600-h/VBE12.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 355px; height: 192px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwQ_N3uFVvW0gjIc_fmNYaQYDAMB9eULOL-mjfmPoSfXSuIyfG4se8g6JzcODS8fQxa_8QYc8haPxMjluSFr84EmE5Ycxum5kpPNXHyFF7R0fR0z1z3Z2b7YKgUdbVgIYau6dn2nRvwf_h/s400/VBE12.png" alt="" id="BLOGGER_PHOTO_ID_5438047861290223474" border="0" /></a>- Untuk menjalankannya Klik [Run] - [Run/Sub UserForm F5]<br />- Perhatikan apa yang terjadi pada Sheet1 (Lihat Gambar)<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW0iAgHPZIVhZWIG4QgyUU7zapGN8g-MDj-ZAyIuNilfQJN6BNak6tcUQ2eXGFYAM2Sw_exiCVLnO-3Y5VaYh481KYHOQvxK9uFWF5dXFJRpPVoeDbTq-xZDaMWBKnmLNzEoKfo4bwSD3Q/s1600-h/VBE13.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 259px; height: 61px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW0iAgHPZIVhZWIG4QgyUU7zapGN8g-MDj-ZAyIuNilfQJN6BNak6tcUQ2eXGFYAM2Sw_exiCVLnO-3Y5VaYh481KYHOQvxK9uFWF5dXFJRpPVoeDbTq-xZDaMWBKnmLNzEoKfo4bwSD3Q/s400/VBE13.png" alt="" id="BLOGGER_PHOTO_ID_5438051512691799714" border="0" /></a>- Sel A1=10, sel B1=15 dan sel C1 hasil jumlah A1+B1 =25 dan sel aktif ada di sel A1 sebagai akibat dari perintah <span style="font-weight: bold;">Range("A1").Select</span><br /></div><br />Kita coba satu contoh lagi...<br />- Buka Jendela Kode<br />- Klik ganda pada Sheet1<br />- Ada 2 listbox yaitu General dan (Declarations)<br />- Pada listbox General pilih Worksheet dan pada Declarations pilih Activate<br />- Maka hasilnya akan seperti gambar berikut<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqiZRrL9mANDMkk_oYJeHiBKFEioHqpVe2k5_eAysrnz1arEyADIzus0Dyli2tOUQGFN55gvCUGqGC0tKNw31CQwNG4IDIJvQa1wOxH-_KgOtHsHvLKjSs9qXdl4ZEt6kKjglP4DIzzDo9/s1600-h/New+Picture.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 362px; height: 280px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqiZRrL9mANDMkk_oYJeHiBKFEioHqpVe2k5_eAysrnz1arEyADIzus0Dyli2tOUQGFN55gvCUGqGC0tKNw31CQwNG4IDIJvQa1wOxH-_KgOtHsHvLKjSs9qXdl4ZEt6kKjglP4DIzzDo9/s400/New+Picture.png" alt="" id="BLOGGER_PHOTO_ID_5438097495765338338" border="0" /></a>- Worksheet_Activate artinya adalah setiap kali Sheet diaktifkan maka prosedur yang dibuat akan dijalankan secara otomatis. Untuk lebih jelasnya, ketikkan kode berikut<br /></div><blockquote>Private Sub Worksheet_Activate()<br />MsgBox " Selamat Datang di d-Josva"<br />End Sub</blockquote>- Sekarang anda beralih ke Excel<br />- Di Sheet1 otomatis akan muncul pesan:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeokSxrjreS1hbUsPT6AITKOwAf7RXYnpiwu6jCHpp0-PyWRXP_sogPCGXdNIBnBG5O-nk-7ER4p-iSo3d63tkZMwyjY7DOFOWC3dGpxQdG1-dbSZ3LOS5Yw-zg0GnleN9Vri4n3NIKpSd/s1600-h/VBE14.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 157px; height: 98px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeokSxrjreS1hbUsPT6AITKOwAf7RXYnpiwu6jCHpp0-PyWRXP_sogPCGXdNIBnBG5O-nk-7ER4p-iSo3d63tkZMwyjY7DOFOWC3dGpxQdG1-dbSZ3LOS5Yw-zg0GnleN9Vri4n3NIKpSd/s400/VBE14.png" alt="" id="BLOGGER_PHOTO_ID_5438101093230718594" border="0" /></a><br />- Sekarang coba anda klik Tab Sheet2 apakah pesan itu muncul?<br /><div style="text-align: justify;">Tentu saja tidak, karena prosedur dibuat di Sheet1.Kira-kira sudah paham kan bagaimana bekerja di Jendela Kode? Jika belum diskusikan dengan mengirimkan komentar anda<br /></div><br /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com1tag:blogger.com,1999:blog-6852007781417058585.post-59343974596432873942010-02-13T20:48:00.000-08:002010-02-13T23:03:06.694-08:00Jendela Properties<div style="text-align: justify;">Sudah paham dengan Jendela Project? Jika sudah sekarang kita akan bahas Jendela Visual Basic Editor yang kedua yaitu Jendela Properties. Komponen yang anda pilih pada Jendela Project (single klik) akan ditunjukkan properties nya di Jendela Properties. Di Jendela Properties inilah anda dapat mengatur dan memodifikasi komponen yang terdapat dalam Jendela Project<br /></div><div class="fullpost"><br /><span style="font-weight: bold;">Mengenal Jendela Properties</span><br /><br /><div style="text-align: justify;">Sebuah Worksheet mempunyai 12 properties yang dapat kita atur dan modifikasi dengan menggunakan pemrograman bahasa VBA. Sekarang tekan [Alt-F11] untuk masuk ke Visual Basic Editor, klik pada sheet1(Sheet1) di Jendela Project<br /></div>Lihat gambar berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7OZGZNX5k2UymQGgabCIK_CsX-T9AHjIkMlIo9IIpA-ypIBCUHEhmw6-8o1SrwD-JuSX3-OjrZgmqPujIlFgb1cyKLvwLHA5-UFiuyzd7kCD4nnyqJnrLEM7YeDAYvK2WMZXV7Qwr9DDH/s1600-h/VBE8.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 199px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7OZGZNX5k2UymQGgabCIK_CsX-T9AHjIkMlIo9IIpA-ypIBCUHEhmw6-8o1SrwD-JuSX3-OjrZgmqPujIlFgb1cyKLvwLHA5-UFiuyzd7kCD4nnyqJnrLEM7YeDAYvK2WMZXV7Qwr9DDH/s400/VBE8.png" alt="" id="BLOGGER_PHOTO_ID_5437971077553023266" border="0" /></a><br /><span style="font-weight: bold;">Bagaimana Bekerja Dalam Jendela Properties</span><br /><br /><div style="text-align: justify;">- Tekan kembali [Alt-F11] untuk kembali ke Excel<br /></div><div style="text-align: justify;">- Ganti nama Sheet1 pada Tab <span style="font-weight: bold;">[Sheet1]</span> dengan cara klik kanan lalu klik<span style="font-weight: bold;"> [Rename]</span><br /></div><div style="text-align: justify;">- Ketik <span style="font-weight: bold;">Test</span> sebagai nama baru dari Sheet1 tadi (lihat gambar)<br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6rpef12C2c45pepTDSrSUPqSpVNTmmD72VyVmR5P1XaE5I-Yci3NRg5vzR3AW-H9i-nz4vVDpCZzsycTW5KQ8wQXz-4pPZF4yl6fcOEQXW6RMnGQjENi4qjvI1N9wf5zETc4xHwOFRAWJ/s1600-h/VBE9.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 238px; height: 108px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6rpef12C2c45pepTDSrSUPqSpVNTmmD72VyVmR5P1XaE5I-Yci3NRg5vzR3AW-H9i-nz4vVDpCZzsycTW5KQ8wQXz-4pPZF4yl6fcOEQXW6RMnGQjENi4qjvI1N9wf5zETc4xHwOFRAWJ/s400/VBE9.png" alt="" id="BLOGGER_PHOTO_ID_5437977374305944882" border="0" /></a>- Tekan kembali<span style="font-weight: bold;"> [Alt-F11]</span><br />- Perhatikan gambat berikut, properties <span style="font-weight: bold;">Name</span> sudah berganti menjadi <span style="font-weight: bold;">Test</span><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiij3Ab-nfn645yZqNXKAbLYy4sk_fVnXf5yws3EN804lQY7LimOGDK1jXmCj9IhG-vXgAKa6vMyqzPMJRH_FeBGz2UoH1bQicrfBNn8KfBOm0v3eNkVUUCWrY6v_vVvexFndRvOT1jyTSE/s1600-h/VBE10.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 240px; height: 278px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiij3Ab-nfn645yZqNXKAbLYy4sk_fVnXf5yws3EN804lQY7LimOGDK1jXmCj9IhG-vXgAKa6vMyqzPMJRH_FeBGz2UoH1bQicrfBNn8KfBOm0v3eNkVUUCWrY6v_vVvexFndRvOT1jyTSE/s400/VBE10.png" alt="" id="BLOGGER_PHOTO_ID_5437978936741599266" border="0" /></a><br /><div style="text-align: justify;">Sekarang kita coba menyembunyikan sebuah sheet pada Excel dengan memodifikasinya melalui Jendela Properties. Cara konvensional menyembunyikan sebuah sheet adalah dari menu bar Excel yaitu klik [Format] - [Sheet] - [Hide]. Sheet memang akan tersembunyi, tapi cara ini kurang aman jika anda ingin benar-benar menyembunyikan suatu sheet. Karena orang lain akan mudah membuka kembali dengan mengklik [Unhide]. Sedangkan jika menyembunyikan Sheet melalui pengaturan Properties akan lebih aman karena Jendela VBE bisa kita Password (Klik- Cara Mempassword VBE).<br /><br /></div><span style="font-style: italic; font-weight: bold;">Caranya bagaimana?</span><br /><br />Perhatikan kembali gambar Jendela Properties di atas<br />- Klik pada kotak <span style="font-weight: bold;">Visible</span> lalu klik tanda panah (menu drop down)<br />maka akan muncul gambar seperti berikut:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUUVn4eiYR8cL31iaobUwiCUcmDEw4mlOAC3Fh0iRP_fNDzFCVn7kjK6bLcZ7Sxm5IWo7F7a6vlAG8e4mEIERjBb75byGK2gvxeJ2JRhyphenhyphenPIxEQxvrxSsAAd7Fv0Jsy5kDV58leZMlne6bL/s1600-h/VBE11.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 239px; height: 314px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUUVn4eiYR8cL31iaobUwiCUcmDEw4mlOAC3Fh0iRP_fNDzFCVn7kjK6bLcZ7Sxm5IWo7F7a6vlAG8e4mEIERjBb75byGK2gvxeJ2JRhyphenhyphenPIxEQxvrxSsAAd7Fv0Jsy5kDV58leZMlne6bL/s400/VBE11.png" alt="" id="BLOGGER_PHOTO_ID_5437987949872129554" border="0" /></a>Ada 3 pilihan yang bisa dilakukan pada Sheet Test<br /><ul><li>xlSheetVisible = Sheet kelihatan</li><li>xlSheetHidden = Sheet tersembunyi</li><li>xlSheetVeryHidden = Sheet sangat tersembunyi</li></ul><div style="text-align: left;">Sebagai contoh klik pada xlSheetVeryHidden, lalu tekan [Alt-F11] untuk kembali ke Excel. Perhatikan pada Tab Sheet, Sheet Test sudah "hilang".<br /></div>Mudah bukan? <img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/65.gif" border="0" width="22" height="18" /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-73638083909421881192010-02-13T06:53:00.000-08:002010-02-13T08:10:28.099-08:00Jendela Project<div style="text-align: justify;">Anda tentu sudah memahami Visual Basic Editor (VBE) Bukan? Nah dalam pelajaran sebelumnya sudah dijelaskan bahwa Visual Basic Editor mempunyai 3 Jendela Yaitu:<br /></div><ul><li>Jendela Project,</li><li>Jendela Properties</li><li>Jendela Kode.</li></ul><div style="text-align: justify;">Nah, sekarang saya akan bahas mengenai Jendela Project<br /></div><div class="fullpost"><br /><span style="font-weight: bold;">Mengenal Jendela Project</span><br /><div style="text-align: justify;">Tampilan awal dari Jendela Project adalah 3 Sheet dan dan 1 komponen lain yaitu Workbook. Workbook adalah komponen tempat anda menyimpan Macro atau Prosedur VBA, yang akan berjalan secara otomatis ketika Workbook dibuka<br /></div><div style="text-align: justify;">Perhatikan gambar di bawah ini, ini adalah gambar yang menunjukkan pada saat semua workbook sedang terbuka.<br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizX5vf5RaMRquVOMlfmCytilUS9baAGGv5VBqlwFguWixhwHM0VD-__-27Na595ifKcIidzB8xPAdvSkamkwC-a6QEsLLbjfkHP4gVHy1JMqziiU-D2afl-FY2eMV6_lgD7xDKwX3ojF6z/s1600-h/VBE5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 197px; height: 265px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizX5vf5RaMRquVOMlfmCytilUS9baAGGv5VBqlwFguWixhwHM0VD-__-27Na595ifKcIidzB8xPAdvSkamkwC-a6QEsLLbjfkHP4gVHy1JMqziiU-D2afl-FY2eMV6_lgD7xDKwX3ojF6z/s400/VBE5.png" alt="" id="BLOGGER_PHOTO_ID_5437746402058583474" border="0" /></a><span style="color: rgb(51, 0, 51); font-weight: bold;">Bagaimana bekerja di dalam Jendela Project?</span><br /><ul><li>Sekarang tekan <span style="font-weight: bold;">[Alt - F11]</span> untuk kembali ke Worksheet Excel</li><li>Tambahkan sebuah sheet dengan cara klik kanan pada salah satu sheet, kemudian klik <span style="font-weight: bold;">[Insert]</span> lalu klik<span style="font-weight: bold;"> [Worksheet]</span><br /></li><li>Kemudian tekan kembali <span style="font-weight: bold;">[Alt-F11]</span> untuk kembali lagi ke Jendela VBE</li><li>Perhatikan!! Pada Jendela Project ada tambah satu sheet, yaitu <span style="font-weight: bold;">Sheet4(Sheet4)</span><br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-jPEjpDmZm56iR5UkcsK1erNri90pFjF0HsIrl1-izo1tk9mnMNn73YzkvMzHGqodt5CIF8fIOshDvroNd9u1toH3_iDs0sTfma97by5EfG1Y4QNcdcbcQcPSuBwHCaRBAf-58k6zu1r2/s1600-h/VBE6.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 199px; height: 258px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-jPEjpDmZm56iR5UkcsK1erNri90pFjF0HsIrl1-izo1tk9mnMNn73YzkvMzHGqodt5CIF8fIOshDvroNd9u1toH3_iDs0sTfma97by5EfG1Y4QNcdcbcQcPSuBwHCaRBAf-58k6zu1r2/s400/VBE6.png" alt="" id="BLOGGER_PHOTO_ID_5437755924445504498" border="0" /></a>Sekarang tekan kembali <span style="font-weight: bold;">[Alt-F11]</span> untuk kembali ke Excel</li><li>Klik kanan pada Sheet4, kemudian klik <span style="font-weight: bold;">[Rename]</span> lalu ketikkan <span style="font-weight: bold;">Test</span></li><li>Tekan kembali<span style="font-weight: bold;"> [Alt - F11]<br /></span></li><li>Perhatikan pada gambar, <span style="font-weight: bold;">Sheet(Sheet4)</span> berganti nama menjadi<span style="font-weight: bold;"> Sheet4(Test)<br /></span></li></ul><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqUp0QO3AiMiVJ0NF-H96BpNAedOMIqjyTSnAhltNXf8orCtH1LzMD6p4Wt-Y-Dbj0zBFNIOQmzuIJ9hTLEu7ChEoaBtPJdez_C47daVYp1yFvAh-rYIQ-i2H-iyce-TY6DTyRNAxWb8ze/s1600-h/VBE7.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 198px; height: 260px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqUp0QO3AiMiVJ0NF-H96BpNAedOMIqjyTSnAhltNXf8orCtH1LzMD6p4Wt-Y-Dbj0zBFNIOQmzuIJ9hTLEu7ChEoaBtPJdez_C47daVYp1yFvAh-rYIQ-i2H-iyce-TY6DTyRNAxWb8ze/s400/VBE7.png" alt="" id="BLOGGER_PHOTO_ID_5437759444925476050" border="0" /></a>Belum jelas?<br /><div style="text-align: justify;">Silahkan baca kembali, atau silahkan diskusikan dengan memberikan komentar di kotak komentar<br /></div><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-51215654850254374742010-02-13T04:45:00.001-08:002010-02-14T19:34:24.788-08:00Visual Basic Editor (VBE)<div style="text-align: justify;">Prosedur atau kode macro dapat dikembangkan, dimodifikasi dan diuji di dalam Visual Basic Editor (VBE). Visual Basic Editor adalah sebuah aplikasi yang mudah dipelajari dan digunakan. Prosedur VBE merupakan bagian dari workbook, dimana pada saat workbook disimpan maka semua komponen VBA secara otomatis juga akan tersimpan. Demikian juga jika anda menghapus workbook maka komponen VBA juga akan ikut terhapus<br /></div><div class="fullpost"><br />Mengenal Jendela VBE<br /><ul><li>Buka jendela Microsoft Office Excel anda</li><li>Klik [<span>Tool</span>] - [Macro] - [Visual Basic Editor] atau bisa juga tekan [<span>Alt - F11</span>]<br /></li></ul><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAHYmvwyccJvdoHLB4A1anCnnAm7ZCzwcxjEHCTXisdOwHuavBhsZeRTes_X9217_jCOkPJNtGSJ-8wMFzxAD0_QRhRPPMn8cu7SZurKdRGBY_pUoj6dn5xVS9GtwBXDlE184KGUbaoGKo/s1600-h/VBE1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 141px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAHYmvwyccJvdoHLB4A1anCnnAm7ZCzwcxjEHCTXisdOwHuavBhsZeRTes_X9217_jCOkPJNtGSJ-8wMFzxAD0_QRhRPPMn8cu7SZurKdRGBY_pUoj6dn5xVS9GtwBXDlE184KGUbaoGKo/s400/VBE1.png" alt="" id="BLOGGER_PHOTO_ID_5437718647486121058" border="0" /></a></div><ul><li>Maka akan muncul halaman seperti berikut<br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwm3HqvIwLnKi2cyh9j5q_UTD9m1JC04ldwlHZxL2FlhKo9ipPMn__g0x7ncGwBya9K2EKKOGrhlFiwEE51P_Dx5hRa4GsPgz7hQqWvWd1eRU60JOKFE6c_I4R-vHgS_oVyODqiSC6HKiX/s1600-h/VBE2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 267px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwm3HqvIwLnKi2cyh9j5q_UTD9m1JC04ldwlHZxL2FlhKo9ipPMn__g0x7ncGwBya9K2EKKOGrhlFiwEE51P_Dx5hRa4GsPgz7hQqWvWd1eRU60JOKFE6c_I4R-vHgS_oVyODqiSC6HKiX/s400/VBE2.png" alt="" id="BLOGGER_PHOTO_ID_5437720224689497522" border="0" /></a>Kemudian klik ikon [Properties Window] lalu double klik pada [Sheet1(sheet1)]</li><li style="text-align: justify;">Maka akan muncul halaman seperti berikut. Inilah yang disebut 3 Jendela Visual Basic Editor. Yaitu Jendela Project,Properties dan Kode<br /></li></ul><ul style="text-align: justify;"><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjO6lZv289kBk26eJbvylnRBzK_eygiv_aOWOyHEKyIdxkFdSs1ccmB_QWHSoer8U1ormnwhTq8RfIb8xMLSCh8AfizeI-_58C0IIdkKBVqEasDwb_rMEqLyWrO3m5CGOCCqqgiiP41Wsp-/s1600-h/VBE3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 396px; height: 400px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjO6lZv289kBk26eJbvylnRBzK_eygiv_aOWOyHEKyIdxkFdSs1ccmB_QWHSoer8U1ormnwhTq8RfIb8xMLSCh8AfizeI-_58C0IIdkKBVqEasDwb_rMEqLyWrO3m5CGOCCqqgiiP41Wsp-/s400/VBE3.png" alt="" id="BLOGGER_PHOTO_ID_5437727141719969826" border="0" /></a>Untuk menambahkan Modul dan Form klik kanan pada Jendela Project, kemudian klik apa yang akan ditambahkan (lihat gambar)<br /></li></ul><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4gRcohzerTGiiHJqbCBdO1sSDk_TLuFcythf22Rkihfy8OgVU2jtxmCqttqIOCeGlti26DaWSqtWEeyEiGG2_dyCelRmUPjLRvNwD1OnkLuzVhJ-IPx0fzy_Bs1l1pUJir92ESYG-QB3t/s1600-h/VBE4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 370px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4gRcohzerTGiiHJqbCBdO1sSDk_TLuFcythf22Rkihfy8OgVU2jtxmCqttqIOCeGlti26DaWSqtWEeyEiGG2_dyCelRmUPjLRvNwD1OnkLuzVhJ-IPx0fzy_Bs1l1pUJir92ESYG-QB3t/s400/VBE4.png" alt="" id="BLOGGER_PHOTO_ID_5437734327509393170" border="0" /></a>Demikian sekilas mengenal Jendela VBE pada Excel, silahkan pahami dulu. Jika sudah paham silahkan melangkah ke pelajaran berikutnya untuk mengenal lebih dekat tentang ke 3 Jendela pada VBE yang sudah diperkenalkan tadi<br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-38600072417380714442010-01-31T07:40:00.000-08:002010-01-31T08:43:03.894-08:00Do...Loop<div style="text-align: justify;">Perintah <span style="font-weight: bold;">Do...Loop</span> digunakan untuk menguji suatu kondisi awa dari pengulangan. Sebenarnya fungsinya hampir sama saja dengan <span style="font-weight: bold;">For...Next</span>. Perintah Do...Loop ini akan berjalan sepanjang kondisi bernilai <span style="font-weight: bold;">True</span> dan akan berhenti ketika kondisi menjadi <span style="font-weight: bold;">False</span>. Pola perintah Do...Loop yang akan kita bahas adalah sbb:<br /></div><ul><li>Do While...Loop</li><li>Do Until...Loop</li><li>Do...Loop While</li><li>Do...Loop Until<br /></li></ul><br /><div class="fullpost"><br /><span style="font-weight: bold;">1.Do While...Loop</span><br /><span style="font-weight: bold;">Pola:</span><blockquote>Do While[kondisi]<br />[statement]<br />Loop<br /></blockquote><span style="font-weight: bold;">Contoh aplikasinya:</span><br /><blockquote><span style="color: rgb(51, 51, 255);">Sub Test1()</span><br />i = 1<br /><span style="color: rgb(51, 51, 255);">Do While</span> i <= 10 Cells(i, 1) = i i = i + 1 <span style="color: rgb(51, 51, 255);"><br />Loop </span><br /><span style="color: rgb(51, 51, 255);">End Sub</span></blockquote><div style="text-align: justify;">Perintah pengulangan akan terjadi terus selama pengulangan lebih kecil atau sama dengan 10 kali(Do While <=10). Perintah akan berhenti pada saat pengulangan sudah mencapai 10 kali. Hasil perintah ini adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10. </div><br /><span style="font-weight: bold;">2.Do Until...Loop </span><br /><span style="font-weight: bold;"> Pola:</span><blockquote>Do Until[kondisi]<br />[statement]<br />Loop<br /></blockquote><span style="font-weight: bold;">Contoh aplikasinya:</span><br /><blockquote><span style="color: rgb(51, 51, 255);">Sub Test2()</span><br />i = 1<br /><span style="color: rgb(51, 51, 255);">Do Until</span> i = 11<br />Cells(i, 1) = i<br />i = i + 1<br /><span style="color: rgb(51, 51, 255);">Loop </span><br /><span style="color: rgb(51, 51, 255);">End Sub</span></blockquote>Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10<br /><br /><span style="font-weight: bold;">3.Do...Loop While</span><br /><span style="font-weight: bold;">Pola:</span><blockquote>Do<br />[statement]<br />Loop While[kondisi]<br /></blockquote><span style="font-weight: bold;">Contoh aplikasinya:</span><br /><blockquote><span style="color: rgb(51, 51, 255);">Sub Test3()</span><br />i = 1<br /><span style="color: rgb(51, 51, 255);">Do </span><br />Cells(i, 1) = i<br />i = i + 1<br /><span style="color: rgb(51, 51, 255);">Loop </span><span style="color: rgb(51, 51, 255);">While</span> i < style="color: rgb(51, 51, 255);"><br />End Sub</blockquote>Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10<br /><br /><span style="font-weight: bold;">4.Do...Loop Until</span><br /><span style="font-weight: bold;">Pola:</span><blockquote>Do<br />[statement]<br />Loop Until[kondisi]<br /></blockquote><span style="font-weight: bold;">Contoh aplikasinya:</span><br /><blockquote><span style="color: rgb(51, 51, 255);">Sub Test4()</span><br />i = 1<br /><span style="color: rgb(51, 51, 255);">Do </span><br />Cells(i, 1) = i<br />i = i + 1<br /><span style="color: rgb(51, 51, 255);">Loop </span><span style="color: rgb(51, 51, 255);">Until</span> i = 11<br />End Sub</blockquote>Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10.<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com1tag:blogger.com,1999:blog-6852007781417058585.post-26332555166219407822010-01-31T03:04:00.000-08:002010-01-31T05:20:01.827-08:00For...Next<div style="text-align: justify;">Untuk melaksanakan kode secara berulang, maka kita menggunakan suatu struktur pengulangan.Perintah For...Next dipakai untuk pengulangan yang berulang-kali. Perintah For...Next menggunakan variabel counter yang berfungsi untuk menaikkan atau menurunkan sebuah nilai selama perintah berjalan.<br /></div><br /><span style="font-weight: bold;">Pola:</span><br /><blockquote>For Counter = [nilai awal] To [nilai akhir]<br />[statement]<br />Next[counter]</blockquote><div class="fullpost"><br /><span style="font-weight: bold;">Contoh aplikasinya:</span><blockquote><span style="color: rgb(51, 51, 255);">Sub Test1()</span><br /><span style="color: rgb(51, 51, 255);">For</span> i = 1 <span style="color: rgb(51, 51, 255);">To</span> 10<br />Cells( i , 1) = i<br /><span style="color: rgb(51, 51, 255);">Next i</span><br /><span style="color: rgb(51, 51, 255);">End Sub</span><br /></blockquote>Sekarang coba jalankan Macro Test1, hasilnya akan seperti gambar berikut:<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWBHa-U9ovoGmoMsezYJomhH5iEgkn89XGOEVHqp4YmwL5g7vyelv7na7D90cWpQ1-rzrWBDmwz-kV8TKXuFvHpeqkHP9uYyIolA2K2j0n99wM3nZDjIRRFbfLwF6wELeWoYGztUNGcwyJ/s1600-h/FN1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 312px; height: 202px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWBHa-U9ovoGmoMsezYJomhH5iEgkn89XGOEVHqp4YmwL5g7vyelv7na7D90cWpQ1-rzrWBDmwz-kV8TKXuFvHpeqkHP9uYyIolA2K2j0n99wM3nZDjIRRFbfLwF6wELeWoYGztUNGcwyJ/s320/FN1.png" alt="" id="BLOGGER_PHOTO_ID_5432875021365061298" border="0" /></a><span style="font-weight: bold;">i</span> adalalah variabel counter dari 1 sampai 10. Perintah <span style="font-weight: bold;">Cells(i , 1)</span> akan mengirim nilai ke kolom pertama (kolom A) dan baris i (dalam hal ini baris 1 sampai 10). Jika <span style="font-weight: bold;">Cells(i , 1) </span>diganti dengan <span style="font-weight: bold;">Cells(i , 2) </span>maka perintah akan mengirim nilai ke kolom kedua (Kolom B) dan baris 1 sampai 10 dengan nilai yang meningkat. Apakah perintah ini hanya terbatas tiap 1 baris saja?? Ternyata tidak. Perintah For...Next bisa kita gunakan dengan mengatur berapa step pengulangannya. Bagimana caranya??Pertama kita lihat dulu polanya:<br /></div><br /><span style="font-weight: bold;">Pola:</span><blockquote>For Counter = [nilai awal] To [nilai akhir] Step [jumlah step]<br />[statement]<br />Next[counter]<br /></blockquote><span style="font-weight: bold;">Contoh aplikasinya:</span><blockquote><span style="color: rgb(51, 51, 255);">Sub Test2()</span><br /><span style="color: rgb(51, 51, 255);">For</span> i = 1 <span style="color: rgb(51, 51, 255);">To</span> 10 <span style="color: rgb(51, 51, 255);">Step</span> 2<br />Cells (i , 1) = i<br /><span style="color: rgb(51, 51, 255);">Next i</span><br />End Sub<br /></blockquote><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjI_5IdqsF5DURranXdtVurKd5MfNlJzuHyuIuWCTqMJKy6aPDzpBSwa34FOxfEGlpU-X0ztSaPlSgstbMb9NB_mXkml0BABZ_-pgsHxBxeayp_f9VjCes1UV_0QWQ_QgqrqZ0KtnttU9co/s1600-h/FN2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 196px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjI_5IdqsF5DURranXdtVurKd5MfNlJzuHyuIuWCTqMJKy6aPDzpBSwa34FOxfEGlpU-X0ztSaPlSgstbMb9NB_mXkml0BABZ_-pgsHxBxeayp_f9VjCes1UV_0QWQ_QgqrqZ0KtnttU9co/s320/FN2.png" alt="" id="BLOGGER_PHOTO_ID_5432884686214992290" border="0" /></a><br /><div style="text-align: justify;">Perintah <span style="font-weight: bold;">For i = 1 To 10 step 2</span> akan mengirim nilai dengan lompatan 2 yang dimulai dari 1.Maka hasilnya adalah 1,3,5,7,9. Contoh lain dengan menggunakan Step ini adalah sbb:<br /></div><br /><span style="font-weight: bold;">Contoh aplikasinya:</span><br /><blockquote><span style="color: rgb(51, 51, 255);">Sub Test3()</span><br /><span style="color: rgb(51, 51, 255);">For</span> i = 10 <span style="color: rgb(51, 51, 255);">To</span> 1 Step -2<br />Cells (i , 1) = i<br /><span style="color: rgb(51, 51, 255);">Next i</span><br />End Sub<br /></blockquote>Maka hasilnya akan muncul 2,4,6,8,10<br /><div style="text-align: justify;">Silahkan berlatih lebih banyak lagi untuk lebih memahami ulasan kali ini. Anda tinggal mencoba mengganti-ganti angka pada contoh kode diatas.<br /></div>Kurang jelas atau ada pendapat lain?. Anda dapat berkomentar (Gratis koq) <img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/70.gif" border="0" width="23" height="18" /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-46398463011137302932010-01-31T02:34:00.000-08:002010-01-31T02:35:56.336-08:00If dan Select Case<div style="text-align: justify;">If dan Select Case adalah sebuah pernyataan bersyarat. If dan Select Case adalah merupakan suatu perintah untuk mengambil suatu keputusan terhadap sebuah atau beberapa kondisi. Kondisi adalah ungkapan untuk mengevaluasi sebuah pernyataan apakah bernilai benar atau salah. Sekarang mari kita bahas satu persatu, dengan pengelompokan pemakaian sebagai berikut"<br /></div><ul><li>If...Then...Else</li><li>If...Then...ElseIf</li><li>Select case</li></ul><br /><div class="fullpost"><span style="font-weight: bold;">1. If...Then</span>...<span style="font-weight: bold;">Else</span><br />Dalam bahasa Indonesianya adalah Jika...Maka....Selain Itu<br /><span style="font-weight: bold;">Pola:</span><blockquote></blockquote><blockquote><span style="color: rgb(51, 51, 255);">If</span> [kondisi1] <span style="color: rgb(51, 51, 255);">Then</span><br />[statement1]<br /><span style="color: rgb(51, 51, 255);">Else</span><br />[statement2]<br /><span style="color: rgb(51, 51, 255);">End if</span></blockquote><span style="font-weight: bold;">Analogi:</span><br /><blockquote></blockquote><blockquote>Jika [Nilai=A] Maka<br />[Anda Lulus]<br />Selain Itu===><span style="font-style: italic;">Maksudnya selain "A"</span><br />[Anda Tidak Lulus]</blockquote><span style="font-weight: bold;">Contoh Macro nya:</span><br /><blockquote></blockquote><blockquote><span style="color: rgb(51, 51, 255);">Sub Test1()</span><br /><span style="color: rgb(51, 51, 255);">If</span> Range ("A1").Value = "A" <span style="color: rgb(51, 51, 255);">Then</span><br />MsgBox "Anda Lulus"<br /><span style="color: rgb(51, 51, 255);">Else</span><br />MsgBox "Anda Tidak Lulus"<br /><span style="color: rgb(51, 51, 255);">End If</span><br /><span style="color: rgb(51, 51, 255);">End Sub<br /></span></blockquote><div style="text-align: justify;">Untuk melihat hasilnya sekarang anda ketik "A" dan "B" di sel A1, lalu jalankan Macro Test1. Apa hasilnya?? Jika anda berhasil maka hasilnya akan seperti gambar berikut ini:<br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6SdZcJxXveaPyGg04g-5BkANWfpaiza7KlZ_8gSM1iFDUMkD5U1ARYtDoKo7i2wu1h-2JpwjpZ5ok4KC_1vaZ9nC5BTBVEWz0LXGnQRLSMJ0VI6P-ZvvqSJ5-VEATQ_AovkNGq2q1ye4D/s1600-h/IFSC1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 288px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6SdZcJxXveaPyGg04g-5BkANWfpaiza7KlZ_8gSM1iFDUMkD5U1ARYtDoKo7i2wu1h-2JpwjpZ5ok4KC_1vaZ9nC5BTBVEWz0LXGnQRLSMJ0VI6P-ZvvqSJ5-VEATQ_AovkNGq2q1ye4D/s320/IFSC1.png" alt="" id="BLOGGER_PHOTO_ID_5432820048452772130" border="0" /></a><span style="font-weight: bold;">2</span><span style="font-weight: bold;">. If...Then</span>...<span style="font-weight: bold;">Else</span><span style="font-weight: bold;">If<br /></span><div style="text-align: justify;">Dalam bahasa Indonesianya adalah Jika...Maka....Selain Itu<span style="font-weight: bold;"> </span>Jika...Maka...Selain Itu<span style="font-weight: bold;">..., </span>bingung ya. Lebih jelasnya lihat penjelasan berikut<br /></div><span style="font-weight: bold;"><br /></span><span style="font-weight: bold;">Pola:</span><span style="font-weight: bold;"><br /><div class="fullpost"><span style="font-weight: bold;"></span><blockquote></blockquote><blockquote style="font-weight: normal;"><span style="color: rgb(51, 51, 255);">If</span> [kondisi1] <span style="color: rgb(51, 51, 255);">Then</span><br />[statement1]<br /><span style="color: rgb(51, 51, 255);">Else</span><span style="color: rgb(51, 51, 255);">If</span><br />[statement2]<br /><span style="color: rgb(51, 51, 255);">Else</span><br />[statement3]<br /><span style="color: rgb(51, 51, 255);">End if</span></blockquote><span style="font-weight: bold;">Analogi:</span><br /><blockquote style="font-weight: normal;"></blockquote><blockquote style="font-weight: normal;">Jika [Nilai=A] Maka<br />[Anda Lulus Istimewa]<br />Selain Itu Jika<br />[Nilai = B] Maka<br />[Anda Lulus]<br />Selain Itu ==><span style="font-style: italic;">Maksudnya jika bukan "A" atau "B"</span><br />[Anda Tidak Lulus]</blockquote>Contoh Macronya:<blockquote></blockquote><blockquote></blockquote><blockquote style="font-weight: normal;"><span style="color: rgb(51, 51, 255);">Sub Test2()</span><br /><span style="color: rgb(51, 51, 255);">If</span> Range ("A1").Value = "A" <span style="color: rgb(51, 51, 255);">Then</span><br />MsgBox "Anda Lulus Istimewa"<br /><span style="color: rgb(51, 51, 255);">Else</span><br /><span style="color: rgb(51, 51, 255);">If</span> Range ("A1").Value = "B" <span style="color: rgb(51, 51, 255);">Then</span><br />MsgBox "Anda Lulus"<br /><span style="color: rgb(51, 51, 255);">Else</span><br />MsgBox "Anda Tidak Lulus"<br /><span style="color: rgb(51, 51, 255);">End If</span><br /><span style="color: rgb(51, 51, 255);">End If</span><br /><span style="color: rgb(51, 51, 255);">End Sub<br /></span></blockquote><div style="text-align: justify;"><span style="font-weight: normal;">Sekarang coba ketik "A","B" dan "C" di sel A1, lalu jalankan macro Test2 ,maka hasilnya untuk "A" akan muncul pesan "Anda Lulus Istimewa", "B" muncul pesan "Anda Lulus", sedangkan "C" akan muncul pesan "Anda Tidak Lulus"</span><br /><br /></div><span style="font-weight: normal;"><span style="font-weight: bold;">3. Select Case</span><br />Perintah Select Case gunanya adalah untuk mempersingkat perintah supaya lebih efisien. Perintah ini mengefisienkan pemakaian <span style="font-weight: bold;">ElseIf </span>yang berulang-ulang.Untuk lebih jelasnya, ikuti pembahasan berikut<br /><br /><span style="font-weight: bold;">Pola:</span><blockquote></blockquote><blockquote><span style="color: rgb(51, 51, 255);">Select Case </span>[ungkapan utama]<br /><span style="color: rgb(51, 51, 255);">Case</span> <span style="color: rgb(51, 51, 255);">Is</span> [ungkapan1]<br />[statement1]<br /><span style="color: rgb(51, 51, 255);">Case Is <span style="color: rgb(51, 0, 51);">[ungkapan2]</span></span><br />[statement2]<br /><span style="color: rgb(51, 51, 255);">Case</span> <span style="color: rgb(51, 51, 255);">Is</span> [ungkapan3]<br />[statement3]<br /><span style="color: rgb(51, 51, 255);">Case</span> <span style="color: rgb(51, 51, 255);">Is </span>[ungkapan ke...n]<br />[statement ke...n]<br /><span style="color: rgb(51, 51, 255);">Case Else</span><br />[statement x]<br /><span style="color: rgb(51, 51, 255);">End Select<br /></span></blockquote><span style="font-weight: bold;">Analogi:</span><br /><blockquote></blockquote><blockquote>Kejadian terhadap Nilai<br />Kejadian Nilai A<br />[Anda Lulus Istimewa]<br />Kejadian Nilai B<br />[Anda Lulus Biasa]<br />Kejadian Nilai C<br />[Anda Lulus Pas-Pasan]<br />Kejadian Selain Itu===><span style="font-style: italic;">Maksudnya selain "A,B,C"</span><br />[Anda Tidak Lulus]</blockquote><span style="font-weight: bold;">Contoh Macro nya:<br /></span><span><blockquote></blockquote><blockquote><span style="color: rgb(51, 51, 255);">Sub Test3()</span><br /><span style="color: rgb(51, 51, 255);">Select Case</span> Range("A1").Value<br /><span style="color: rgb(51, 51, 255);">Case Is</span> = "A"<br />MsgBox " Anda Lulus Istimewa"<br /><span style="color: rgb(51, 51, 255);">Case Is</span> = "B"<br />MsgBox "Anda Lulus Biasa"<br /><span style="color: rgb(51, 51, 255);">Case Is </span>= "C"<br />MsgBox "Anda Lulus Pas-Pasan"<br /><span style="color: rgb(51, 51, 255);">Case Else</span><br />MsgBox "Anda Tidak Lulus"<br /><span style="color: rgb(51, 51, 255);">End Select</span><br /><span style="color: rgb(51, 51, 255);">End Sub</span><br /><span style="font-weight: bold;"></span></blockquote>Ketik "A,B,C,D" di sel A1, maka hasilnya akan muncul pesan sesuai dengan yang dikondisikan<br /><br /></span></span></div></span></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-85041723234479583962010-01-24T01:12:00.000-08:002010-01-24T01:20:37.495-08:00Asal Nama Tempat DI Jakarta<div style="text-align: justify;">Kota Jakarta adalah jantung ibukota dari negara Republik Indonesia di mana pusat perekonomian beserta berjuta permasalahannya ada di kota besar padat penduduk ini. Di balik nama beberapa daerah di Jakarta tersimpan kisah, cerita dan sejarah dari mana nama itu muncul.<br /></div>Berikut di bawah ini adalah beberapa asal-muasal nama daerah terkenal di DKI Jakarta :<br /><br /><div class="fullpost"><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">A. Glodok</span><br />Asalnya dari kata grojok yang merupakan sebutan dari bunyi air yang jatuh dari pancuran air. Di tempat itu dahulu kala ada semacam waduk penampungan air kali ciliwung. Orang tionghoa dan keturunan tionghoa menyebut grojok sebagai glodok karena orang tionghoa sulit mengucap kata grojok seperti layaknya orang pribumi.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">B. Kwitang</span><br />Dulu di wilayah tersebut sebagian tanah dikuasai dan dimiliki oleh tuan tanah yang sangat kaya raya sekali bernama Kwik Tang Kiam. Orang Betawi jaman dulu menyebut daerah itu sebagai kampung si kwi tang dan akhirnya lama-lama tempat tersebut dinamai kwitang.<br /><br /><span style="color: rgb(51, 51, 255); font-weight: bold;">C. Senayan</span><br />Dulu daerah senayan adalah milik seseorang yang bernama wangsanaya yang berasal dari Bali . Tanah tersebut disebut orang-orang dengan sebutan wangsanayan yang berarti tanah tempat tinggal atau tanah milik wangsanaya. Lambat laun akhirnya orang menyingkat nama wangsanayan menjadi senayan.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">D. Menteng</span><br />Daerah Menteng Jakarta Pusat pada zaman dahulu kala merupakan hutan yang banyak pohon buah-buahan. Karena banyak pohon buah menteng orang menyebut wilayah tersebut dengan nama kampung menteng. Setelah tanah itu dibeli oleh Pemerintah Belanda pada tahun 1912 sebagai lokasi perumahan pegawai pemerintah Hindia Belanda maka daerah itu disebut menteng.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">E. Jalan Jaksa</span><br />Krn dulu daerah sana tempat nge-kost-nya pelajar2 asal Indonesia yg sekolah hukum Belanda...<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">F. Matraman</span><br />Merupakan tempat basisnya sultan agung yang mau menyerang batavia . nah<br />karena sultan agung drai mataram maka tempat tersebut dikenal dengan mataraman....lama2 sebutan tersebut berubah jadi matraman<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">G. Tanah Abang</span><br />Tanah Abang dulunya tanah sekitar situ berwarna merah (abang dlm bhs Jawa ). Sekarang berwarna "emas" karena mahalnya tanah disana<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">H. Pademangan</span><br />Pademangan yang bersebelahan dengan Kemayoran adalah dua daerah yang<br />dipimpin oleh Demang Betawi (lokal) dan Mayor (londo)..<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">I. Kebayoran</span><br />Kebayoran dulunya tanah Tuan Bayor Belanda<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">J. Karet Tengsin</span><br />Karet Tengsin dulunya adalah Perkebunan karet milik etnis China bernama Tieng Shin, karna orang pribumi susah nyebutnya jadi Tengsin aja<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">K. Kuningan</span><br />Kuningan adalah dulunya tempat menetapnya seorang Pangeran dari Cirebon bernama Pangeran Koeningan.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">L. Buncit</span><br />Dulunya di jalan buncit raya sekarang ada pedagang kelontong China berperut gendut (Buncit) yg terkenal.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">M. Bangka</span><br />Dulunya disana banyak ditemukan mayat (bangke/bangkai) orang yg dibuang di kali krukut.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">N. Cilandak</span><br />Konon di sana pernah ditemukan seekor landak raksasa<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">O. Tegal Parang</span><br />Disana banyak ditemukan alang2 tinggi (tegalan) yg dipotong dgn parang (golok).<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">P. Blok A/M/S</span><br />Dulunya sekitar situ tempat pembukaan perumahan baru yg ditandai dgn blok, mulai A-S. Sayang yg tersisa tinggal 3 blok doang.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">Q. Pasar Rumput</span><br />Dulunya tempat berkumpulnya tukang rumput yg menjualnya untuk kalangan meneer Belanda yg tinggal di kampung elit, Menteng.<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">R. Kalimalang</span><br />Karena kali/sungai yg mengalir di spanjang jalan tersebut tidak mengarah kelaut (utara) melainkan kearah barat(silang/malang)<br /><br /><span style="font-weight: bold; color: rgb(51, 51, 255);">S. Lebak Bulus</span><br />Lebak artinya kolam, Bulus artinya penyu or kura2,, dinamain lebak bulus soalnya dulu disini jd sentral penjualan penyu or kura2 yg di taro di kolam2<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-82693792566527616632010-01-24T01:07:00.000-08:002010-02-21T20:01:16.564-08:00ParsubangAdong ma sada keluarga halak hita tinggal di Jakarta on<br />Jadi naeng pangolihon anak ma attong keluarga on<br />Sebagian besar keluargana nga tinggal di Jawa on, tepatna di daerah<br />Jawa Barat ma, ima di Garut, Subang, Sukabumi dohot Tasikmalaya.<br />Alai jarang be do lao tu adat, alana nungnga gabe karismatik be sude<br /><br />Tiba ma hari H ulaoni..Ai di Wisma do attong pesta on<br />Nga rade be sude, jala akka perhundulna pe nga ditentukan<br />Nungnga adong plangkatna didia annon akka tamu huddul<br /><br /><div class="fullpost"><br />Akka plangkat nai ima: PARANAK - PARBORU - TULANG - PARHATA dohot<br />PARSUBANG (ima na soboi mangallang B2 manang na boe alai dang pakke gota)<br /><br />Holan masuk keluargana na sian Jawa Barat nakkaning, pittor ribut ma<br />muruk - muruk ima na sian Garut,Sukabumi dohot Tasikmalaya<br /><br />"Songoni do hape hamu lae, so adong dipasangap hamu hami. Hape nga dao hami ro tu pesta muna on, dang hurippu hami songoni baenon muna tu hami.Dang adong diargai hamu hami.Tokkinon pe mulak nama hami!!!" Ninna sahalak sian nasida muruk-muruk.<br /><br />"Ai mahua horoa lae, aha na sala hubaen hami?" Ninna nappuna pestaon<br /><br />"Ido..!!Ai hami par Garut, Par Sukabumi dohot Par Tasikmalaya dang diparade hamu huddulan nami, holan Par Subang ido di baen hamu huddulanna. Mardikkan do hamu!!!!, Mulak nama hami"<br /><br /><img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/21.gif" border="0" width="18" height="18" /><img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/21.gif" border="0" width="18" height="18" /><img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/21.gif" border="0" width="18" height="18" /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-36440715027137635002010-01-24T00:58:00.001-08:002010-01-24T01:00:56.201-08:00Jahil Di Hari Natal Part-2Sebelumnya<br /><br />Birho<br />25-Des-09 22:31<br />Gimana adek cantik, udah di kamar kan<br />abang mau call nih...<br /><br />***************************************<br />Birho memanggil.....<br /><br />25-Des-09 22:41<br />Ringtone Hp ku berbunyi:<br /><br />....so long, it was so long ago<br />But i still got the blues for you<br />Though the days come and go<br />There is one thing i know<br />I've still got the blues for you....<br /><br />#Sebuah lagu dari Gary Moore "Steel Got The Blues" mengalun....<br /><br /><br /><div class="fullpost"> <br />#Aku masih diamkan, belum tau berbuat apa<br />#Angkat dan ngajak ngobrol berarti Cerita Usai<br /><br />Birho memanggil.....(lagi)<br /><br />25-Des-09 22:47<br />Ringtone Hp ku berbunyi:<br /><br />....so long, it was so long ago<br />But i still got the blues for you<br />Though the days come and go<br />There is one thing i know<br />I've still got the blues for you....<br /><br />#Aku kasih HP ke isteriku untuk terlibat dalam permainan ini<br />#Maksudnya agar dia menjadi ESTI jadi-jadian<br />#Ternyata tawaran persekongkolan ditolak oleh isteriku<br />#..."Raja tega..." begitu dia berujar...Ugh payah..<br />#Akhirnya telepon itu tidak kuangkat dan Birho tidak call lagi<br /><br />********************************************<br />Birho memanggil lagi...<br /><br />26-Des-09 06:12<br />Ringtone Hp ku berbunyi:<br /><br />Gary Moore berdendang lagi..<br /><br /># Speaker kuaktifkan dan Aku kasih HP ke anakku<br />#"Siapa Pah...." kata Joshua<br />#"Oppung" tukasku sekenanya<br /><br />Birho: "Hallo Esti<br />Josh: "Haloo Punggg, Oppung dah bangun..?"<br />Birho: "Hallo....siapa kau dek"<br />Josh: "Ini oppung bukan?"<br /><br />#Tuut...Birho menghentikan panggilan<br /><br />Aku<br />26-Des-09 06:16<br />Bang itu ponakan tadi<br /><br />Birho<br />26-Des-09 06:17<br />Ooo...koq kau gak mau ngomong dengan abang dek..<br />Abang makin ragu nih, Ini Esti apa bukan<br /><br />Aku<br />26-Des-09 06:23<br />Ini benaran Esti bang, suer bang<br />Ini janji yang terakhir.Ntar malam Esti telp abang yah..<br />Suer..suer...<br /><br />Birho<br />26-Des-09 06:26<br />Oke dech...kalo gak telp, berarti ini bukan dek Esti<br />tapi penyamar gelap<br /><br />Aku<br />26-Des-09 06:27<br />Ih..yang gelap kan abang...bang birong<br />he..he..Eh bang masih ingat gak nama lengkapnya aku<br /><br />#Birong = Hitam<br /><br />Birho<br />26-Des-09 06:29<br />Ingat dek, adek kan special dihati abang<br />gombal he3x<br /><br />Aku<br />26-Des-09 06:31<br />Ayo siapa bang<br /><br />Birho<br />26-Des-09 06:32<br />Est***** Manurung kan dek<br />100 kan buat abg<br /><br />Aku<br />26-Des-09 06:35<br />Iya bang..100 buat abang<br />Udah dulu ya bang mau cuci piring dulu<br />Muachh<br /><br />Birho<br />26-Des-09 06:37<br />Dek..dek..kuciumlah kau nanti<br />Ok deh..janji jangn lupa telp nanti malam<br /><br />#Aha...Aku memang lupa nama lengkap Esty<br />#Hanya ingat Esty nya saja<br />#Segera aku online dan search di FB ---Est***** Manurung---<br />#Dan...ketemu, hasil searchnya hanya satu lagi..dia sendiri<br />#Wuih..samar-samar liat foto profilnya<br />#Itu memang sepertinya Esty, yang aku kenal waktu dia SMP 14 tahun lalu<br />#CANTIK..!!!!<br /><br />#Aku kirim pesan: Ini Esty tetangga nya Bang Birho yang di Jl. Pe***** 8 Medan bukan??<br />Ini saya temannya bang Birho yang sering main catur dengan Bang Birho<br />di terasmu dulu.Ingat gak?<br /><br />#Minta pertemanan? Ah nanti dulu...<br />#Dulu kami memang sering main catur di teras rumahnya<br />#Sekalian ngelaba..antara skak mat dan curi pandang<br />#Padahal Esti masih bocah ingusan ha..ha...ha...<br /><br />*****************************<br />Aku<br />26-Des-09 12:09<br />Lg pain bang...<br /><br />#Tak ada balasan<br />#Aku buka FB via HP, Esti belum membalas pesanku<br />#Jangan-jangan dia tidak terlalu sering ber FB ria<br /><br />Birho<br />26-Des-09 14:13<br />Sory dek, tadi abang lagi ke doorsmer liat anggota<br /><br />#Doorsmer : Tempat cuci mobil dan motor istilah di Sumatera sono<br /><br />Aku<br />26-Des-09 14:18<br />Oo..itu usahanya ya bang, baguslah bang<br />abang berarti tokeh juga dong<br /><br />Birho<br />26-Des-09 14:20<br />Yang penting bisa makanlah dek<br />gak jalan-jalan dek?<br /><br />Aku<br />26-Des-09 14:21<br />Iya bang, ntar jam 4 an mau ke Sun Plaza<br />ama temannya bang Gaul, baru dikenalin bang<br />kali aja aku nyangkut bang, biar cepat kawin bang<br /><br />#Gaul adalah teman kami juga, yang tinggal satu jalan dengan Birho<br /><br />Birho<br />26-Des-09 14:23<br />Marga apa dek, kerja dimana<br />hati-hati dek,ama cowok-cowok metro jaman skrg<br />habis manis lalu ditinggal<br /><br />#Cowok metro????apaan tu ya..? Matre kali??<br /><br />Aku<br />26-Des-09 14:25<br />Marga Sagala bang<br />Kerja di Asuransi Pru******l<br />katanya omzet nya udah besar<br /><br />Birho<br />26-Des-09 14:27<br />Ah..agen asuransi nya itu abang rasa dek<br />jangan percaya lah sama dia<br />tapi kalo ma jalan-jalan coba aja<br />yang penting hati-hati<br />Udah dulu ya dek<br /><br />Aku<br />26-Des-09 14:29<br />Abang mau kemana, koq udah<br /><br />Birho<br />26-Des-09 14:31<br />Ke rumah bupati dek<br /><br />Aku<br />26-Des-09 14:32<br />Hebat kali bang, bisa hubungan sama Bupati<br />ngapain bang kesana<br /><br />Birho<br />26-Des-09 14:34<br />Ini kan mau pemilihan, jadi isterinya<br />yang mau nyalonin lagi<br /><br />Aku<br />26-Des-09 14:36<br />Emang isterinya tukang salon bang, pake nyalonin<br /><br />Birho<br />26-Des-09 14:38<br />He3x bukan dek, maksudnya mau maju jadi calon bupati<br />kek Bill Clinton lah sama isterinya<br /><br />Aku<br />26-Des-09 14:40<br />Oo...Jangan lupa ya bang bisnis facebook kita itu<br />udah abang tanya berapa harga pasaran facebook nya?<br />pokoknya dari sini barangnya banyak<br /><br />Birho<br />26-Des-09 14:43<br />Belum dek, belum sempat<br />pokoknya untuk adik abang siapin waktu lah<br />abang salut sama dek Esti mau berfikir bisnis<br />Fitur selain facebook apa lagi dek..<br /><br />#Fitur?<br /><br />Aku<br />26-Des-09 14:45<br />Blackberry bang, tau gak?<br /><br />Birho<br />26-Des-09 14:47<br />Tau lah dek..kek orang kampung aja kau buat<br />abangmu yang jelek ini<br /><br />Aku<br />26-Des-09 14:48<br />Apa coba?<br /><br />#Ngarep......kelucuan akan terjadi lagi<br /><br />Birho<br />26-Des-09 14:50<br />Hp itu dek..si Obama yang pertama pake itu<br />kuciumlah kau nanti ya adek pikir abg gak tau<br /><br />#Tak terjadi kelucuan, dia benar<br /><br />Aku<br />26-Des-09 14:51<br />Kalo Yahoo Messenger banyak gak disitu bang??<br /><br />Birho<br />26-Des-09 14:57<br />Udah dulu ya Dek, abang mau ke rumah bupati<br />jangan lupa telpon nanti malam ya dek<br /><br />Aku<br />26-Des-09 14:58<br />oke bang<br /><br />#Aku buka FB via Hp<br />#Esti belum juga membalas pesanku<br /><br />Malamnya aku tidak telpon Birho karena memang tidak ada gunanya<br />dan dia bisa marah kalo aku telpon.Aku putuskan menunda dulu<br />Sampai hari ini,belum ada lagi kontak sms<br />Aku masih coba sms tapi tidak dijawab lagi<br />Sepertinya dia sudah tahu sedang dikerjain, tetapi belum bisa memastikan<br />siapa orangnya....<br /><br />Esty juga belum membalas pesanku.<br /><br />Jadi cerita ini mungkin akan bersambung lagi jika Esti membalas pesanku<br />dan akan dikembangkan lagi dari sana..(ha..ha..ha...jahil amat ya)<br />Ada plan terbaru aku ingin kirim foto Esti ini ke Birho, sehingga bisa "ON" lagi<br /><br />Jadi sampai disini dulu sementara, karena cerita ini bukan imajiner(khayalan), maka<br />aku gak bisa membuat endingnya.Maunya riil sesuai kenyataan aja<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-283177104647611002010-01-24T00:52:00.000-08:002010-01-24T00:57:21.654-08:00Jahil Di Hari Natal Part-1Sebuah Kisah Nyata (Tanpa Rekayasa)<br /><br />Berikut ini adalah transkrip sms antara aku dan Birho, seorang teman lama yang sudah lama<br />tidak ketemu. Dia seorang teman yang super geer, over pede ,gaptek, jadul tapi LUCU.Begitulah dia..<br />Transkrip ini langsung aku copy paste ke sini setelah di transfer data dari HP ke Laptop<br />Hanya aku rubah nama (menjadi nama samaran)<br /><br />Ini lah akibat keseringan nonton Ups Salah (Trans 7)<br /><br />Aku<br />25-Des-09 10:13<br />Selamat Natal 25 Des 2009 Tuhan memberkati kita senantiasa.<br />Kasih dan damai dari Tuhan, kita terapkan dalam menjalani kehidupan<br />kita sepanjang tahun 2010 nanti<br /><br /><div class="fullpost"><br />Birho<br />25-Des-09 10:15<br />Siapa ini??<br /><br />#Teung...tiba-tiba otak jahilku kambuh untuk ngerjain sobatku ini<br />#Aku pikir dia menyimpan nomorku, ternyata tidak.<br /><br />Aku<br />25-Des-09 10:18<br />Esti bang..tetangga abang dulu di Medan<br /><br />#Esti adalah tetangga sebelah Birho dulu sewaktu masih kuliah di Medan.<br />#Saat kami kuliah, Esti masih kelas 1 SMP. Orangnya cantik jelita<br />#bak Sandra Dewi. Birho cinta setengah mati dan sering kegeeran<br />#jika diberi senyuman oleh Esti<br /><br />Birho<br />25-Des-09 10:20<br />Oo..Dimana sekarang dek<br /><br />Aku<br />25-Des-09 10:21<br />Di Medan bang, abang dimana ini?<br /><br />Birho<br />25-Des-09 10:23<br />Abang di Ranto dek, pulkam<br />Adik udah tamat atau udah kerja<br /><br />Aku<br />25-Des-09 10:26<br />Udah kerja bang. Di PT Charoen Pokphan<br /><br />#Ngarang...Mana tau aku Esti dimana rimbanya<br /><br />Birho<br />25-Des-09 10:28<br />Abang tau itu, yang dekat Amplas kan?<br /><br />Aku<br />25-Des-09 10:30<br />Iya bang,abang udah nikah belum<br /><br />Birho<br />25-Des-09 10:34<br />Udah deck, isteri abang cantik kayak Dek Esti tapi berkacamata<br />karena dia kerja sbg accounting.Dek Esti udah nikah belum?<br /><br />#Inilah Birho, penyakit gak nyambungnya masih akut<br />#Coba...apa hubungannya accounting sama kacamata<br /><br />Aku<br />25-Des-09 10:36<br />Belum bang gak ada yang mau, anaknya udah brp bang?<br /><br />Birho<br />25-Des-09 10:39<br />Ah..mana mungkin orang secantik dek Esti gak ada yang mau?<br />Abang belum punya anak Deck, belum pande buatnya he3x<br />Umur adik sekarang berapa ya<br /><br />Aku<br />25-Des-09 10:40<br />26 tahun bang<br /><br />Birho<br />25-Des-09 10:42<br />Pasti dek Esti cantik kali ya sekarang<br />Abg jadi teringat dulu, abang sering gangguin dek Esti<br /><br />Aku<br />25-Des-09 10:43<br />Ah..abang mana berani dulu.Beraninya suit-suit aja<br />Gak takut bang sama isteri sms an ama ku<br /><br />Birho<br />25-Des-09 10:45<br />Gak dik, abang lagi jomblo.isteri abang lagi di Siantar<br />Ada kerjaan urgent yang gak bisa ditinggal<br /><br />Aku<br />25-Des-09 10:47<br />Natalan gak bareng dong, emang kerjanya apaan bang<br />koq smpai Natal pun gak bisa pulang<br /><br />Birho<br />25-Des-09 10:49<br />Sebagai Head Accounting, di PT w****, yang kantor pusatnya di JW Marriott Medan<br />dia membawahi 7 pabrik, jadi super sibuk deck<br /><br />Aku<br />25-Des-09 10:51<br />Ooo..abang kerja dimana<br /><br />Birho<br />25-Des-09 10:54<br />Abang gak kerja dik, abg ada usaha aja kecil-kecilan<br />yang penting bisa makan 3x sehari he3x<br />Udah dulu ya dik, nanti jam 2 an kita sms an lagi<br />Abang lagi gereja ini, pendetanya udah selesai kotbah<br /><br />#Sama dengan aku, saat kotbah sering dimanfaatkan untuk sms dan liat FB<br /><br />******************************<br />Birho<br />25-Des-09 14:22<br />Halo adik cantik...<br /><br />Aku<br />25-Des-09 14:25<br />Halo bang, muaaaach..<br /><br />#Aku mancing penyakit geernya dan penyakit lelaki pada umumnya<br /><br />Birho<br />25-Des-09 14:28<br />Aduh..koq adek cium abang? CI PI KA - CI PI KI ya..<br />awas abang tergoda lho.<br /><br />Aku<br />25-Des-09 14:31<br />Gak papa lah bang, selingkuh kan gak apa-apa<br />lagi musim sekarang bang<br /><br />#Serangan mulai di intensifkan<br /><br />Birho<br />25-Des-09 14:34<br />Akh...adek bikin iman abang runtuh<br />Abang mau nelpon adik, boleh gak.Abang pingin dengar<br />suara merdunya Dek Esti<br /><br />#Waduh...bisa ketahuan nih<br /><br />Aku<br />25-Des-09 14:36<br />Jangan sekarang bang, lagi kumpul disini.Gak enak<br /><br />Birho<br />25-Des-09 14:39<br />Oke dech, abang jadi kurang gairah kalo belum dengar suara dek Esti<br /><br />Aku<br />25-Des-09 14:41<br />Abang punya facebook gak<br /><br />Birho<br />25-Des-09 14:42<br />Punyalah deck<br /><br />Aku<br />25-Des-09 14:44<br />Apa nama abang di Facebook?<br /><br />Birho<br />25-Des-09 14:47<br />Emang nama Adik di facebook siapa<br /><br />Aku<br />25-Des-09 14:50<br />Esti Cantik bang, kalo abang siapa?koq gak dijawab<br /><br />Birho<br />25-Des-09 14:58<br />He3x...abang gak punya facebook dek<br />abang gak mampu beli,tp nantilah abis taon baru abang ke Medan<br />beli facebook, biar kita bisa ceting-ceting<br /><br />#wkwkwkwkwkwkwkw.....facebook dibeli ????????<br />#sampai mulas aku ketawa, gak terpikir akan mendapat jawaban ini<br />#humor-humor di internet pun belum nemuin ada yang mau beli facebook<br />#wkwkwkwkwkwk lucu-lucu..<br /><br />Aku<br />25-Des-09 15:05<br />Emang berapaan pasaran facebook di Ranto bang<br />biar aku drop dari sini, jadi kita bisa bisnis<br /><br />Birho<br />25-Des-09 15:07<br />Nantilah abang tanya dulu di toko elektronik<br />kalo disini elektronik dikuasai chenes dek<br />Kalo gak Esti bellin dulu he3x<br /><br />Aku<br />25-Des-09 15:11<br />Ok bang.Udah dulu ya bang,Ntar jam 8 an kita sms an lagi<br />mau jalan-jalan dulu ke Medan Mal. Muahhhhh<br /><br />**********************************<br />Birho<br />25-Des-09 21:22<br />Halo dek, gimana jalan-jalannya<br /><br />#Aku gak jawab<br /><br />Birho<br />25-Des-09 21:49<br />Ya udah dek, abang mo bobok aja.Lagi dikunjungi pacar ya<br />abang takut nggangu<br /><br />#Aku ganti nomor (pakai HP isteri)<br /><br />Aku<br />25-Des-09 21:51<br />Sory bang, nomor yang tadi pulsanya habis<br />Ini pake HP adekku.Padahal pengen kali mau<br />sms an ama abang.Mau ngisi pulsa lagi hujan deras disini<br /><br />Birho<br />25-Des-09 21:54<br />Ya udah, demi muasin kangen abang.Pulsa adek abang isi ya<br /><br />#Kena deh...<br /><br />Aku<br />25-Des-09 21:56<br />Gak usah bang, jadi gak enak<br /><br />#Sms pun masuk ke nomorku tadi dari 858<br />Anda mendapatkan pulsa Rp 20000 dari simPATI 0813XXXXXXXX tgl 25-12-2009<br />22:01:05.Utk mengecek pulsa anda silahkan ketik *888# <ok dial=""><br /><br />#Hi..hi..hi...dapat pulsa gratis 20rb<br />#Alangkah berdosanya aku (Birho, ntar aku kembalikan ya)<br />#Kembali pake HP ku<br /><br />Aku<br />25-Des-09 22:03<br />Udah bang udah masuk, makasih ya<br /><br />Birho<br />25-Des-09 22:05<br />Akh..untuk dek Esti gak papa lah<br />lagian cuman 20 rebon nya<br />Nanti kalo adek ada rezeki kan bisa isi pulsa abang<br /><br />Aku<br />25-Des-09 22:07<br />Iya deh bang<br /><br />Birho<br />25-Des-09 22:10<br />Abang call adek ya...abang ragu dikit juga ini.Takutnya ini bukan Dek Esti<br />tapi ada orang yang nyamar jadi Dek Esti.Abang dikerjain dech<br /><br />Aku<br />25-Des-09 22:11<br />Jangan dulu bang, aku masih ngumpul di ruang tengah ama bapak/mama<br /><br />Birho<br />25-Des-09 22:15<br />Ya udah, masuk ke kamar aja.<br />Abang udah di kamar ini.Abang sengaja bikin AC nya Max Cool<br />Biar dingin<br /><br />Aku<br />25-Des-09 22:18<br />Peluk aku dong bang, biar angat<br /><br />Birho<br />25-Des-09 22:20<br />Aduh...abang jadi ngeres nih.Iman abang sudah runtuh<br />gara-gara dek Esti nih..akhh....<br /><br />Aku<br />25-Des-09 22:22<br />Hati-hati bang ketahuan istri abang<br /><br />Birho<br />25-Des-09 22:25<br />Gak dek, abang malah takut ama KPK, abang sms an ama cewek<br />Kayak antassari tu, gara-gara sms an ama cewek jadi masuk buih...<br /><br />#Antasari Masuk buih??Gara-gara sms an????????<br /><br />Birho<br />25-Des-09 22:31<br />Gimana adek cantik, udah di kamar kan<br />abang mau call nih...<br /><br />****************************<br /><br />Bersambung.......<br /><br /><br /></ok></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-39640850909450358772010-01-24T00:34:00.000-08:002010-02-21T20:02:57.597-08:00Fesbuk Ni Binatang<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcsfEZmLjv88yvT8-KJCZwuPqsruidk8k4pnUCNlgOfbjPV362Fi3tXPWK9gFq_4jB7M955TkZjRC3XqA21hYXUPeB-6x_8NFjZAuIaawcrTzd_9pulW8w-Me3ESPqcsPLMFfuWPqQz8h/s1600-h/FB+In+A+Tang.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 400px; height: 279px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcsfEZmLjv88yvT8-KJCZwuPqsruidk8k4pnUCNlgOfbjPV362Fi3tXPWK9gFq_4jB7M955TkZjRC3XqA21hYXUPeB-6x_8NFjZAuIaawcrTzd_9pulW8w-Me3ESPqcsPLMFfuWPqQz8h/s400/FB+In+A+Tang.png" alt="" id="BLOGGER_PHOTO_ID_5412530997024372418" border="0" /></a> <span style="font-weight: bold; color: rgb(51, 51, 255);">Klik pada gambar untuk memperbesar</span>....<br /><div class="fullpost"><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-20267338270812235222010-01-23T22:45:00.000-08:002010-01-24T00:17:27.446-08:00Macro Dengan Perintah OffsetPerintah Range dan Offset sering sekali digunakan dalam listing program VBA. Fungsi nya adalah untuk menyeleksi, berpindah sel atau pergerakan sel. Dan masih banyak kegunaan lainnya. Dalam bahasan kali ini akan menampilkan contoh perintah yang paling sederhana dari perintah Offset. Kita akan membahas bagaimana cara membuat perintah Macro untuk membuat sel bergerak atau berpindah ke kanan-kiri-atas-bawah<br /><br /><div class="fullpost"><br />Langkah pertama buka sebuah lembar kerja baru (sheet1), keudian aktifkan sel C5 sebagai titik acuan dengan cara meng klik di sel tersebut<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1UXqu4TZcmvhyphenhyphenAepwaRBi7ys9RyuRzj1XN-AFr1fLy-iD6ARqv3deJfqlFGX3mJdHp3Xv1fPksYGYdT51B9UoC0DOKu4k96Lw2kyeW3YgSQjVh6PVMtHgfRmoygwrd9t5oak6FNVtGBLe/s1600-h/center.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 140px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1UXqu4TZcmvhyphenhyphenAepwaRBi7ys9RyuRzj1XN-AFr1fLy-iD6ARqv3deJfqlFGX3mJdHp3Xv1fPksYGYdT51B9UoC0DOKu4k96Lw2kyeW3YgSQjVh6PVMtHgfRmoygwrd9t5oak6FNVtGBLe/s320/center.png" alt="" id="BLOGGER_PHOTO_ID_5430205856480152994" border="0" /></a>Buka jendela VBE lalu insert sebuah modul, kemudian ketik kode berikut<br /><br /><span style="color: rgb(51, 51, 255);">Sub</span> Kiri()<br /><span style="color: rgb(51, 51, 255);"></span>ActiveCell.Offset(0, -1).Select<br /><span style="color: rgb(51, 51, 255);"></span><span style="color: rgb(51, 51, 255);">End Sub</span><br /><br />Sekarang jalankan Macro Kiri, maka sel aktif akan berpindah ke kiri satu sel. Sel B5 aktif<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLAVs4OFUkAX1Nh_Q9vEnoL4VsuTeMwPJTzVNO9p51mvmZZohEAjCXGY57w8fu6VxXunRPEWT-o5fAVgggoymgtmYkgYhnDsrhQPFQWyyu3Apv8bvZlscy3JKkEQ7NIYuZChPR0jRB-KPp/s1600-h/Kiri.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 143px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLAVs4OFUkAX1Nh_Q9vEnoL4VsuTeMwPJTzVNO9p51mvmZZohEAjCXGY57w8fu6VxXunRPEWT-o5fAVgggoymgtmYkgYhnDsrhQPFQWyyu3Apv8bvZlscy3JKkEQ7NIYuZChPR0jRB-KPp/s320/Kiri.png" alt="" id="BLOGGER_PHOTO_ID_5430210276700256930" border="0" /></a>Selanjutnya ketik kode berikut untuk pergerakan sel ke kanan, atas dan bawah<br /><br /><span style="color: rgb(51, 51, 255);">Sub</span> Kanan()<br />ActiveCell.Offset(0, 1).Select<br /><span style="color: rgb(51, 51, 255);">End Sub</span><br /><br /><span style="color: rgb(51, 51, 255);">Sub</span> Atas()<br />ActiveCell.Offset(-1, 0).Select<br /><span style="color: rgb(51, 51, 255);">End Sub</span><br /><br /><span style="color: rgb(51, 51, 255);">Sub</span> Bawah()<br />ActiveCell.Offset(1, 0).Select<br /><span style="color: rgb(51, 51, 255);">End Sub</span><br /><br />Sebagai rangkumannya bisa dilihat pada gambar berikut ini<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGl0LVkPnGcAX8_ew3avxZbiiYW894uE58xJcA49VzlRUiDB31Jb30GsB77w7mdB0SO2K_PNrn-bvhHooYWO5P8cTrIny_0L9wWfvVKYQCMcdD0uM61bxcT0H-cicnYIVK87xNO6XQ1Iei/s1600-h/All.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 138px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGl0LVkPnGcAX8_ew3avxZbiiYW894uE58xJcA49VzlRUiDB31Jb30GsB77w7mdB0SO2K_PNrn-bvhHooYWO5P8cTrIny_0L9wWfvVKYQCMcdD0uM61bxcT0H-cicnYIVK87xNO6XQ1Iei/s320/All.png" alt="" id="BLOGGER_PHOTO_ID_5430215653230579826" border="0" /></a>Untuk lebih memahami coba anda ganti angka 1 menjadi angka 2,3 ,4 .Apa yang terjadi??<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-37110288263026413342010-01-23T21:57:00.000-08:002010-01-26T00:47:53.360-08:00Cara Lain Menjalankan Macro-2<div style="text-align: justify;">Cara Lain Menjalankan Macro-1 sudah anda baca belum? Ada baiknya sebelum membaca Cara LainMenjalankan Macro-2 ini, anda baca terlebih dahulu <a href="http://d-josva.blogspot.com/2010/01/cara-lain-menjalankan-macro.html">Cara Lain Menjalankan Macro-1</a> untuk memudahkan pemahaman pelajaran kali ini. Cara Lain Menjalankan Macro-2 ini adalah dengan menggunakan Autoshapes. Dalam bahasan ini saya akan menggunakan salah satu dari Basic Shape yaitu Rounded Rectangle<br /><br /></div><div class="fullpost"><br /><div style="text-align: justify;">Langkah pertama adalah rekam sebuah Macro untuk Hapus Data. Untuk mempersingkat waktu kita gunakan Macro_Hapus yang sudah ada di Cara Lain Menjalankan Macro-1. Pada sheet kerja ganti tombol CommandButton dengan Basic Shape yang sudah dipilih (Lihat Gbr). Tambahkan teks Hapus Data<br /></div><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRgSgO3ugPq979HdITCZpJxuLwiddm-SctVK64KLxt0aDlj0ulkF2F4fT5LZlZRlNS6GsDQrlUxrYwShzNnTfCzRJZDquS58ZKGVkBzzEn9gi-Jlgh6CbyEqWlFYJ7bRbkKvnTa5ET0cR6/s1600-h/CaraLain2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 229px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRgSgO3ugPq979HdITCZpJxuLwiddm-SctVK64KLxt0aDlj0ulkF2F4fT5LZlZRlNS6GsDQrlUxrYwShzNnTfCzRJZDquS58ZKGVkBzzEn9gi-Jlgh6CbyEqWlFYJ7bRbkKvnTa5ET0cR6/s320/CaraLain2.png" alt="" id="BLOGGER_PHOTO_ID_5430187056026473186" border="0" /></a>Sehingga menjadi seperti ini:<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitXFO6HWNNX1hLw1ehg_51W-M3m7pL53_sRpfdh4LVdCHBU1fkwON-Vbp4J7S0YM2JD7xOWl1INsiPzBAkiPU57D5sHcPnlgzVswjUe-uklfzzE_-S1A8iS0Pa2j3YMw6_DNfJLY-JFtzO/s1600-h/New+Picture.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 287px; height: 191px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitXFO6HWNNX1hLw1ehg_51W-M3m7pL53_sRpfdh4LVdCHBU1fkwON-Vbp4J7S0YM2JD7xOWl1INsiPzBAkiPU57D5sHcPnlgzVswjUe-uklfzzE_-S1A8iS0Pa2j3YMw6_DNfJLY-JFtzO/s320/New+Picture.png" alt="" id="BLOGGER_PHOTO_ID_5430188941353517666" border="0" /></a>Klik kanan pada shape Hapus Data, akan muncul kotak dialog seperti ini.<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnkQXXYMJzz8UVDknRc9_KR2OIixRp4KGfiJHXhAlhJS1Peu4iJgCyxSmOrLoSjs1KHWwvh2Sqb_6bTaDXlf1199oleaA2OEad8hPPwLe4L1YD9PZ6bE-xxgZrgfiv6YNkzUQxss-52-lT/s1600-h/CaraLain2-1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 245px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjnkQXXYMJzz8UVDknRc9_KR2OIixRp4KGfiJHXhAlhJS1Peu4iJgCyxSmOrLoSjs1KHWwvh2Sqb_6bTaDXlf1199oleaA2OEad8hPPwLe4L1YD9PZ6bE-xxgZrgfiv6YNkzUQxss-52-lT/s320/CaraLain2-1.png" alt="" id="BLOGGER_PHOTO_ID_5430192152014904290" border="0" /></a>Kemudian klik Assign Macro. Selanjutnya pilih Macro_Hapus. Kemudian klik OK<br /></div><br />Sekarang coba klik shape Hapus Data, maka sel A2 sampai A10 akan terhapus<br />Mudah bukan?<br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-27717815844116630302010-01-23T16:51:00.001-08:002010-01-26T00:45:47.307-08:00Cara Lain Menjalankan Macro-1<div style="text-align: justify;">Seperti sudah diketahui Macro dijalankan dengan perintah Run setelah memilih nama Macro yang akan dijalankan. Ada cara lain untuk menjalankan Macro ini.Yaitu dengan menggunakan tombol CommandButton yang dari ToolBox dan bisa juga dengan menggunakan AutoShapes.Sekarang mari kita bahas satu persatu.<br /></div><div style="text-align: justify;">Sebagai langkah pertama sekarang mari kita rekam sebuah Macro sederhana. Lalu Macro yang sudah kita rekam ini akan kita jalankan dengan kedua cara menjalankan Macro yang sudah saya sebutkan diatas tadi<br /><br /></div><div class="fullpost"><br /><ul><li>Buka sheet baru</li><li>Pada sel A1 sampai A10 ketik seperti gambar berikut<br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwZEUtsOMU6cDhkrieTRyG12fd_5ALVOFDzCiJvbmwLP1Zur2-P5jnP0y83n4cCH-4F41GAKC_ndO1yasChHgaWDaRuMlrEFJwCsHCor4R6K4tcghKGFdETg0E-RLIWOJ0-H_e1sscP-qL/s1600-h/CariData-1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 284px; height: 243px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwZEUtsOMU6cDhkrieTRyG12fd_5ALVOFDzCiJvbmwLP1Zur2-P5jnP0y83n4cCH-4F41GAKC_ndO1yasChHgaWDaRuMlrEFJwCsHCor4R6K4tcghKGFdETg0E-RLIWOJ0-H_e1sscP-qL/s320/CariData-1.png" alt="" id="BLOGGER_PHOTO_ID_5430108153073408530" border="0" /></a>Klik <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==><span style="font-weight: bold;">Record New Macro</span></li><li>Kemudian muncul kotak dialog Record Macro lalu beri nama Macro_Hapus</li><li>Klik "OK"</li><li>Sorot sel A2 sampai A10, lalu tekan tombol delete pada keyboard</li><li>Kemudian klik Stop Recording untuk menghentikan perekaman<br /></li></ul><div style="text-align: justify;">Sekarang mari kita jalankan macro tadi dengan cara pertama (Cara biasa sudah tentu bisa kan?) yaitu dengan menggunakan tombol CommandButton<br /></div><ul style="text-align: justify;"><li>Klik Icon ControlBox pada toolbar Excel anda, kemudian klik icon CommandButton (Lihat Gambar). <span style="font-style: italic;">Jika belum ada di toolbar, klik </span><span style="font-weight: bold; font-style: italic;">Too</span><span style="font-style: italic;">l==></span><span style="font-weight: bold; font-style: italic;">Customize..</span><span style="font-style: italic;">==>lalu centang pada OptionButton </span><span style="font-weight: bold; font-style: italic;">Visual Basic</span><br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiT4oSxSfpMJcqstSP2jxFbj2uqJRepBGuXXv6DJF_p56SMPOIx5o7n2v6-bUqTkxfi5TOYacQoZl-MX_S5sZ3QH8jUBoGwuU4OsvD2dWJAEPkC5ql6L75-Y0_YWi9y-k6mdPjobVsTSDmf/s1600-h/CaraLain-1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 108px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiT4oSxSfpMJcqstSP2jxFbj2uqJRepBGuXXv6DJF_p56SMPOIx5o7n2v6-bUqTkxfi5TOYacQoZl-MX_S5sZ3QH8jUBoGwuU4OsvD2dWJAEPkC5ql6L75-Y0_YWi9y-k6mdPjobVsTSDmf/s320/CaraLain-1.png" alt="" id="BLOGGER_PHOTO_ID_5430116500354025602" border="0" /></a>Letakkan tombol CommandButton ke sheet dekat ke data yang diketik tadi (lihat gambar)<br /></li></ul><ul style="text-align: justify;"><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1Ddu6P4I6E3Xx3FeMx3S_V8TovlC6eCpiaDBw3o8NonorCqej3zEAWC5Cgr3F0enOQu49fdDB28p8dkuSekfuzBSgyMFbTjNdzwWZMcrFkF-lufHn2jZj77jQ_axLReFTbcL-4xQ_45PY/s1600-h/CaraLain-2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 287px; height: 190px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1Ddu6P4I6E3Xx3FeMx3S_V8TovlC6eCpiaDBw3o8NonorCqej3zEAWC5Cgr3F0enOQu49fdDB28p8dkuSekfuzBSgyMFbTjNdzwWZMcrFkF-lufHn2jZj77jQ_axLReFTbcL-4xQ_45PY/s320/CaraLain-2.png" alt="" id="BLOGGER_PHOTO_ID_5430118482781840914" border="0" /></a>Klik kanan pada Tombol CommandButton, kemudian klik Properties maka akan muncul gambar sbb:<span style="font-style: italic; color: rgb(51, 102, 255);"> (Klik pada gambar untuk memperbesar)</span><br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEia-T3o7pOi9Pyqjm1p47aEVIn5d75zsJQQpChRiW_fC111ww95hPkx1vP5bvyVpC-Gw4fHEJmFWibjXbekbzYVAMQ3SrqdU2Kfp7z66oe0IxGKpd69teDFhAT82v13cGkZcYxw1vMYH7dj/s1600-h/CaraLain-3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 243px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEia-T3o7pOi9Pyqjm1p47aEVIn5d75zsJQQpChRiW_fC111ww95hPkx1vP5bvyVpC-Gw4fHEJmFWibjXbekbzYVAMQ3SrqdU2Kfp7z66oe0IxGKpd69teDFhAT82v13cGkZcYxw1vMYH7dj/s320/CaraLain-3.png" alt="" id="BLOGGER_PHOTO_ID_5430121991709647778" border="0" /></a>Ganti <span style="font-weight: bold;">Caption</span> menjadi <span style="font-weight: bold;">Hapus Data</span></li><li><span>Hasilnya akan menjadi seperti gambar ini</span><span style="font-weight: bold;"><br /></span></li></ul><ul><li style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9t3N5O-yE0shLsZ834MQI-T0EkoyOQZ0erHg-WNC6aPR3pcyNMnQq5-kXZrlbokK4X10HggxeHt_VrDJ5X_vBBAb2KrvNuMZqMxln7aOGVdvjSQ5QyyVA5oUc86Z69kO9QbMJFP3dq0mA/s1600-h/CaraLain-4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 284px; height: 190px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9t3N5O-yE0shLsZ834MQI-T0EkoyOQZ0erHg-WNC6aPR3pcyNMnQq5-kXZrlbokK4X10HggxeHt_VrDJ5X_vBBAb2KrvNuMZqMxln7aOGVdvjSQ5QyyVA5oUc86Z69kO9QbMJFP3dq0mA/s320/CaraLain-4.png" alt="" id="BLOGGER_PHOTO_ID_5430123377099362610" border="0" /></a>Klik kiri 2x tombol CommandButton Hapus Data.Maka akan muncul jendela kode untuk CommandButton Hapus Data</li><li style="text-align: justify;">Kemudian klik <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==>Pada kotak Dialog Macro klik<span style="font-weight: bold;"> Edit</span>, Maka akan muncul kode rekam Macro_Hapus</li><li style="text-align: justify;">Copy kan kode Macro_Hapus (<span style="font-style: italic;">Lihat tanda kotak merah pada gambar</span>) ke jendela kode CommandButton Hapus Data<br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsVXSjuNNSvZdrR20ztZXEYK2I5Fdzt7yDbgb2UmG6P_k9SZw95XmCneMcsi3nY7yDhMdrJlTLxy8pEktHoPbdw3NXruleBHJ_TrEYshd391uhVt_K3NpqDxwQVJ9K5O496-cx5itNab8V/s1600-h/CaraLain-5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 272px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsVXSjuNNSvZdrR20ztZXEYK2I5Fdzt7yDbgb2UmG6P_k9SZw95XmCneMcsi3nY7yDhMdrJlTLxy8pEktHoPbdw3NXruleBHJ_TrEYshd391uhVt_K3NpqDxwQVJ9K5O496-cx5itNab8V/s320/CaraLain-5.png" alt="" id="BLOGGER_PHOTO_ID_5430130185189002578" border="0" /></a>Searang coba Run Macro anda, maka akan muncul lagi seperti ini<br /></li></ul><ul style="text-align: justify;"><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9t3N5O-yE0shLsZ834MQI-T0EkoyOQZ0erHg-WNC6aPR3pcyNMnQq5-kXZrlbokK4X10HggxeHt_VrDJ5X_vBBAb2KrvNuMZqMxln7aOGVdvjSQ5QyyVA5oUc86Z69kO9QbMJFP3dq0mA/s1600-h/CaraLain-4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 284px; height: 190px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9t3N5O-yE0shLsZ834MQI-T0EkoyOQZ0erHg-WNC6aPR3pcyNMnQq5-kXZrlbokK4X10HggxeHt_VrDJ5X_vBBAb2KrvNuMZqMxln7aOGVdvjSQ5QyyVA5oUc86Z69kO9QbMJFP3dq0mA/s320/CaraLain-4.png" alt="" id="BLOGGER_PHOTO_ID_5430123377099362610" border="0" /></a>Untuk mengetes hasilnya, silahkan klik pada Tombol Hapus Data, maka sel A2 sampai Sel A10 akan terhapus otomatis. Jika tidak....berarti pelajaran anda gagal, silahkan ulang lagi dari atas. Atau silahkan berkomentar di kotak komentar jika ada yang kurang jelas</li></ul><div style="text-align: justify;">Eiit...menjalankanMacro dengan AutoShapes yang sudah dijanjikan diatas tadi bagaimana <img src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/20.gif" border="0" width="22" height="18" /><br />? Tenang aja..silahkan klik <a href="http://d-josva.blogspot.com/2010/01/cara-lain-menjalankan-macro-2.html">DISINI</a><br /></div><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-21458343807454799182010-01-23T09:01:00.000-08:002010-01-26T00:41:06.932-08:00Macro Pencari Data<div style="text-align: justify;">Kode Macro berikut ini adalah kode Macro untuk mencari data dalam sebuah sheet (lembar kerja). Di Excel biasanya kita menggunakan perintah Ctrl F7, lalu mengetik data yang hendak kita cari. Perintah pengganti Ctrl F7 ini juga dapat dijalankan dengan menggunakan perintah Macro. Ada sedikit perbedaan hasil pencarian jika anda menggunakan kode ini dengan menggunakan perintah Ctrl F7. Bagaimana caranya dan apa bedanya???Ikuti mantra berikut ini:<br /></div><br /><div class="fullpost"><ul style="text-align: justify;"><li>Pertama, buka sebuah sheet lembar kerja, lalu ketik beberapa nama di sel A1 sampai A10 seperti gambar berikut:</li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiC1vSfEERL8NzNVmkhpsn5b5shDeqngrbn4aOK5079rqP0QwMeDG-YpCmg0wqYrK5GKlBdHBVho3mIg_bQztX8L6NGVpQkFamv7Q8C_qjirYQ0lZwn_QxpoBXKuivu07yuYfZyHUzM0nb2/s1600-h/CariData-1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 284px; height: 243px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiC1vSfEERL8NzNVmkhpsn5b5shDeqngrbn4aOK5079rqP0QwMeDG-YpCmg0wqYrK5GKlBdHBVho3mIg_bQztX8L6NGVpQkFamv7Q8C_qjirYQ0lZwn_QxpoBXKuivu07yuYfZyHUzM0nb2/s320/CariData-1.png" alt="" id="BLOGGER_PHOTO_ID_5429994992883847058" border="0" /></a>Klik <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==><span style="font-weight: bold;">Visual Basic Editor</span></li><li>Pada jendela program ketik kode berikut</li></ul><span style="font-weight: bold;">Sub Cari_Data()</span><br /><span style="color: rgb(51, 51, 255);">Dim</span> FindString<span style="color: rgb(51, 102, 255);"> <span style="color: rgb(51, 51, 255);">As String</span></span><br /><span style="color: rgb(51, 51, 255);">Dim</span> Rng <span style="color: rgb(51, 51, 255);">As</span> Range<br />FindString = InputBox("Masukkan Data Yang Akan Dicari")<br /><span style="color: rgb(51, 51, 255);">If</span> Trim(FindString) <> "" <span style="color: rgb(51, 51, 255);">Then</span><br />With Sheets("Sheet1").Range("A:A") <span style="color: rgb(255, 0, 0); font-weight: bold;"><===</span><span style="font-size:85%;"><span style="color: rgb(255, 0, 0); font-weight: bold; font-style: italic;"><span style="font-weight: bold;">R</span>ange bisa diganti menjadi ("A:C") dsb</span></span><br />Set Rng = .Find(What:=FindString, _<br /> After:=.Cells(1), _<br /> LookIn:=xlValues, _<br /> LookAt:=xlWhole, _<br /> SearchOrder:=xlByRows, _<br /> SearchDirection:=xlPrevious, _<br /> MatchCase:=<span style="color: rgb(51, 51, 255);">False</span>)<br /><span style="color: rgb(51, 51, 255);">If Not</span> Rng <span style="color: rgb(51, 51, 255);">Is Nothing Then</span><br /> Application.Goto Rng, <span style="color: rgb(51, 51, 255);">True</span><br /><span style="color: rgb(51, 51, 255);">Else</span><br /> MsgBox "Data Tidak Ada"<br /><span style="color: rgb(51, 0, 51);">End If</span><br /><span style="color: rgb(51, 0, 51);"> End With</span><br /><span style="color: rgb(51, 0, 51);"> End If</span><br /><span style="color: rgb(51, 0, 51); font-weight: bold;">End Sub</span><br /><br />Lalu jalankan Macro seperti biasa, Pilih <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==>Pilih Macro <span style="font-weight: bold;">Cari_Data<br /><br /></span>Maka akan muncul sebuah kotak Input Box seperti gambar berikut:<br /><br /><div style="text-align: justify;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2tlmnBtgE-bw7jhCD4n7CYiADrpQRJ38GoHGoml6WHDGSXOOPRW2ywczLIdtM84iSMqBt7pVTV6GekO4n64VHdUm1PHf9f2nN7YLI2NPoFy-O_W8PcB_KmwuaRDt8fIBAAN0AdVJW2IMV/s1600-h/CariData-2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 127px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2tlmnBtgE-bw7jhCD4n7CYiADrpQRJ38GoHGoml6WHDGSXOOPRW2ywczLIdtM84iSMqBt7pVTV6GekO4n64VHdUm1PHf9f2nN7YLI2NPoFy-O_W8PcB_KmwuaRDt8fIBAAN0AdVJW2IMV/s320/CariData-2.png" alt="" id="BLOGGER_PHOTO_ID_5430005855984163458" border="0" /></a>Atau jalankan melalui klik tombol CommandButton, adapun caranya sudah sudah diposting pada <a href="http://d-josva.blogspot.com/2010/01/cara-lain-menjalankan-macro.html">Cara Lain Menjalankan Macro-1</a>. Lalu ketik sebuah nama yang hendak anda cari, misalnya ketik <span style="font-weight: bold;">Rooney</span><br /></div><div style="text-align: justify;">Maka hasilnya akan menjadi seperti ini:<br /><br /></div><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTQffj8Ovy0YMbT9GNbHL11XViNE7OaSkFD7S1rU9S_HJLqznQPPn8CodZHI5KN80FswiHJbuqUhTGB-oa_57XkUO8ICdjZPQI3RSH2qPCF48PvFAEbg5iK2twvJiu73EvgDaQ9jxBthJz/s1600-h/CariData-3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 251px; height: 176px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTQffj8Ovy0YMbT9GNbHL11XViNE7OaSkFD7S1rU9S_HJLqznQPPn8CodZHI5KN80FswiHJbuqUhTGB-oa_57XkUO8ICdjZPQI3RSH2qPCF48PvFAEbg5iK2twvJiu73EvgDaQ9jxBthJz/s320/CariData-3.png" alt="" id="BLOGGER_PHOTO_ID_5430007653221178898" border="0" /></a>Data yang dicari --Rooney--muncul di posisi paling atas dari sheet kerja. Jika ingin kembali anda tinggal scroll ke atas<br />Bedanya dengan menggunakan perintah Ctrl F7 adalah:<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZs2lvsFbT6zKugn5MNXLwaHvHT45Es44B8ZFgsrFVq1vo8gWy9QL4dsb2h7yQCxRqEby-3drDqGQZyFc5de4p3nW_BDMVtjJPB8tjCoY5bBr2iTHBEE3dmjhG8emvLADxUEMNnEDsC95q/s1600-h/CariData-4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 245px; height: 243px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZs2lvsFbT6zKugn5MNXLwaHvHT45Es44B8ZFgsrFVq1vo8gWy9QL4dsb2h7yQCxRqEby-3drDqGQZyFc5de4p3nW_BDMVtjJPB8tjCoY5bBr2iTHBEE3dmjhG8emvLADxUEMNnEDsC95q/s320/CariData-4.png" alt="" id="BLOGGER_PHOTO_ID_5430008861139173330" border="0" /></a>Sudah jelaskan bedanya?<br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-67433356146722153712010-01-23T02:38:00.000-08:002010-01-23T08:57:11.744-08:00Merekam Sebuah Macro<div style="text-align: justify;">Ada 2 cara membuat Macro dalam Microsoft Excel<br /><br />1. Membuat suatu listing program (perintah) dalam Visual Basic Editor<br />2. Merekam aksi yang kita lakukan dalam Microsoft Excel itu sendiri<br /><br />Kali ini kita akan membahas nomor 2, yaitu bagaimana cara merekam sebuah Macro. Dengan merekam sebuah Macro anda akan dapat melakukan suatu perintah atau aksi pada worksheet Excel anda dengan hanya menjalankan Macro yang sudah direkam tadi. Artinya suatu aksi yang biasanya anda lakukan berulang-ulang bisa dilakukan dengan hanya sekali kerja saja.Yaitu "Menjalankan Macro"<br /><div class="fullpost"><br />Langkah pertama adalah:<br /><ul><li>Buka sebuah worksheet baru </li><li>Di sheet 1 ketikkan Dedy (<span style="font-style: italic;">terserah aja ya..ini cuma contoh</span>)<br /></li><li>Kemudian pilih <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==><span style="font-weight: bold;">Record New Macro</span><br /></li></ul></div><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1otl4vEG-JtYrIoKsvd_Bk-K-t-5lIMacHp4PIw8wjCtKVx2vekSU4sMK_TrLvi9wiQwoB1zecBIINxZdV-ScqE-Mns3VafUxKeHYqzoRAVxuKAnUMluk81Owly8gPvfj8FW13vafmTI9/s1600-h/Rekam-1.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 175px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1otl4vEG-JtYrIoKsvd_Bk-K-t-5lIMacHp4PIw8wjCtKVx2vekSU4sMK_TrLvi9wiQwoB1zecBIINxZdV-ScqE-Mns3VafUxKeHYqzoRAVxuKAnUMluk81Owly8gPvfj8FW13vafmTI9/s320/Rekam-1.png" alt="" id="BLOGGER_PHOTO_ID_5429935441330252226" border="0" /></a>Akan muncul seperti gambar berikut</li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkEJeP1qAZ29I4dwUlz5xTC_1xsy-wDoQu4G-8HYgyVs_gYs_49-6ri8m64QcPSjAFiKh_NuGZR-ibtDlr4oWbse5eBXam11zht6V0lIoBoZzu54sCkMS-KW6FcOTntyNC8kAhbU8wJc5G/s1600-h/Rekam-2.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 297px; height: 209px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjkEJeP1qAZ29I4dwUlz5xTC_1xsy-wDoQu4G-8HYgyVs_gYs_49-6ri8m64QcPSjAFiKh_NuGZR-ibtDlr4oWbse5eBXam11zht6V0lIoBoZzu54sCkMS-KW6FcOTntyNC8kAhbU8wJc5G/s320/Rekam-2.png" alt="" id="BLOGGER_PHOTO_ID_5429938664421000658" border="0" /></a>Macro name dapat di ganti sesuai dengan keinginan atau sesuai dengan Macro mengenai apa yang sedang anda rekam</li><li>Klik "<span style="font-weight: bold;">OK</span>"</li><li>Kemudian copy paste sel A1 yang ada tulisan Dedy tadi ke sel C1<br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghKkUJjKYzvmNMVEt-Gl08S8gWUJru6VDH1CBhhvrDKgEuKXLscXV07e7iucPgKCIQRLALsRCAtYbG4IVLt5S0CXWhL2HAPZRQat8dXxwTb-a2EeE2Oq38oPJfCOjSJoNDV8dnIyGDlMLB/s1600-h/Rekam-3.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 197px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghKkUJjKYzvmNMVEt-Gl08S8gWUJru6VDH1CBhhvrDKgEuKXLscXV07e7iucPgKCIQRLALsRCAtYbG4IVLt5S0CXWhL2HAPZRQat8dXxwTb-a2EeE2Oq38oPJfCOjSJoNDV8dnIyGDlMLB/s320/Rekam-3.png" alt="" id="BLOGGER_PHOTO_ID_5429943784413633090" border="0" /></a>Kemudian klik tombol Stop Rekam (lihat gambar)</li><li>Macro rekam anda sudah selesai...<br /></li></ul>Nah..untuk menjalankan Macro anda tadi, ikuti petunjuk berikut<br /><ul><li>Hapus tulisan Dedy di sel C1 tadi</li><li>Kemudian jalankan Macro1 yang sudah direkam tadi dengan cara klik <span style="font-weight: bold;">Tool</span>==><span style="font-weight: bold;">Macro</span>==><span style="font-weight: bold;">Macros</span><br /></li><li>Kemudian klik tombol <span style="font-weight: bold;">Run</span> pada <span style="font-weight: bold;">Macro1</span> (Macro yang mau dijalankan)<br /></li></ul><ul><li><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh85Qrzw4THYGFdYQUnh7iitL8gWhlstxpC4ar56KgTkxxTNqbHoLmW8CMVZHC1scwPN_P96bpLma1oizSoKpiBNlCcSN2brhPxuZrGH9g7McD_VPR88w8auW3StMaoXTHuKeT0U1KglEgV/s1600-h/Rekam-4.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 298px; height: 320px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh85Qrzw4THYGFdYQUnh7iitL8gWhlstxpC4ar56KgTkxxTNqbHoLmW8CMVZHC1scwPN_P96bpLma1oizSoKpiBNlCcSN2brhPxuZrGH9g7McD_VPR88w8auW3StMaoXTHuKeT0U1KglEgV/s320/Rekam-4.png" alt="" id="BLOGGER_PHOTO_ID_5429967292535677714" border="0" /></a>Untuk melihat dan mengedit listing program macro nya, klik saja tombol <span style="font-weight: bold;">Edit</span></li><li>Akan muncul jendela tempat kode Macro yang sudah direkam tadi<span style="font-weight: bold;"><br /></span></li><li>Disini anda dapat mengedit kode macro tadi sesuai kebutuhan<span style="font-weight: bold;"><br /></span></li></ul><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHkXIcNubsoO5cGsmGarcQky_xt0xcrPuYygjgx9jCtoHNuGgswQVcivc869hkgJamQDDyLeA7ZE-yAADImi11N9WDj44IYx-mk9-QtmVs3SVvbNYlGSPtBnI9yaoiNFWzJ92LeLrYeAUj/s1600-h/Rekam-5.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 246px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHkXIcNubsoO5cGsmGarcQky_xt0xcrPuYygjgx9jCtoHNuGgswQVcivc869hkgJamQDDyLeA7ZE-yAADImi11N9WDj44IYx-mk9-QtmVs3SVvbNYlGSPtBnI9yaoiNFWzJ92LeLrYeAUj/s320/Rekam-5.png" alt="" id="BLOGGER_PHOTO_ID_5429971163784853602" border="0" /></a>Rekam perdana Macro anda sudah selesai...<br />Mudah bukan<img src="http://photos1.blogger.com/blogger/7678/802/1600/wink.gif" /><br /><div style="text-align: justify;"><br /></div></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-55856661659486418142010-01-21T08:06:00.000-08:002010-01-21T09:22:04.381-08:00Macro Pertamaku<div style="text-align: justify;font-family:verdana;"><span style=";font-family:verdana;font-size:100%;" >Postingan ini akan memandu anda untuk membuat sebuah Macro sederhana. Macro Pertamaku ini adalah sebuah sambutan kepada anda yang ingin mempelajari bahasa pemrograman Macro Excel.Bahasa pemrograman Macro adalah sebuah bahasa pemrograman yang mudah dipelajari.Dengan Macro anda dapat mempermudah pekerjaan-pekerjaan baik di kantor, usaha dll.<br />Berikut panduannya:</span><ul><li><span style="font-size:100%;"><div style="text-align: justify;font-family:verdana;" class="fullpost"><span style="font-size:100%;"></span><span style=";font-family:verdana;font-size:100%;" >Buka Visual Basic Editor dengan cara klik Tools-->Macro-->Visual Basic editor (Lihat gambar)</span><span style="font-size:100%;"></span></div></span></li></ul><span style="font-size:100%;"><span style="font-size:100%;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJz-bQC5yFYK3qC4uNXUjHMw26gsUJjtaAXjR1t9Lof39VFXMh3BLdrOE-3dNiTjJCF1vVcma_dY2SPQeEAEeHmP0WHoUoQuUemsiZ9cvBftXByuFELAtG2_SZBRd_eeNhefEkdhk87JYg/s1600-h/New+Picture.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 202px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJz-bQC5yFYK3qC4uNXUjHMw26gsUJjtaAXjR1t9Lof39VFXMh3BLdrOE-3dNiTjJCF1vVcma_dY2SPQeEAEeHmP0WHoUoQuUemsiZ9cvBftXByuFELAtG2_SZBRd_eeNhefEkdhk87JYg/s320/New+Picture.png" alt="" id="BLOGGER_PHOTO_ID_5429229431789136418" border="0" /></a></span><ul><li><span style="font-size:100%;">Tambahkan sebuah modul dengan mengklik </span><span style="font-weight: bold;font-size:100%;" >Insert</span><span style="font-size:100%;">--></span><span style="font-weight: bold;font-size:100%;" >Module</span><span style="font-size:100%;"> (Lihat Gambar) </span></li></ul><ul><li><span style="font-size:100%;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYpT8YINE4yFsYe3sEdNJHBjEYMu4iSCp48hJ6KU-95FdAFggfHJ4TvfWeMobjjQ0d3V-fyWr26J-sSg5Qb9hR1CBE5adW-DWnOHZkVmDBPPRd33O6Wg_JbStXkdUBCbhpW1dbIUKgro4r/s1600-h/New+Picture+%281%29.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 271px; height: 261px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYpT8YINE4yFsYe3sEdNJHBjEYMu4iSCp48hJ6KU-95FdAFggfHJ4TvfWeMobjjQ0d3V-fyWr26J-sSg5Qb9hR1CBE5adW-DWnOHZkVmDBPPRd33O6Wg_JbStXkdUBCbhpW1dbIUKgro4r/s320/New+Picture+%281%29.png" alt="" id="BLOGGER_PHOTO_ID_5429233690838177122" border="0" /></a>Pada jendela module, ketik kode berikut ini:</span></li></ul><div style="color: rgb(51, 102, 255);"><span style="font-size:100%;">Sub MacroPertama ()<br />MsgBox "Mari Belajar Macro"<br />End Sub<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMIp2xS88vuDUngoi4nruJZ9UvQ16tlcDZ-M5CIG5KQ5URRr6Vp_vwGKBjcfc32I1SgxaSC-Ig1ynwv9docSbGmCXmUOGRb6XAdjqWGBpfvEi3R0wPV3FreA0z6F6qJ3SWYuAk_ajktmi_/s1600-h/New+Picture+%282%29.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 195px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMIp2xS88vuDUngoi4nruJZ9UvQ16tlcDZ-M5CIG5KQ5URRr6Vp_vwGKBjcfc32I1SgxaSC-Ig1ynwv9docSbGmCXmUOGRb6XAdjqWGBpfvEi3R0wPV3FreA0z6F6qJ3SWYuAk_ajktmi_/s320/New+Picture+%282%29.png" alt="" id="BLOGGER_PHOTO_ID_5429237202013108290" border="0" /></a></span></div><ul style="font-family:verdana;"><li><span style="font-size:100%;">Selanjutnya klik</span><span style="font-weight: bold;font-size:100%;" > Run</span><span style="font-size:100%;">--></span><span style="font-weight: bold;font-size:100%;" >RunSub/UserForm</span><span style="font-size:100%;"> atau tekan F5,atau klik button segitiga</span></li></ul><span style="font-size:100%;"><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7ImF6Z7bPqYKmkCUoAfr5mlA_29YYs25ytWCbB2h8sZoSUNMEasus8WY3IBSFtaqQZHIdyQXkklSCk4aFDo-bzCULGkoJaWC-7IcGW0ZN9Ns7OWRAiGuqncHU1-rJpWDRLobfIa8qeNlC/s1600-h/New+Picture+%283%29.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 320px; height: 242px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7ImF6Z7bPqYKmkCUoAfr5mlA_29YYs25ytWCbB2h8sZoSUNMEasus8WY3IBSFtaqQZHIdyQXkklSCk4aFDo-bzCULGkoJaWC-7IcGW0ZN9Ns7OWRAiGuqncHU1-rJpWDRLobfIa8qeNlC/s320/New+Picture+%283%29.png" alt="" id="BLOGGER_PHOTO_ID_5429239122416850338" border="0" /></a><br /><span style="font-family:verdana;">Maka akan muncul sebuah kotak pesan seperti berikut:</span><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjE3W55VLO2VpJ8GtaE3Il5KOlnT9-yhnUGIcTF4ll3LEnLQ51udnuT6pUcYQ_sWi6vLgrZZo2g8EC_T3M6qQDov2fVKgd3-xp6pOMhKO_7L4rTKCNNEAbGK_O6g_CH9HMlEPPeHh3e8MNs/s1600-h/New+Picture+%284%29.png"><img style="margin: 0px auto 10px; display: block; text-align: center; cursor: pointer; width: 128px; height: 101px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjE3W55VLO2VpJ8GtaE3Il5KOlnT9-yhnUGIcTF4ll3LEnLQ51udnuT6pUcYQ_sWi6vLgrZZo2g8EC_T3M6qQDov2fVKgd3-xp6pOMhKO_7L4rTKCNNEAbGK_O6g_CH9HMlEPPeHh3e8MNs/s320/New+Picture+%284%29.png" alt="" id="BLOGGER_PHOTO_ID_5429240439030148514" border="0" /></a><span style="font-family:verdana;">Inilah Macro pertama anda....!!!</span><br /><span style="font-family:verdana;">Selanjutnya baca artikel-artikel berikutnya untuk memperdalam pengetahuan anda tantang Macro Excel (khusus untuk Excel 2003)</span><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div><div style="text-align: justify;"><br /><br /><br /><br /><br /><br /><br /><br /><br /></div>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-679516557139304942010-01-17T09:37:00.001-08:002010-01-17T09:38:28.485-08:00Menghilangkan Iklan<p align="justify"><span style="font-family:verdana;">Jika anda sedang membuka profile sendiri maupun profile orang lain, maka di sidebar kanan halaman Facebook anda akan muncul iklan-iklan. Iklan-iklan ini bisa memperlambat loading saat anda buka Facebook juga lho. Jadi jika memang tidak tertarik dengan iklan-iklan tersebut dan sekaligus juga ingin mempercepat loading Facebook, maka tepatlah anda menggunakan tips ini untuk melenyapkan iklan-iklan tersebut.<br /></p><ul><li><div class="fullpost" align="justify">Pertama-tama install dulu <a href="https://addons.mozilla.org/id/firefox/addon/748"><strong><span style="color:#3366ff;">Add-On GreaseMonkey</span></strong> </a>(add to Firefox)</div></li><li><div class="fullpost" align="justify">Kemudian klik ini: <a href="http://userscripts.org/scripts/show/13787"><strong><span style="color:#3366ff;">Install Remove All Facebook Ads</span></strong></a></div></li><li><div class="fullpost" align="justify">Muncul seperti gambar di bawah ini:</div></li></ul><img id="BLOGGER_PHOTO_ID_5399130219636181858" style="DISPLAY: block; MARGIN: 0px auto 10px; WIDTH: 320px; CURSOR: hand; HEIGHT: 268px; TEXT-ALIGN: center" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjmNxwHHl3weiHRG-UdMUlJQ7fyMkmqE4kInjZM15xF8RE8mKTsoFJW3OZnZgouoOM7DLO4L44gDb9Iz3DQKXUbMe5k3xZlRZ_WA-ubDVduevIYp19eBCkeVe_7cnNmsSrjfvC47-mAYDP/s320/New+Picture.jpg" border="0" /> <ul><li>Klik INSTALL</li><li><div align="left">Klik lagi INSTALL pada pop up Add-On GreaseMonkey</div></li></ul><p align="left">Sekarang coba lihat Facebook Profile anda, masih adakah iklan-iklan itu??<br /></p><p class="fullpost" align="justify"><br /></p></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0tag:blogger.com,1999:blog-6852007781417058585.post-72878640525305467242010-01-17T09:32:00.000-08:002010-01-17T09:36:29.021-08:00Sembunyikan Update Status FB Anda<div align="justify"><span style="font-family:verdana;">Tips kali ini adalah bagaimana caranya untuk menyembunyikan status FB kita dari orang-orang yang kita tak kehendaki mengetahui status terbaru kita. Misalnya dari atasan, pacar,teman atau siapa saja. Kan gak lucu, jika kita ijin ke bos hari ini tidak masuk karena alasan sakit (bo'ongan gitu) tapi malah update status misalnya: OTW ke Mangga 2.Maka Besoknya anda akan kena SP dari sang bos.Jadi untuk tetap bebas ber Facebook ria tanpa harus diketahui sang bos atau siapa saja,segera terapkan "elmu" berikut ini: </div><ol><li>Masuk ke Pengaturan </li><li>Klik Pengaturan Privasi</li><img id="BLOGGER_PHOTO_ID_5396987804164130674" style="DISPLAY: block; MARGIN: 0px auto 10px; WIDTH: 202px; CURSOR: hand; HEIGHT: 130px; TEXT-ALIGN: center" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEzvKYK6fIvn8oumoNnlj88A1xxOHvh2mvikYIqypFs5hp7zt8vs_NA0ziyzkf0wBcxQFDG3k5wNgSvzpc4S8ZUkezztpzjE-ff3wfJVZ3KEsHFagTaTPCZCcsHlbiwXGUvtMFI6h2zc1J/s320/New+Picture+(11).bmp" border="0" /><br /><li>Klik "Profil"</li><li><div align="justify">Pada "Status dan Tautan klik tombol drop down, lalu pilih "Sesuaikan" </div></li></ol><p align="justify"><img id="BLOGGER_PHOTO_ID_5396985600806288898" style="DISPLAY: block; MARGIN: 0px auto 10px; WIDTH: 320px; CURSOR: hand; HEIGHT: 278px; TEXT-ALIGN: center" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi85acydBg6CXUvvAWS6qi79st-A2iWaxUu2so9_HOoipqPvN0SnMe6DrB0cJWfE0KMQNfgTFL3mgrIEf6Pg7QvNJnn4l4-uSNOCKBH9vTKMFfnsxsfHtOzFoEqj8MqeKGtSBK4U1PQjXx7/s320/New+Picture+(5).png" border="1" />Setelah itu akan muncul gambar berikut:<br /><br /><img id="BLOGGER_PHOTO_ID_5396984590927277042" style="DISPLAY: block; MARGIN: 0px auto 10px; WIDTH: 240px; CURSOR: hand; HEIGHT: 320px; TEXT-ALIGN: center" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjznh5rjIlRHqkAcBD5IIN-2gFOhqTL13NrTZ-thMV3SRYMOdsyWqs_wfKv4sfz_la4Zxp_WdIyWTf8bmyQn4QUHxvHW-eprSgd6Aau01qQNH9_sae2MCG4doJ1_EOs_GB_SZ3DUn2JdTZq/s320/New+Picture+(3).png" border="0" />Perhatikan tulisan <span style="color:#ff0000;"><strong>Kecuali Orang-Orang Berikut</strong></span>, pada kotak, ketikkan nama orang yang akan anda butakan matanya..he...he...he...</p><p align="justify">Klik "Oke" dan selanjutnya "Simpan"</p><div align="justify">Maka anda akan bebas mengumbar syawat...eh status tanpa bisa dilihat orang yang sudah anda butakan tadi<br /><br /></div></span>Dedy E Hutaurukhttp://www.blogger.com/profile/08474862892122214886noreply@blogger.com0