SolVeR.web.id

Cara pembacaan code Visual Basic dari hasil record macro artikel sebelumnya

• Baris 1 Sub Macro1
  Nama dari Sub tesebut adalah Macro1 dan harus diakhiri dengan End Sub (Baris ke 11)
  Macro1 boleh diganti dengan selera dan sebaiknya yang berhubungan dengan hasil dari Sub tersebut, contoh : Sub doWarnai
• Baris 1 s/d 5 adalah sekedar comment, catatan harus dimulai dengan tanda accent ( ' ), program tidak menjalankan perintah ini
• Baris ke 6, Range("C4:D5").Select
  Memerintahkan untuk memilih area C4:D5
  Bisa dihapus dan kita memilih cellnya secara manual, cell yang terpilih akan diwarnai
• Baris ke 7 sampai 10, bisa diganti dengan
  

  1 2	Selection.Interior.ColorIndex = 41 Selection.Interior.Pattern = xlSolid

  Karena Selection.Interior berulang - ulang ditulis dengan With Selection.Interior dan diakhiri dengan End With
  Selection.Interior maksudnya cell yang sudah diselect (disorot) akan diberi dengan Color Index 41 (Light Blue) dan dengan Pattern xlSolid

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

Jika line 6 sudah dibuang, maka cell yang dipilih harus secara manual, hal imi malah lebih fleksibel karena kita dapat memilih cell yang lain. Gambar 01 menunjukkan cell A2, B2 A4 dan D4 dipilih kemudian jalankan macro yang telah dimodifikasi, maka hasilnya akan seperti gambar 02.