Tuesday, September 27, 2016

VBA Excel Pemula 8 : Cara Memunculkan Nama Sheet dan WorkBook Yang Sedang Aktif Dalam Kotak Pesan (Message Box)

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. 

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.


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
  • 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"
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"
End Sub
  • Kode MsgBox ActiveSheet.Name, vbInformation, "Aplikasi Pemula 8" merupakan untuk memunculkan nama Sheet yang sedang aktif
  • Kode MsgBox ActiveWorkbook.Name, vbInformation, "Aplikasi Pemula 8" merupakan untuk memunculkan nama WorkBook yang sedang aktif
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.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon