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 -----Original Message----- From: aji mumpung <[email protected]> Sender: [email protected] Date: Mon, 17 Sep 2012 22:38:23 To: <[email protected]> Reply-To: [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" >> >> [image: Gambar sisip 1] >> >> Setelah memasukkan data di sheet "Input" lalu anda diminta untuk >> memindahkannya ke sheet "Hasil" seperti ini: >> >> [image: Gambar sisip 2] >> >> 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 >> >> [image: Gambar sisip 1] >> >> setelah itu anda dapat melengkapi form seperti di bawah ini >> >> [image: Gambar sisip 2] >> >> 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 >> >> [image: Gambar sisip 3] >> >> Setelah itu pindah ke sheet Hasil untuk mempaste nama, setelah berada di >> sheet Hasil, klik Nama atau cell b4 seperti gambar berikut: >> >> [image: Gambar sisip 4] >> >> 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 >> >> [image: Gambar sisip 5] >> >> 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: >> >> [image: Gambar sisip 6] >> >> 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: >> >> [image: Gambar sisip 7] >> >> 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 >> >> [image: Gambar sisip 8] >> >> >> 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
