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.

Artikel-artikel Yang Berhubungan Dengan Artikel Ini

4 Komentar

djoan  on March 10th, 2009

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

ADjie  on February 20th, 2011

Thanks om, ketemu juga yang kucari…:)

khutbi  on July 30th, 2011

kenapa rumusnya tidak keluar respon apa-apa om?

paul  on December 11th, 2014

Thank u so much….. Rumus ini sangat membantu saya

Berikan opini anda tentang artikel ini

CommentLuv badge