Blog Archive

Perempuan apabila sembahyang lima waktu, puasa bulan Ramadhan, memelihara kehormatannya serta taat akan suaminya, masuklah dia dari pintu syurga mana sahaja yang dikehendaki.(Women are five times when prayer, fasting month of Ramadan, will maintain his honor and obey her husband, she entered the door of heaven where the desired sake only.)

Rabu, 15 Desember 2010

Excel VBA Basic bag 2 (Record Macro)

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 ExcelGambar 01

 
  • Untuk kali ini kami sarankan tempat penyimpanan macro adalah di This Woekbook (File Excel yang baru dibuat tadi)
Record macro di ExcelGambar 02
  • 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 ExcelGambar 03
  • Setelah selesai memberi warna, tekan tombol Stop Recording pada Toolbar "Stop Recording" (Gambar 04)

Record macro di ExcelGambar 04
  • 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 ExcelGambar 05

Tidak ada komentar:

Search Islamic Directory
Keyword: