Membuat Macro dan Melihat Code Macro

Untuk membuat macro dengan mudah, seperti yang sudah dijelaskan di tutorial sebelumnya : excel macro kita dapat membuat macro dengan cara merekamnya. Setelah kita merekamnya, untuk melihat code macro, lakukan dengan langkah sebagai berikut :

Step 1  – Membuat Macro

Klik menu View, kemudian klik Macros

membuat macro 01

membuat macro 01

Step 2 – Membuat Macro

akan tampil sub menu (1) View Macros, (2) Record Macro dan (3) Use Relative References. Klik menu (1) View Macros

0005.02 membuat macro

Step 3 – Membuat Macro

Pilih nama macro yang sudah dibuat seperti panduan belajar macro excel lihat gambar dibawah posisi (1), kemudian klik tombol edit seperti yang ada di posisi (2)

0005.03 membuat macro
akan tampil code macro seperti tampilan berikut ini. Kode ini adalah hasil rekaman dari panduan sebelumnya.
Jangan pusing ya liat kode kode itu, Insya Allah nanti akan dijelaskan selain membuat macro, juga bagaimana cara membaca kode-nya baris per baris untuk memudahkan kita belajar membuat macro dalam excel.

[code language=”css”]
Sub Project_Macro_Border()

‘ Project_Macro_Border Macro

Range("A1:C5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Range("A1:C1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
Range("D7").Select

End Sub[/code]

Incoming search terms:

  • MELIHAT FESBUK RANGED 1
  • membuat macro excel
  • cara makro excel
  • cara edit macro
  • cara edit macro exel
  • kode macro
  • cara baca syntax macro
  • Cara buka koding macros
  • Cara edit VB excel
  • cara melihat isi makro pada ms excel