VBA Excel Pemula 8 : Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box) - Perhatikan gambar git diatas..!!
Sebelumnya pada posting VBA Excel Pemula 7 : Cara Memilih dan Mengaktifkan WorkSheet Yang Terpilih disana sudah dijelaskan kode untuk menuju Sheet tertentu dari UserForm.
 |
| Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif |
Posting VBA Excel Pemula 8 merupakan lanjutannya dimana kita akan menampilkan Nama dari WorkSheet dan Nama dari WorkBook saat setelah menuju Sheet tertentu.
Jadi disini kita hanya akan menambahkan kodenya saja.
Admin sangat menyarankan membuat file contoh penerapan kode yang sedang dipelajari berdasarkan langkah-langkah yang admin sajikan.
Dengan membuat file contoh penerapan akan sangat membantu memahami dan mengetahui fungsi serta alur kerja kode yang diterapkan.
Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box)
- Buka File Excel, Rename Sheet1 "BERANDA", Sheet2 "LIST DATA" dan Sheet3 "LAPORAN".
- Buka Visual Basic dengan cara klik Tab Developer dan pilih Visual Basic atau dengan menekan bersaman tombol ALT dan F11
- Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 8" dan tambahkan CommandButton1 dengan Caption "Sheet1", CommandButton2 dengan Caption "Sheet2", dan CommandButton3 dengan Caption "Sheet3".
- Kode untuk menuju Sheet tertentu sudah ada di posting VBA Excel Pemula 7 jadi silahkan di tambahkan dengan kode yang ada pada Posting ini.
- Klik kanan pada CommandButton1 Caption "Sheet1", Pilih View Code dan tambahkan dengan Kode berikut :
Private Sub CommandButton1_Click()
'VBA Excel 8: HVBA Excel Pemula 8 : Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box)
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
End Sub
'VBA Excel 8: HVBA Excel Pemula 8 : Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box)
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
End Sub
- Klik kanan pada CommandButton2 Caption "Sheet2", Pilih View Code dan tambahkan dengan Kode berikut :
Private Sub CommandButton2_Click()
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
End Sub
- Klik kanan pada CommandButton3 Caption "Sheet3", Pilih View Code dan tambahkan dengan Kode berikut :
Private Sub CommandButton3_Click()
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama Sheet Dalam Kotak pesan (Message Box)
MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8"
'Kode ini untuk memunculkan nama WorkBook Aktif Dalam Kotak pesan (Message Box)
MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8"
End Sub
Download : Aplikasi Pemula 8
Demikian posting VBA Excel Pemula 8 : Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box).
Semoga dapat digunakan dan disesuaikan dengan kebutuhan masing-masing.