SolVeR.web.id

RSS Syndicator

SolVeR
SolVeR
SolVeR
SolVeR

Login Form



Designed by:

Newsflash

13 April 2010, sudah lebih dari 6 bulan kami tidak ada artikel baru, dikarenakan kami sibuk untuk belajar windows server beserta active directory. Lagipula ide untuk menulis artikel belum ada.
Excel VBA Basic bag 2 (Record Macro)

Programer tidak harus pinter ngetik, cara praktis belajar & membuat program VBA di excel. Gunakan fasilitas yang ada pada excel yaitu merekam pekerjaan kita yang berulang ulang dengan Record Macro, yang nantinya dipakai untuk mengulang pekerjaan kita hanya dengan menjalankan macro tersebut.

Langkah langkah dalam merecord macro

  • Buka excel Anda, sebaiknya workbook tersebut langsung diberi nana dan disimpan (Contoh dibawah kami beri nana VBA-Record-Macro)
  • Pada menu pilih Tool->Macro->Record New Macro... (Gambar 01)
  • Sehingga akan tampil jendela seperti Gambar 02

Record macro di Excel

  • Untuk kali ini kami sarankan tempat penyimpanan macro adalah di This Woekbook (File Excel yang baru dibuat tadi)

Record macro di Excel

  • Setelan tombol Ok ditekan, makan akan muncul Toolbar "Stop Recording" (Gambar 03)
    Pada step ini operasi di excel sudah mulai direcord
  • Pilih cell dengan range C4:D5, lalu beri warna "Light Blue"


Record macro di Excel

  • Setelah selesai memberi warna, tekan tombol Stop Recording pada Toolbar "Stop Recording" (Gambar 04)


Record macro di Excel

  • Pekerjaan selesai, macro sudah tersimpan, untuk melihat hasil dalam VBA
    Dari menu pilih Tools->Macro->Visual Basic Editor
  • Hasil seperti Gambar 05
  • Sebelum testing macro, cell yang kita warnai tadi ganti dengan warna lain atau hilangkan warna
  • Untuk testing hasil recording, kembali ke excel workbook dari menu pilih Tool->Macro->Macro...
  • Jalankan macro yang yang Anda record tadi, hasilnya cell C4:D5 akan diwarnai kembali ke warna Light Blue
1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/21/2009 by Sapto Hartoko
'
Range("C4:D5").Select
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
End Sub

Record macro di Excel