klo dioffice 2010 konfigur vba and makronya dimana ya....???
________________________________ Dari: "[email protected]" <[email protected]> Kepada: [email protected] Dikirim: Selasa, 18 September 2012 9:21 Judul: Re: [belajar-excel] Rekam Macro Ini Bagus sekali buat pemula seperti sy, tp koq sy masih bingung yaaa dlm mempraktekannya, apakah ada pemula yg sudah berhasil mempraktekannya? Salam, Kmr Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT ________________________________ From: aji mumpung <[email protected]> Sender: [email protected] Date: Mon, 17 Sep 2012 22:38:23 +0700 To: <[email protected]> ReplyTo: [email protected] Subject: [belajar-excel] Rekam Macro Seorang member millis ini menanyakan bagaimana caranya mekukan copy, paste, dan transpose menggunakan VBA. Kelihatannya ini adalah hal yang mudah tetapi tetap saja sulit bagi yang masih awam dengan VBA. >> >> >>Pada kesempatan ini saya akan coba menjelaskan langkah-langkah membuat macro >>dengan cara melakukan perekaman macro, kenapa harus dengan merekam? karena >>menurut saya cara ini adalah cara yang paling mudah manakala kita berniat >>serius untuk mempelajari macro tetapi tidak ada dukungan yang cukup, dukungan >>ini bisa berupa buku, situs dan sejenisnya, atau bahkan ketiadaan seorang >>guru yang mengajari kita. >> >> >>Cukup sudah basa-basinya.. kita mulai saja langkah yang panjang ini.. Karena >>tulisan ini saya tujukan untuk para pemula, jadi ada kemungkinan para master >>dan sesepuh akan merasa bosan membaca tulisan ini.. >> >> >>Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan >>atas pertanyaan-pertanyaan dari member millis ini, dan anda bertugas untuk >>memasukkan nilai tersebut ke dalam sheet "Input" >> >> >> >> >> >> >>Setelah memasukkan data di sheet "Input" lalu anda diminta untuk >>memindahkannya ke sheet "Hasil" seperti ini: >> >> >> >> >>Tidak ada maksud buruk dari saya dengan memasukkan nick name Alm pak Mabrur >>Masyhud dalam contoh ini, dan hal ini masih bisa diperdebatkan.. tetapi bukan >>itu inti dari pembelajaran ini.. >> >> >>Setelah ratusan bahkan ribuan kali memasukkan data di Sheet Input kemudian >>memindahkannya ke sheet Hasil, tentu anda akan berfikir.. "seandainya saja >>ada tombol ajaib yang akan melakukan semua hal tersebut' >> >> >>Baiklah.. kenapa tidak kita buat saja tombol ajaib tersebut dengan cara >>melakukan perekaman macro.. >> >> >>Pada Excel 2003 untuk merekam macro bisa melalui Tools >> Option >> Record >>new macro, sedangkan pada versi 2007 ke atas anda dapat merekam dengan >>meng-klik tombol Record Macro setelah terlebih dahulu mengaktifkan ribbon >>Developer >> >> >> >> >> >> >>setelah itu anda dapat melengkapi form seperti di bawah ini >> >> >> >> >> >> >>Nomer 1 adalah nama macro yang anda buat >>Nomer 2 adalah sortcut key atau tombol yang akan menjalankan program macro >>Nomor 3 adalah lokasi macro disimpan >>Anda juga dapat menuliskan keterangan tentang macro yang anda buat di kotak >>Description >> >> >>Supaya seragam kita isi saja sebagai berikut >>1. nama macro = CopasSpesial (nama macro tidak boleh mengandung spasi) >>2. sortcut key = CTRL Shift A >>3. lokasi simpan = This Workbook >>setelah itu tekan tombol OK >> >> >>pertama kita copy nama, untuk itu klik cell c4 di sheet Input, setelah itu >>klik kanan dan pilih copy >> >> >> >> >> >> >>Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di >>sheet Hasil, klik Nama atau cell b4 seperti gambar berikut: >> >> >> >> >> >> >>dari sini ada beberapa langkah yang kita lakukan, yaitu: >>1. Pergi ke cell paling bawah yang berisi data >>2. Setelah itu turun 1 baris ke cell yang kosong >> >> >>Alih-alih ingin melakukan hal yang benar, jika anda langsung pergi ke cell b8 >>tanpa mengubah dari alamat absolut menjadi alamat relatif, maka hasil >>perekaman macro tersebut akan selalu menuju ke cell b8. Untuk itulah kita >>mesti mengubah dahulu alamat absolut menjadi alamat relatif. >> >> >>Pada versi 2007 ke atas anda dapat melakukannya dengan meng-klik tombol Use >>Relative References >> >> >> >> >> >> >>Sekarang anda dapat mem-paste nama yang sudah anda copy tadi dengan cara.. >>1. Dari header Nama, pergi ke cell paling bawah yang berisi data dengan cara >>menekan tombol CTRL + panah bawah >>2. Setelah itu takan tombol panah bawah 1 kali >>3. Paste di cell tersebut dengan menekan tombol CTRL + V >> >> >>Untuk pergi ke cell yang beisi data: >>ke arah bawah ==> CTRL + panah bawah >>ke arah kanan ==> CTRL + panah kanan >> >> >>Jika anda mengulang dengan sabar dan benar langkah-langkah di atas, maka >>seharusnya hasilnya akan seperti gambar berikut: >> >> >> >> >> >> >>Hasil copas dengan data yang benar tetapi dengan format yang salah. >> >> >>Setelah itu anda dapat memperbaiki format dengan cara melakukan copas format >>dari data pertama sehingga hasil akhirnya seperti gambar di bawah ini: >> >> >> >> >> >> >>Setelah selesai maka anda dapat segera menekan tombol Stop Recording untuk >>menghentikan proses perekaman macro. >> >> >>Anda dapat menemukan macro hasil perekaman tadi di dalam Modul1 >> >> >> >> >> >> >> >> >>Seharusnya hasil rekam macro saya dengan anda tidak terlalu jauh berbeda, >>berikut adalah hasil rekam macro saya >> >> >>Option Explicit >> >> >>Sub CopasSpesial() >>' >>' CopasSpesial Macro >>' >>' Keyboard Shortcut: Ctrl+Shift+A >>' >> Range("C4").Select ' memilih cell c4 >> Selection.Copy ' mengcopy cell c4 >> Sheets("Hasil").Select ' pergi ke sheetsHasil >> Range("B4").Select ' memilih header Nama >> Selection.End(xlDown).Select ' pergi ke baris >>paling bawah yang berisi data >> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris ke >>cell yang kosong >> ActiveSheet.Paste ' mem-paste nama dari >>sheet Input >> Sheets("Input").Select ' kembali ke sheet >>Input >> Range("C6").Select ' memilih cell c6 >>yang berisi nilai untuk formula >> Application.CutCopyMode = False ' menghapus clipboard >>yang berisi copy data dari cell c4 >> Selection.Copy ' meng-copy cell c6 >> Sheets("Hasil").Select ' pergi ke sheet Hasil >> Range("B4").Select ' memilih header nama >> Selection.End(xlDown).Select ' pergi ke baris >>paling bawah yang berisi data >> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom ke >>sebelah kanan >> ActiveSheet.Paste ' mempaste nilai >>formula dari cell input >> Sheets("Input").Select ' pergi ke sheet input >> Range("C8").Select ' memilih cell c8 >> Application.CutCopyMode = False ' menghapus clipboard >> Selection.Copy ' mengcopy cell c8 >> Sheets("Hasil").Select ' pergi ke sheet Hasil >> Range("B4").Select ' pergi ke header nama >> Selection.End(xlDown).Select ' pergi ke baris >>paling bawah yang berisi data >> Selection.End(xlToRight).Select ' pergi ke cell >>paling kanan yang berisi data >> ActiveCell.Offset(0, 1).Range("A1").Select ' pergi 1 kolom ke >>sebelah kanan >> ActiveSheet.Paste ' mem-paste nilai >>macro >> Application.CutCopyMode = False ' menghapus clipboard >> Range("B4").Select ' memilih header nama >> ActiveCell.Offset(1, 0).Range("A1").Select ' turun 1 baris >> Range(Selection, Selection.End(xlToRight)).Select ' memblok cell b5 >>sampai d5 >> Selection.Copy ' mengcopy cell b5 >>sampai d5 >> Selection.End(xlDown).Select ' pergi ke baris >>paling bawah yang berisi data >> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ >> SkipBlanks:=False, Transpose:=False ' mempaste format >> Application.CutCopyMode = False ' menghapus clibboard >>End Sub >> >> >>Mari kita ulang, apa saja yang sudah kita pelajari? >> >> >>1. Cara meng-kopi dan mempaste suatu cell >>2. Bergerak di dalam workseet, yaitu: >> a. ke data yang paling akhir di bawah .end(xlDown) >> b. ke data paling akhir di sebelah kanan .end(xlRight) >> untuk bergerak ke data akhir di sebelah atas dan kiri silakan gunakan >>cara yang serupa >> c. turun 1 baris ke bawah .OffSet(1, 0) >> d. pindah 1 baris ke sebelah kanan .OffSet (0, 1) >> untuk bergerak ke atas dan ke bawah silakan gunakan cara yang serupa >> .Offset(baris, kolom) >> baris jika bernilai positif berarti turun ke bawah, jika negatif berarti >>bergerak ke atas >> kolom jika bernilai positif berarti ke arah kanan, jika negatif berarti >>ke arah kiri. >> >> >>Walaupun teknik rekam saya rasakan sangat membantu saya dalam mempelajari >>macro, tetapi teknik ini juga memiliki kelemahan yaitu tidak dapat melakukan >>perulangan.. >> >> >>Saya rasa cukup sampai di sini cerita saya yang panjang lebar.. tentu jika >>saya teruskan akan membuat bosan orang yang membacanya.. Contoh file bisa >>dilihat di lampiran. >> >> >>Semoga bermanfaat. >> >> >>wassalam, >> >> >>-aji mumpung- # jika dirasa bermanfaat, dipersilakan untuk menyebarkan tanpa persetujuan dahulu dari saya maaf mr kid, saya tidak lampirkan readme-nya, karena setelah saya kompres dengan winrar ukurannya masih 267KB
