Kode macro yang sering digunakan

Kode macro menyimpan lembafr kerja

ThisWorkbook.Save

Kode macro keluar lembar kerja

ThisWorkbook.Close
atau Application.Quit

Kode macro Print lembar kerja

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Kode macro Print preview lembar kerja

ActiveSheet.PrintPreview

Kode macro memanggil form (userform)

Userform1.Show atau Userform2.Show dan seterusnya

Kode macro menutup form

Unload.me

Kode macro menyembunyikan form

Me.Hide untuk menampilkanya kembali me.show

Kode macro save as tanpa dialog

ActiveWorkbook.SaveAs

KOde macro memanggil form dengan workbook masih aktif

UserForm1.Show vbmodules

Kode macro menyembunyikan lembar kerja

Application.Visible = false

Kode macro menampilkan lembar kerja

Application.Visible = True

Kode macro dua menit mahir Vlookup silahkan tonton video dibawah ini

Kode macro link ke Internet

Sub LinkKeInternet
On Error GoTo EE
ActiveWorkbook.FollowHyperlink "http://www.iparengan.blogspot.com"
Exit Sub
EE : Msgbox "Komputer anda sedang offline," ,"Aktifkan koneksi internet anda"
End Sub

Kode macro mengambil nomor serial komputer

Sub NomorSeriHardisk
MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
End Sub

Kode macro kotak pesan

Sub kotakpesan
MsgBox "Saya belajar kode macro dengan Excel VBA"
End Sub

Kode macro menyembunyikan error

on error resume next

Kode macro melompati error

on error goto Normal
'kode macro yang error
Normal : Msgbox "Kode macro ada yang error"

Kode macro Textbox hanya bisa di isi angka

Private Sub TextBox1_Change()

If TextBox1 = vbNullString Then Exit Sub
If Not IsNumeric(TextBox1) Then
TextBox1 = vbNullString
TextBox1 = ""
End If
Exit Sub

Kode macro format angka desimal

Private Sub TextBox1_Change()
On Error GoTo A
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
A: TextBox1 = ""
End Sub