15 New Messages
Digest #1787
1.2
Create / Delete password Ms. office EXCEL 2003, di EXCEL 2010 by "darwin.bastian@ciptakridatama.co.id"
1.4
Re: Create / Delete password Ms. office EXCEL 2003, di EXCEL 2010 by "darwin.bastian@ciptakridatama.co.id"
Messages
Mon Sep 17, 2012 9:38 am (PDT) . Posted by:
"belajar-excel@yahoogroups.com"
Hello,
This email message is a notification to let you know that
a file has been uploaded to the Files area of the belajar-excel
group.
File : /RekamMacro.
Uploaded by : nmkid.family@
Description : Belajar VBA melalui rekam Macro by Pupung (pupung1986@gmail.
You can access this file at the URL:
http://groups.
To learn more about file sharing for your group, please visit:
http://help.
Regards,
nmkid.family@
Mon Sep 17, 2012 8:59 pm (PDT) . Posted by:
"darwin.bastian@ciptakridatama.co.id"
Dear Para Master excel,
Saya punya File excel 2003 yang kebetulan di password open file workbook
nya,
ketika buka file harus masukkan password dulu... (terlalu ribet ngetik
password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password nya atau gak usah dipassword
lagi, Namun saat ini operasionalnya pake Ms. Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru belajar menggunakan excel 2010..
ehh malah kebingungan sendiri... untuk bongkar / ilangin passwordnya...
Sudilah kiranya para master membimbing serta berbagi tutorial / guide
terkait membuat dan menghilangkan password pada file Ms. Office excel
2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Saya punya File excel 2003 yang kebetulan di password open file workbook
nya,
ketika buka file harus masukkan password dulu... (terlalu ribet ngetik
password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password nya atau gak usah dipassword
lagi, Namun saat ini operasionalnya pake Ms. Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru belajar menggunakan excel 2010..
ehh malah kebingungan sendiri... untuk bongkar / ilangin passwordnya.
Sudilah kiranya para master membimbing serta berbagi tutorial / guide
terkait membuat dan menghilangkan password pada file Ms. Office excel
2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Mon Sep 17, 2012 9:19 pm (PDT) . Posted by:
"Hilman" hilman_email
Dear Darwin,
Kalo saya, untuk menghilangkan password pada workbook excel 2010, dengan cara:
# Buka file nya, tentunya akan diminta password untuk membukanya,setelah file tsb terbuka,
# Save As file tsb (Klik File, klik Save As), setelah dialog box Save As muncul,
# Klik tombol "Tools" (posisinya pojok kiri bawah), dan pilih "General Option", dan kotak General Option akan terbuka.
# Hapus Password to Open maupun Pasword to Modify, klik OK.
# Klik Save dan Overwrite.
Sekarang filenya sudah tidak ada password lagi untuk membukanya.
Semoga membantu,
Regards
Hilman
________________________________
From: "darwin.bastian@ciptakridatama.co.id " <darwin.bastian@ciptakridatama.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 18, 2012 8:55 AM
Subject: [belajar-excel] Create / Delete password Ms. office EXCEL 2003, di EXCEL 2010
Dear Para Master excel,
Saya punya File excel 2003 yang
kebetulan di password open file workbook nya,
ketika buka file harus masukkan password
dulu... (terlalu ribet ngetik password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password
nya atau gak usah dipassword lagi, Namun saat ini operasionalnya pake Ms.
Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru
belajar menggunakan excel 2010.. ehh malah kebingungan sendiri... untuk
bongkar / ilangin passwordnya...
Sudilah kiranya para master membimbing
serta berbagi tutorial / guide terkait membuat dan menghilangkan
password pada file Ms. Office excel 2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Kalo saya, untuk menghilangkan password pada workbook excel 2010, dengan cara:
# Buka file nya, tentunya akan diminta password untuk membukanya,setelah file tsb terbuka,
# Save As file tsb (Klik File, klik Save As), setelah dialog box Save As muncul,
# Klik tombol "Tools" (posisinya pojok kiri bawah), dan pilih "General Option", dan kotak General Option akan terbuka.
# Hapus Password to Open maupun Pasword to Modify, klik OK.
# Klik Save dan Overwrite.
Sekarang filenya sudah tidak ada password lagi untuk membukanya.
Semoga membantu,
Regards
Hilman
____________
From: "darwin.bastian@
To: belajar-excel@
Sent: Tuesday, September 18, 2012 8:55 AM
Subject: [belajar-excel] Create / Delete password Ms. office EXCEL 2003, di EXCEL 2010
Dear Para Master excel,
Saya punya File excel 2003 yang
kebetulan di password open file workbook nya,
ketika buka file harus masukkan password
dulu... (terlalu ribet ngetik password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password
nya atau gak usah dipassword lagi, Namun saat ini operasionalnya pake Ms.
Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru
belajar menggunakan excel 2010.. ehh malah kebingungan sendiri... untuk
bongkar / ilangin passwordnya.
Sudilah kiranya para master membimbing
serta berbagi tutorial / guide terkait membuat dan menghilangkan
password pada file Ms. Office excel 2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Mon Sep 17, 2012 10:09 pm (PDT) . Posted by:
"darwin.bastian@ciptakridatama.co.id"
Kang Hilman..
Muantep.. sungguh sangat membantu...
Mhatur Thank `u....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Hilman <hilman_email@yahoo.com >
Sent by: belajar-excel@yahoogroups.com
18/09/2012 11:19
Please respond to belajar-excel
To: "belajar-excel@yahoogroups.com "
<belajar-excel@yahoogroups.com >
cc:
Subject: Re: [belajar-excel] Create / Delete password Ms.
office EXCEL 2003, di EXCEL 2010
Dear Darwin,
Kalo saya, untuk menghilangkan password pada workbook excel 2010, dengan
cara:
# Buka file nya, tentunya akan diminta password untuk membukanya,setelah
file tsb terbuka,
# Save As file tsb (Klik File, klik Save As), setelah dialog box Save As
muncul,
# Klik tombol "Tools" (posisinya pojok kiri bawah), dan pilih "General
Option", dan kotak General Option akan terbuka.
# Hapus Password to Open maupun Pasword to Modify, klik OK.
# Klik Save dan Overwrite.
Sekarang filenya sudah tidak ada password lagi untuk membukanya.
Semoga membantu,
Regards
Hilman
From: "darwin.bastian@ciptakridatama.co.id "
<darwin.bastian@ciptakridatama.co.id >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, September 18, 2012 8:55 AM
Subject: [belajar-excel] Create / Delete password Ms. office EXCEL 2003,
di EXCEL 2010
Dear Para Master excel,
Saya punya File excel 2003 yang kebetulan di password open file workbook
nya,
ketika buka file harus masukkan password dulu... (terlalu ribet ngetik
password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password nya atau gak usah dipassword
lagi, Namun saat ini operasionalnya pake Ms. Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru belajar menggunakan excel 2010..
ehh malah kebingungan sendiri... untuk bongkar / ilangin passwordnya...
Sudilah kiranya para master membimbing serta berbagi tutorial / guide
terkait membuat dan menghilangkan password pada file Ms. Office excel
2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Muantep.. sungguh sangat membantu...
Mhatur Thank `u....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Hilman <hilman_email@
Sent by: belajar-excel@
18/09/2012 11:19
Please respond to belajar-excel
To: "belajar-excel@
<belajar-excel@
cc:
Subject: Re: [belajar-excel] Create / Delete password Ms.
office EXCEL 2003, di EXCEL 2010
Dear Darwin,
Kalo saya, untuk menghilangkan password pada workbook excel 2010, dengan
cara:
# Buka file nya, tentunya akan diminta password untuk membukanya,setelah
file tsb terbuka,
# Save As file tsb (Klik File, klik Save As), setelah dialog box Save As
muncul,
# Klik tombol "Tools" (posisinya pojok kiri bawah), dan pilih "General
Option", dan kotak General Option akan terbuka.
# Hapus Password to Open maupun Pasword to Modify, klik OK.
# Klik Save dan Overwrite.
Sekarang filenya sudah tidak ada password lagi untuk membukanya.
Semoga membantu,
Regards
Hilman
From: "darwin.bastian@
<darwin.bastian@
To: belajar-excel@
Sent: Tuesday, September 18, 2012 8:55 AM
Subject: [belajar-excel] Create / Delete password Ms. office EXCEL 2003,
di EXCEL 2010
Dear Para Master excel,
Saya punya File excel 2003 yang kebetulan di password open file workbook
nya,
ketika buka file harus masukkan password dulu... (terlalu ribet ngetik
password - kalau butuh filenya cepet)
Nach saat ini saya mau hilangin password nya atau gak usah dipassword
lagi, Namun saat ini operasionalnya pake Ms. Office Excel 2010..
Dikarenakan keterbatasan saya, dan baru belajar menggunakan excel 2010..
ehh malah kebingungan sendiri... untuk bongkar / ilangin passwordnya.
Sudilah kiranya para master membimbing serta berbagi tutorial / guide
terkait membuat dan menghilangkan password pada file Ms. Office excel
2010.
Mhatur Thank `u, sebelumnya yaa.....
Wassalamualaikum Wr. Wb.
D@rwin B@stian
Mon Sep 17, 2012 9:49 am (PDT) . Posted by:
"Longinus Along" longinus.along
Dear Master,
Terimakasih Master, atas update tan nya...
salam,
Along
--- Mods ---
Buat thread baru (posting dengan subject email baru) diperuntukkan membuka sebuah diskusi atas sebuah kasus atau sebuah wacana.
Mohon reply thread yang sudah ada jika isinya melanjutkan diskusi atau pernyataan terimakasih kepada seluruh penanggap.
Ungkapan terimakasih kepada beberapa penanggap khusus, sebaiknya melalui japri.
------------
Terimakasih Master, atas update tan nya...
salam,
Along
--- Mods ---
Buat thread baru (posting dengan subject email baru) diperuntukkan membuka sebuah diskusi atas sebuah kasus atau sebuah wacana.
Mohon reply thread yang sudah ada jika isinya melanjutkan diskusi atau pernyataan terimakasih kepada seluruh penanggap.
Ungkapan terimakasih kepada beberapa penanggap khusus, sebaiknya melalui japri.
------------
Mon Sep 17, 2012 4:42 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Baru turun dari Gunung Merbabu Pak Aji ?
Ini pembelajaran yang bagus sekali buat rekan2 yang ingin belajar Macro.
Sekedar saran Pak, mungkin bisa dilanjutkan dengan bagaimana ber-main2 dengan Variabel dan Object.
Salam,
Hendrik Karnadi
________________________________
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 17 September 2012, 22:38
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
Ini pembelajaran yang bagus sekali buat rekan2 yang ingin belajar Macro.
Sekedar saran Pak, mungkin bisa dilanjutkan dengan bagaimana ber-main2 dengan Variabel dan Object.
Salam,
Hendrik Karnadi
____________
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Monday, 17 September 2012, 22:38
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.
>>
>>
>>Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan atas pertanyaan-pertanya
>>
>>
>>
>>
>>
>>
>>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.
>>
>>
>>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").
>> Selection.Copy ' mengcopy cell c4
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C6").
>> Application.
>> Selection.Copy ' meng-copy cell c6
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C8").
>> Application.
>> Selection.Copy ' mengcopy cell c8
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Application.
>> Range("B4").
>> ActiveCell.Offset(
>> Range(Selection, Selection.End(
>> Selection.Copy ' mengcopy cell b5 sampai d5
>> Selection.End(
>> Selection.PasteSpec
>> SkipBlanks:=
>> Application.
>>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
Mon Sep 17, 2012 8:24 pm (PDT) . Posted by:
"Bagus" bagus4bls
Pak Aji;
Mau dong di kirim (japri). readme-nya
Thx
bagus
----- Original Message -----
From: aji mumpung
To: belajar-excel@yahoogroups.com
Sent: Monday, September 17, 2012 10:38 PM
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
Mau dong di kirim (japri). readme-nya
Thx
bagus
----- Original Message -----
From: aji mumpung
To: belajar-excel@
Sent: Monday, September 17, 2012 10:38 PM
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.
Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan atas pertanyaan-pertanya
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.
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").
Selection.Copy ' mengcopy cell c4
Sheets("Hasil"
Range("B4").
Selection.End(
ActiveCell.Offset(
ActiveSheet.
Sheets("Input"
Range("C6").
Application.
Selection.Copy ' meng-copy cell c6
Sheets("Hasil"
Range("B4").
Selection.End(
ActiveCell.Offset(
ActiveSheet.
Sheets("Input"
Range("C8").
Application.
Selection.Copy ' mengcopy cell c8
Sheets("Hasil"
Range("B4").
Selection.End(
Selection.End(
ActiveCell.Offset(
ActiveSheet.
Application.
Range("B4").
ActiveCell.Offset(
Range(Selection, Selection.End(
Selection.Copy ' mengcopy cell b5 sampai d5
Selection.End(
Selection.PasteSpec
SkipBlanks:=
Application.
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
Mon Sep 17, 2012 8:30 pm (PDT) . Posted by:
"aji mumpung"
pak bagus,
filenya sudah di-upload oleh mr Kid ke folder files di millis..
sekarang sudah bisa di-download langsung melalui link berikut
http://groups.yahoo.com/group/belajar-excel/files/RekamMacro.xlsm
wassalam,
-aji mumpung-
Pada 18 September 2012 10:29, Bagus <bagus@kingjim.co.id > menulis:
> **
>
>
> **
> Pak Aji;
>
> Mau dong di kirim (japri). readme-nya
>
>
> Thx
> bagus
>
>
>
filenya sudah di-upload oleh mr Kid ke folder files di millis..
sekarang sudah bisa di-download langsung melalui link berikut
http://groups.
wassalam,
-aji mumpung-
Pada 18 September 2012 10:29, Bagus <bagus@kingjim.
> **
>
>
> **
> Pak Aji;
>
> Mau dong di kirim (japri). readme-nya
>
>
> Thx
> bagus
>
>
>
Mon Sep 17, 2012 8:59 pm (PDT) . Posted by:
"kamirin_2@yahoo.co.id" kamirin_2
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 <pupung1986@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 17 Sep 2012 22:38:23
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
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
Salam,
Kmr
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: aji mumpung <pupung1986@gmail.
Sender: belajar-excel@
Date: Mon, 17 Sep 2012 22:38:23
To: <belajar-excel@
Reply-To: belajar-excel@
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.
>> 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-pertanya
>> 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").
>> Selection.Copy ' mengcopy cell
>> c4
>> Sheets("Hasil"
>> sheetsHasil
>> Range("B4").
>> Nama
>> Selection.End(
>> paling bawah yang berisi data
>> ActiveCell.Offset(
>> ke cell yang kosong
>> ActiveSheet.
>> dari sheet Input
>> Sheets("Input"
>> sheet Input
>> Range("C6").
>> c6 yang berisi nilai untuk formula
>> Application.
>> clipboard yang berisi copy data dari cell c4
>> Selection.Copy ' meng-copy cell
>> c6
>> Sheets("Hasil"
>> Hasil
>> Range("B4").
>> nama
>> Selection.End(
>> paling bawah yang berisi data
>> ActiveCell.Offset(
>> ke sebelah kanan
>> ActiveSheet.
>> formula dari cell input
>> Sheets("Input"
>> input
>> Range("C8").
>> Application.
>> clipboard
>> Selection.Copy ' mengcopy cell
>> c8
>> Sheets("Hasil"
>> Hasil
>> Range("B4").
>> header nama
>> Selection.End(
>> paling bawah yang berisi data
>> Selection.End(
>> paling kanan yang berisi data
>> ActiveCell.Offset(
>> ke sebelah kanan
>> ActiveSheet.
>> nilai macro
>> Application.
>> clipboard
>> Range("B4").
>> nama
>> ActiveCell.Offset(
>> Range(Selection, Selection.End(
>> b5 sampai d5
>> Selection.Copy ' mengcopy cell
>> b5 sampai d5
>> Selection.End(
>> paling bawah yang berisi data
>> Selection.PasteSpec
>> SkipBlanks:=
>> Application.
>> 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
Mon Sep 17, 2012 9:13 pm (PDT) . Posted by:
"aji mumpung"
pak kamirin..
kalo boleh saya tau kesulitannya di bagian yang mana ya? informasi ini akan
menjadi masukkan dan koreksi untuk saya.. akan saya gunakan sebagai
perbaikan di kemudian hari agar cara saya menjelaskan dapat lebih baik
sehingga setiap informasi lebih mudah diterima & dipahami oleh setiap orang.
wassalam,
-aji mumpung-
cah angon seko gunung merbabu
Pada 18 September 2012 09:21, <kamirin_2@yahoo.co.id > menulis:
> **
>
>
> **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 <pupung1986@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 17 Sep 2012 22:38:23 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *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
>
>
>
kalo boleh saya tau kesulitannya di bagian yang mana ya? informasi ini akan
menjadi masukkan dan koreksi untuk saya.. akan saya gunakan sebagai
perbaikan di kemudian hari agar cara saya menjelaskan dapat lebih baik
sehingga setiap informasi lebih mudah diterima & dipahami oleh setiap orang.
wassalam,
-aji mumpung-
cah angon seko gunung merbabu
Pada 18 September 2012 09:21, <kamirin_2@yahoo.
> **
>
>
> **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 <pupung1986@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 17 Sep 2012 22:38:23 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *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.
>>> 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-pertanya
>>> 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").
>>> c4
>>> Selection.Copy ' mengcopy cell
>>> c4
>>> Sheets("Hasil"
>>> sheetsHasil
>>> Range("B4").
>>> header Nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(
>>> ke cell yang kosong
>>> ActiveSheet.
>>> nama dari sheet Input
>>> Sheets("Input"
>>> sheet Input
>>> Range("C6").
>>> c6 yang berisi nilai untuk formula
>>> Application.
>>> clipboard yang berisi copy data dari cell c4
>>> Selection.Copy ' meng-copy
>>> cell c6
>>> Sheets("Hasil"
>>> sheet Hasil
>>> Range("B4").
>>> header nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> ActiveCell.Offset(
>>> ke sebelah kanan
>>> ActiveSheet.
>>> nilai formula dari cell input
>>> Sheets("Input"
>>> sheet input
>>> Range("C8").
>>> c8
>>> Application.
>>> clipboard
>>> Selection.Copy ' mengcopy cell
>>> c8
>>> Sheets("Hasil"
>>> sheet Hasil
>>> Range("B4").
>>> header nama
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> Selection.End(
>>> paling kanan yang berisi data
>>> ActiveCell.Offset(
>>> ke sebelah kanan
>>> ActiveSheet.
>>> nilai macro
>>> Application.
>>> clipboard
>>> Range("B4").
>>> header nama
>>> ActiveCell.Offset(
>>> Range(Selection, Selection.End(
>>> b5 sampai d5
>>> Selection.Copy ' mengcopy cell
>>> b5 sampai d5
>>> Selection.End(
>>> baris paling bawah yang berisi data
>>> Selection.PasteSpec
>>> SkipBlanks:=
>>> format
>>> Application.
>>> 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
>
>
>
Mon Sep 17, 2012 9:44 pm (PDT) . Posted by:
"arif satria" satria.arif
klo dioffice 2010 konfigur vba and makronya dimana ya....???
________________________________
Dari: "kamirin_2@yahoo.co.id " <kamirin_2@yahoo.co.id >
Kepada: belajar-excel@yahoogroups.com
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 <pupung1986@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 17 Sep 2012 22:38:23 +0700
To: <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
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
____________
Dari: "kamirin_2@yahoo.
Kepada: belajar-excel@
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 <pupung1986@gmail.
Sender: belajar-excel@
Date: Mon, 17 Sep 2012 22:38:23 +0700
To: <belajar-excel@
ReplyTo: belajar-excel@
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.
>>
>>
>>Anggap saja ada penilaian tentang cara cara para master memberikan penjelasan atas pertanyaan-pertanya
>>
>>
>>
>>
>>
>>
>>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.
>>
>>
>>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").
>> Selection.Copy ' mengcopy cell c4
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C6").
>> Application.
>> Selection.Copy ' meng-copy cell c6
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Sheets("Input"
>> Range("C8").
>> Application.
>> Selection.Copy ' mengcopy cell c8
>> Sheets("Hasil"
>> Range("B4").
>> Selection.End(
>> Selection.End(
>> ActiveCell.Offset(
>> ActiveSheet.
>> Application.
>> Range("B4").
>> ActiveCell.Offset(
>> Range(Selection, Selection.End(
>> Selection.Copy ' mengcopy cell b5 sampai d5
>> Selection.End(
>> Selection.PasteSpec
>> SkipBlanks:=
>> Application.
>>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
Mon Sep 17, 2012 9:57 pm (PDT) . Posted by:
"aji mumpung"
untuk versi 2010 harus mengaktifkan ribbon Developer dahulu, caranya:
File >> Option >> Customize Ribbon >> Pada kotak "Main Tabs" beri tanda cek
list di kotak "Developer >> klik OK
akan ada penambahan 1 tab baru di ribbon excel, VBA dapat diakses melalui
ribbon Developer tersebut
wassalam,
-aji mumpung-
cah angon seko gunung merbabu
Pada 18 September 2012 11:07, arif satria <arif_satria07@yahoo.com > menulis:
> **
>
>
> klo dioffice 2010 konfigur vba and makronya dimana ya....???
>
>
File >> Option >> Customize Ribbon >> Pada kotak "Main Tabs" beri tanda cek
list di kotak "Developer >> klik OK
akan ada penambahan 1 tab baru di ribbon excel, VBA dapat diakses melalui
ribbon Developer tersebut
wassalam,
-aji mumpung-
cah angon seko gunung merbabu
Pada 18 September 2012 11:07, arif satria <arif_satria07@
> **
>
>
> klo dioffice 2010 konfigur vba and makronya dimana ya....???
>
>
Mon Sep 17, 2012 6:20 pm (PDT) . Posted by:
"Mardi" hekerkampoeng
Maaf aktualnya sudah tercopy,hasil sudah muncul setelah save pun formula
masih oke.Tapi begitu close workbooks,dan dibuka lagi formulanya berubah
Tapi semalem coba save as ke .xlsx hasilnya oke.Karena file aslinya .xls.Apa
mungkin kapasitas dari excel 2003 sudah gak mampu kah ?
Terima kasih
mardi
-------Original Message-------
From: hendrik karnadi
Date: 17/09/2012 21:19:26
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] error : {#value}
Masih rencana atau sdh dicopy ?
Perkiraan saya (karena tidak bisa melihat filenya), ketika anda mengcopy
(kalau sdh dicopy sebelum disave) formula arraynya ikut berubah.
Coba dicek
Salam,
Hendrik Karnadi
From: Mardi <sumardiana596@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 17 September 2012, 18:45
Subject: [belajar-excel] error : {#value}
Dear all,
Maafkan kalo hanya bisa nanya nih,soalnya pemula banget.Ceritanya gini saya
Ada formula aray yang rencananya saya copy dari A7:AH1828.Tapi kenapa ya
setelah di save dan close,kemudian dibuka lagi dari P429 ke bawah jadi
{=#value!}.Maaf tidak lampirin filenya soalnya filenya gede banget 5 mega an
Terima kasih
Mardi
masih oke.Tapi begitu close workbooks,dan dibuka lagi formulanya berubah
Tapi semalem coba save as ke .xlsx hasilnya oke.Karena file aslinya .xls.Apa
mungkin kapasitas dari excel 2003 sudah gak mampu kah ?
Terima kasih
mardi
-------Original Message-----
From: hendrik karnadi
Date: 17/09/2012 21:19:26
To: belajar-excel@
Subject: Re: [belajar-excel] error : {#value}
Masih rencana atau sdh dicopy ?
Perkiraan saya (karena tidak bisa melihat filenya), ketika anda mengcopy
(kalau sdh dicopy sebelum disave) formula arraynya ikut berubah.
Coba dicek
Salam,
Hendrik Karnadi
From: Mardi <sumardiana596@
To: belajar-excel@
Sent: Monday, 17 September 2012, 18:45
Subject: [belajar-excel] error : {#value}
Dear all,
Maafkan kalo hanya bisa nanya nih,soalnya pemula banget.Ceritanya gini saya
Ada formula aray yang rencananya saya copy dari A7:AH1828.Tapi kenapa ya
setelah di save dan close,kemudian dibuka lagi dari P429 ke bawah jadi
{=#value!}.Maaf tidak lampirin filenya soalnya filenya gede banget 5 mega an
Terima kasih
Mardi
Mon Sep 17, 2012 8:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Memang ada beberapa tambahan function dalam Excel 2007 yang tidak ada di Excel 2003, a.l. IFERROR, SUMIFS, COUNTIFS.
Salam,
Hendrik Karnadi
________________________________
From: Mardi <sumardiana596@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 18 September 2012, 5:22
Subject: Re: [belajar-excel] error : {#value}
Maaf aktualnya sudah tercopy,hasil sudah muncul setelah save pun formula masih oke.Tapi begitu close workbooks,dan dibuka lagi formulanya berubah.Tapi semalem coba save as ke .xlsx hasilnya oke.Karena file aslinya .xls.Apa mungkin kapasitas dari excel 2003 sudah gak mampu kah ?
Terima kasih
mardi
-------Original Message-------
From: hendrik karnadi
Date: 17/09/2012 21:19:26
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] error : {#value}
Masih rencana atau sdh dicopy ?
Perkiraan saya (karena tidak bisa melihat filenya), ketika anda mengcopy (kalau sdh dicopy sebelum disave) formula arraynya ikut berubah.
Coba dicek
Salam,
Hendrik Karnadi
________________________________
From: Mardi <sumardiana596@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 17 September 2012, 18:45
Subject: [belajar-excel] error : {#value}
Dear all,
Maafkan kalo hanya bisa nanya nih,soalnya pemula banget.Ceritanya gini saya Ada formula aray yang rencananya saya copy dari A7:AH1828.Tapi kenapa ya,setelah di save dan close,kemudian dibuka lagi dari P429 ke bawah jadi {=#value!}.Maaf tidak lampirin filenya soalnya filenya gede banget 5 mega an.
Terima kasih
Mardi
FREE Animations for your email
Click Here!
Salam,
Hendrik Karnadi
____________
From: Mardi <sumardiana596@
To: belajar-excel@
Sent: Tuesday, 18 September 2012, 5:22
Subject: Re: [belajar-excel] error : {#value}
Maaf aktualnya sudah tercopy,hasil sudah muncul setelah save pun formula masih oke.Tapi begitu close workbooks,dan dibuka lagi formulanya berubah.Tapi semalem coba save as ke .xlsx hasilnya oke.Karena file aslinya .xls.Apa mungkin kapasitas dari excel 2003 sudah gak mampu kah ?
Terima kasih
mardi
-------Original Message-----
From: hendrik karnadi
Date: 17/09/2012 21:19:26
To: belajar-excel@
Subject: Re: [belajar-excel] error : {#value}
Masih rencana atau sdh dicopy ?
Perkiraan saya (karena tidak bisa melihat filenya), ketika anda mengcopy (kalau sdh dicopy sebelum disave) formula arraynya ikut berubah.
Coba dicek
Salam,
Hendrik Karnadi
____________
From: Mardi <sumardiana596@
To: belajar-excel@
Sent: Monday, 17 September 2012, 18:45
Subject: [belajar-excel] error : {#value}
Dear all,
Maafkan kalo hanya bisa nanya nih,soalnya pemula banget.Ceritanya gini saya Ada formula aray yang rencananya saya copy dari A7:AH1828.Tapi kenapa ya,setelah di save dan close,kemudian dibuka lagi dari P429 ke bawah jadi {=#value!}.Maaf tidak lampirin filenya soalnya filenya gede banget 5 mega an.
Terima kasih
Mardi
FREE Animations for your email
Click Here!
Mon Sep 17, 2012 7:04 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sekedar sharing latihan Macro.
Ada tiga anak berkumpul, masing2 mempunyai 10 kelereng.
Setiap putaran, Anak1 memberikan 3 kelereng kepada Anak2, Anak2 memberikan 2 kelereng kepada Anak3 dan Anak3 memberikan 1 kelereng kepada Anak1.
Target : Menampilkan jumlah putaran dan jumlah kelereng pada masing2 Anak pada saat akhir putaran.
Semoga latihan kecil ini membangunkan semangat kita untuk bermacro ria.
Salam,
Hendrik Karnadi
Ada tiga anak berkumpul, masing2 mempunyai 10 kelereng.
Setiap putaran, Anak1 memberikan 3 kelereng kepada Anak2, Anak2 memberikan 2 kelereng kepada Anak3 dan Anak3 memberikan 1 kelereng kepada Anak1.
Target : Menampilkan jumlah putaran dan jumlah kelereng pada masing2 Anak pada saat akhir putaran.
Semoga latihan kecil ini membangunkan semangat kita untuk bermacro ria.
Salam,
Hendrik Karnadi
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar