Menyimpan Dan Menutup Workbook Aktif Di VBA Excel

Apakah Anda muak dengan prompt tabungan saat menutup buku kerja ? Sebenarnya, Anda bisa menyimpan dan menutup buku kerja yang aktif tanpa ada perintah hanya dengan mengklik Command Button. Silahkan coba metode di tutorial ini.

Tolong lakukan hal berikut untuk menyimpan dan menutup buku kerja yang aktif tanpa diminta oleh Command Button di Excel.

1.   Klik Developer > Insert > Command Button 

Lalu tarik Command Button di lembar kerja Anda. Lihat tangkapan layar

2.  Klik kanan Command Button, 

Klik View Code dari menu klik kanan.

3.  Microsoft Visual Basic Application View Code muncul. 

Silahkan ganti kode asli di View Code dengan script VBA dibawah ini.

Kode VBA: Simpan dan tutup buku kerja dengan Command Button

Private Sub CommandButton1_Click()
Application.Quit
ThisWorkbook.Save
End Sub

Catatan: 

Dalam kode, CommandButton1 adalah nama Tombol Perintah yang Anda masukkan.

4. Keluar dari Microsoft Visual Basic untuk Aplikasi jendela.

      tekan lain + Q kunci secara bersamaan untuk 

5. Matikan Mode Desain bawah Developer Tab .

Mulai sekarang, saat mengklik Tombol Perintah, buku kerja yang aktif akan disimpan dan ditutup secara otomatis tanpa konfirmasi.

https://www.extendoffice.com/id/documents/excel/4242-excel-button-to-close-workbook.html

The MsgBox Function

You’re probably already familiar with the VBA MsgBox function — I use it quite a bit in the examples throughout this book. 

The MsgBox function, which accepts the arguments shown in Table 15-1, is handy for displaying information and getting simple user input. It’s able to get user input because it’s a function. 

A function, as you recall, returns a value. In the case of the Msgbox function, it uses a dialog box to get the value that it returns. Keep reading to see exactly how it works.

Here’s a simplified version of the syntax for the MsgBox function:

MsgBox(prompt[, buttons][, title])

You can use the MsgBox function in two ways:

1. To simply show a message to the user. In this case, you don’t care about the result returned by the function.
2. To get a response from the user. In this case, you do care about the result returned by the function. The result depends on the button that the user clicks.

If you use the MsgBox function by itself, don’t include parentheses around the arguments. The following example simply displays a message and does not return a result. When the message is displayed, the code stops until the user clicks OK.

Sub MsgBoxDemo()

MsgBox “Click OK to begin printing.”

Sheets(“Results”).PrintOut

End Sub

Figure 15-1 shows how this message box looks.

You can also use the MsgBox function result without using a variable, as the following example demonstrates:

Sub GetAnswer2()

If MsgBox(“Continue?”, vbYesNo) = vbYes Then

         ‘ ...[code if Yes is clicked]...

Else

          ‘ ...[code if Yes is not clicked]...

End If

End Sub