Mengambil Nama Sheet

Setiap membuat laporan, saya selalu mencantumkan nama sheet yang sedang terpakai sebagai sebuah judul laporan. Karena saya menamai suatu sheet biasanya mewakili isinya. Misalnya isinya adalah laporan bulan Januari, maka saya biasa menamainya dengan Laporan Januari. Bisa saja saya mengetiknya satu-satu, tetapi jika dalam satu worksheet saya mempunyai 30 sheet tentunya sangat menjengkelkan jika harus mengetiknya satu persatu. Lalu saya berusaha membuat fungsi sendiri untuk membuat pekerjaan tersebut menjadi lebih enteng.

Kita akan menggunakan Visual Basic for Application (VBA) untuk membuat fungsi tersebut. Langkah-langkahnya sebagai berikut:

  1. Buka Microsoft Excel anda.
  2. Tekan Alt + F11 untuk membuka Visual Basic Editor, atau anda bisa juga melalui menu Tools -> Macro -> Visual Basic Editor.
  3. Di Visual Basic Editor, click menu Insert -> Module.
  4. Lalu ketikkan script seperti dibawah ini.
  5. 	Function nama_sheet()
                 nama_sheet = ActiveSheet.Name
    	End Function
  6. Tutup Visual Basic Editor dengan menekan tombol Alt + Q.
  7. Lalu sorot cell yang ingin menampung nama sheet.
  8. Ketikkan =nama_sheet().
  9. Nama sheet anda akan terpampang di cell tersebut.

Mudah sekali kan? Sekarang anda ngga usah mengetik nama sheet anda satu persatu secara manual. Dan jika anda merubah nama sheet anda, maka judul laporan anda akan berubah secara otomatis mengikuti nama sheet tersebut.

5 comments

  1. Top Om.. ini yg aku cari2 dari dulu! duh… aku ga punya basic VB jd ga ngerti gini2.. but.. thanks banget ya… ^_^

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.