Edit Kode Macro Sendiri

Membuka Notepad Kalkulator dengan kode macro

Baris kode macro tersusun ketika record macro berjalan, biasanya baris kode macro yang tersusun diberi nama module1 module2 module3 dan seterusnya. Pada pertemuan pertama rubrik Teori Excel saya telah membahas tentang bagaimana cara Menulis kode macro untuk pertama kalinya. Setelah memahami cara menulis kode macro maka saatnya belajar untuk mengedit kode macro agar menjadi lebih sederhana serta mengetahui cara kerja sebuah baris kode macro. Contoh kode macro yang akan kita edit adalah sebagai berikut

Sub testes1()
Range("A1") = "Menulis kode macro untuk pertama kalinya"
Range("A2") = "penggunaexcel.net"
Columns("A:A").EntireColumn.AutoFit
With Range("A1:A2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Tugas anda sekarang adalah buka microsoft excel, > Buat file project baru, > Save as enabled macro dengan nama "Project3", > Pilih sheet1, > Buka tab menu developer, >Pilih Insert > Insert Commandbutton ActiceX control > Klik Design mode > double klik Commandbutton , lalu ketikan kode macro dibawah ini kedalam jendela visual basic editor

Private Sub CommandButton1_Click()
Range("A1") = "Menulis kode macro untuk pertama kalinya"
Range("A2") = "penggunaexcel.net"
Columns("A:A").EntireColumn.AutoFit
With Range("A1:A2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Masih berlanjut sekarang > Tekan tombol Alt + Q pada keyboard untuk keluar dari jendela Visual basic editor > klik sekali Design Mode > Lalu klik tombol CommandButton, lihat hasilnya

Edit baris kode macro untuk pertama kali

Saya akan edit baris kode macro diatas dan jadilah kode macro yang bisa difungsikan sesuai kemauan kita, baris kode macro diatas menjadi seperti ini

Private Sub CommandButton1_Click()
Sheets("Sheet2").Range("A1") = "Menulis kode macro untuk pertama kalinya"
Sheets("Sheet2").Range("A2") = "penggunaexcel.net"
Sheets("Sheet2").Columns("A:A").EntireColumn.AutoFit
With Sheets("Sheet2").Range("A1:A2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Sekarang silahkan dicoba kembali, anda tidak akan menemukan perubahan pada sheet1 karena perubahan terjadi pada sheet2 Sheets("Sheet2"), sekarang saya akan edit lagi baris kode macro diatas, menjadi seperti ini

Private Sub CommandButton1_Click()
Sheets("Sheet2").Range("A1") = Sheets("Sheet1").Range("A1")
Sheets("Sheet2").Range("A2") = Sheets("Sheet1").Range("A2")
Sheets("Sheet2").Columns("A:A").EntireColumn.AutoFit
End Sub

Sekarang ketikan pada sheet1 kolom A1 "Tes pertama" dan kolom A2 "Tes kedua", lalu klik tombol commandbutton, lihat kembali perubahan yang terjadi di sheet2.

Dengan latihan ini saya berharap anda mulai memahai cara kerja baris kode macro diatas, sebelum membahas cara membuat entri secara berurutan maka hal ini menurut pengalam pribadi saya sangat penting untuk dipahami, semoga bermanfaat.

Temukan kami dengan keyword : #Edit Kode Macro Sendiri #ExcelPro #Macro #VBA #MacroExcel #ExcelVba #BelajarExcel #BelajarMacro #BelajarVBA #KelasExcel #RumahExcel

Refrensi pertemuan pertama rubrik Teori Excel Menulis kode macro untuk pertama kalinya

Jika anda kesulitan download file sampel silahkan hubungi kami dengan mengisi kolom komentar dibawah, gabung di grup iParegan facebook follow IG kami atau Like fanpage Iparegan

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini