Dalam pembuatan Kode Macro Tombol Keluar Menggunakan VBA Macro Excel sebenarnya sangatlah mudah, tetapi itu juga ada kombinasinya seperti contoh jika kolom H2 tidak ada namanya maka tidak bisa keluar dan sebagainya.
Selanjutnya untuk 8 Jenis Kode Macro Tombol Keluar Di Excel, kami sudah menyiapkan beberapa contoh dan contoh file beserta cara membacanya yang bisa Anda pelajari secara mudah dan dapat langsung Anda praktek kan. Kemudian kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami dibawah ini secara cermat, karena semboyan kami adalah "Memberikan Yang Terbaik dan Original Untuk Anda" adalah semboyan kami serta memberikan hasil yang optimal terhadap pengunjung juga termasuk prioritas kami dalam membuat artikel.
Selanjutnya untuk 8 Jenis Kode Macro Tombol Keluar Di Excel, kami sudah menyiapkan beberapa contoh dan contoh file beserta cara membacanya yang bisa Anda pelajari secara mudah dan dapat langsung Anda praktek kan. Kemudian kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami dibawah ini secara cermat, karena semboyan kami adalah "Memberikan Yang Terbaik dan Original Untuk Anda" adalah semboyan kami serta memberikan hasil yang optimal terhadap pengunjung juga termasuk prioritas kami dalam membuat artikel.
BERIKUT 8 JENIS KODE MACRO TOMBOL KELUAR DI EXCEL 2007 KEATAS
Selain 8 ini juga masih buanya lagi, karena ini sudah malam jam 2.30 maka kami hanya memberikan 8 kode macro saja. Untuk lebih jelasnya Anda dapat bergabung di group kami Google plus dan FB.
INI JENIS KODE MACRONYA
Kode Macro Tombol Keluar Versi 1
Private Sub CommandButton1_click()
'keluar tanpa ada konformasi simpan atau tidak, meskipun sobat membuka 2/lebih workbook
Application.DisplayAlerts = False
Application.Quit
End Sub
Kode Macro Tombol Keluar Versi 2
Private Sub CommandButton2_Click()
'jika rumus hanya seperti dibawah maka
'ada konfirmasi simpan, tidak meskipun sobat membuka 2/ lebih workbook
'dan jika rumus dibawah digabungkan dengan rumus macro lain maka besar kemungkinan
'akan mengeluarkan workbook lain
Application.Quit
End Sub
Kode Macro Tombol Keluar Versi 3
Private Sub CommandButton3_Click()
'hanya aplikasi ini yang keluar dan di simpan, jika ada workbook lain maka tidak ikut keluar
ActiveWorkbook.Close savechanges:=True
End Sub
Kode Macro Tombol Keluar Versi 4
Private Sub CommandButton4_Click()
'sekarang kita membuat konfirmasi sendiri
'PERHATIKA TIAP BARIS
'kita buat DIM untuk nama KELUAR (deglarasi DIM dan AS INTEGER)
'dan AS INTEGER adalah perintah untuk merealisasikan
Dim keluar As Integer
'setelah itu perhatikan "& Me.Name" adalah untuk nama file ini ditambah "?" lalu ada pesan simpan,tidak,kembali
keluar = MsgBox("apakah sobat ingin menyimpan data " & Me.Name & "?", vbYesNoCancel)
'sekarang kita memilih dan menjalankan tiap tombol yes,no,cancel
Select Case keluar
'yang pertama tombol simpan/yes
Case vbYes
ActiveWorkbook.Close savechanges:=True
'kedua tombol tidak/no
Case vbNo
ActiveWorkbook.Close savechanges:=False
'ketiga kembali/batal
Case Cancel
ActiveWorkbook.Cancel
'karena diatas ada select, maka kita akhiri end select
End Select
'dan end sub pasti diakhir, sudah pasti, sudah ketentuannya
End Sub
Kode Macro Tombol Keluar Versi 5
Private Sub CommandButton5_Click()
'membuka workbook baru dan menyimpan aplikasi ini kemudian baru keluar (workbook baru tidak ikut kesimpan dan keluar)
Workbooks.Add
'("tombol keluar.xlsm") adalah nama fileini, jika file ini anda rubah maka ("tombol keluar.xlsm") juga harus anda rubah sesuai nama filenya
Windows("tombol keluar.xlsm").Activate
'menyimpan kemudian keluar
ActiveWorkbook.Close savechanges:=True
End Sub
Kode Macro Tombol Keluar Versi 6
Private Sub CommandButton6_Click()
'memberkan tulisan www.mtsbmtumbrasanom.id di sheet1 di range H1
Sheets("sheet1").Range("H1") = "www.mtsbmtumbrasanom.id"
Range("H1").Select
With Selection.Font
.Name = "Calibri"
.Size = 24
Selection.Font.Bold = True
ActiveWorkbook.Close savechanges:=True
End With
End Sub
Kode Macro Tombol Keluar Versi 7
Private Sub CommandButton7_Click()
If Range("H2") = "" Then
MsgBox "untuk keluar silahkan ketik MAS SYAREF di range H2", vbCritical, "sistem aplikasi"
Range("H2").Select
Exit Sub
End If
If Range("H2") = "MAS SYAREF" Then
ActiveWorkbook.Save
Application.Visible = False
Application.Quit
Else
MsgBox "maaf mungkin yang anda ketik tidak sesuai dan perhatikan besar kecilnya huruf dan spasinya, silahkan coba lagi", vbOKOnly, "sistem aplikasi"
Range("H2") = ""
Range("H2").Select
Exit Sub
End If
End Sub
Kode Macro Tombol Keluar Versi 8
Private Sub CommandButton1_click()
'keluar tanpa ada konformasi simpan atau tidak, meskipun sobat membuka 2/lebih workbook
Application.DisplayAlerts = False
Application.Quit
End Sub
Kode Macro Tombol Keluar Versi 2
Private Sub CommandButton2_Click()
'jika rumus hanya seperti dibawah maka
'ada konfirmasi simpan, tidak meskipun sobat membuka 2/ lebih workbook
'dan jika rumus dibawah digabungkan dengan rumus macro lain maka besar kemungkinan
'akan mengeluarkan workbook lain
Application.Quit
End Sub
Kode Macro Tombol Keluar Versi 3
Private Sub CommandButton3_Click()
'hanya aplikasi ini yang keluar dan di simpan, jika ada workbook lain maka tidak ikut keluar
ActiveWorkbook.Close savechanges:=True
End Sub
Kode Macro Tombol Keluar Versi 4
Private Sub CommandButton4_Click()
'sekarang kita membuat konfirmasi sendiri
'PERHATIKA TIAP BARIS
'kita buat DIM untuk nama KELUAR (deglarasi DIM dan AS INTEGER)
'dan AS INTEGER adalah perintah untuk merealisasikan
Dim keluar As Integer
'setelah itu perhatikan "& Me.Name" adalah untuk nama file ini ditambah "?" lalu ada pesan simpan,tidak,kembali
keluar = MsgBox("apakah sobat ingin menyimpan data " & Me.Name & "?", vbYesNoCancel)
'sekarang kita memilih dan menjalankan tiap tombol yes,no,cancel
Select Case keluar
'yang pertama tombol simpan/yes
Case vbYes
ActiveWorkbook.Close savechanges:=True
'kedua tombol tidak/no
Case vbNo
ActiveWorkbook.Close savechanges:=False
'ketiga kembali/batal
Case Cancel
ActiveWorkbook.Cancel
'karena diatas ada select, maka kita akhiri end select
End Select
'dan end sub pasti diakhir, sudah pasti, sudah ketentuannya
End Sub
Kode Macro Tombol Keluar Versi 5
Private Sub CommandButton5_Click()
'membuka workbook baru dan menyimpan aplikasi ini kemudian baru keluar (workbook baru tidak ikut kesimpan dan keluar)
Workbooks.Add
'("tombol keluar.xlsm") adalah nama fileini, jika file ini anda rubah maka ("tombol keluar.xlsm") juga harus anda rubah sesuai nama filenya
Windows("tombol keluar.xlsm").Activate
'menyimpan kemudian keluar
ActiveWorkbook.Close savechanges:=True
End Sub
Kode Macro Tombol Keluar Versi 6
'memberkan tulisan www.mtsbmtumbrasanom.id di sheet1 di range H1
Sheets("sheet1").Range("H1") = "www.mtsbmtumbrasanom.id"
Range("H1").Select
With Selection.Font
.Name = "Calibri"
.Size = 24
Selection.Font.Bold = True
ActiveWorkbook.Close savechanges:=True
End With
End Sub
Kode Macro Tombol Keluar Versi 7
If Range("H2") = "" Then
MsgBox "untuk keluar silahkan ketik MAS SYAREF di range H2", vbCritical, "sistem aplikasi"
Range("H2").Select
Exit Sub
End If
If Range("H2") = "MAS SYAREF" Then
ActiveWorkbook.Save
Application.Visible = False
Application.Quit
Else
MsgBox "maaf mungkin yang anda ketik tidak sesuai dan perhatikan besar kecilnya huruf dan spasinya, silahkan coba lagi", vbOKOnly, "sistem aplikasi"
Range("H2") = ""
Range("H2").Select
Exit Sub
End If
End Sub
Kode Macro Tombol Keluar Versi 8
Kemudian, Kode Macro Untuk Tombol Keluar Di Excel ke delapan, silahkan berkreasi sendiri, karena saya kira dari 7 Jenis Kode Macro Tombol Keluar diatas dapat Anda kembangkan dengan berexperimen.
Apabila dikemudian hari Anda masih merasa kebingungan atau masih belum paham, silahkan download file dibawah ini dan silahkan hubungi kami melalui kontak kami pada gadged paling bawah.
EASY DOWNLOAD FILE
JIKA MENURUT ANDA ARTIKEL INI BAGUS DAN BERMANFAAT, SILAHKAN SHARE KE SOSIAL MEDIA YANG LAIN DENGAN TUJUAN BERBAGI ILMU DAN PENGETAHUAN
"Kami Selalu Berusaha Memberikan Yang Terbaik dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
Post a Comment for "8 JENIS KODE MACRO TOMBOL KELUAR DI EXCEL 2007,2010 DAN 2013 KEATAS"