Coding Cara Menambah dan Menempatkan Sheet Sebelum dan Sesudah Sheet tertentu ~ Matematika Akuntansi -->

Wednesday, October 7, 2020

Coding Cara Menambah dan Menempatkan Sheet Sebelum dan Sesudah Sheet tertentu

Sheet adalah kependekan dari Worksheet. Tampilan umum Ms. Excel biasanya terdiri dari 3 sheet dengan nama sheet 1 s.d 3. Dalam Ms. Excel sheet bisa dimodifikasi misalkan diganti warna, nama, dan lain sebagainya.


Selain memodifikasi kita juga bisa menambah dan mengatur posisi sheet sesuai dengan keinginkan kita. Pada umumnya menambah dan memindahkan sheet bisa dilakukan hanya dangan manarik sheet ke tempat yang kalian inginkan. Namun, tahukan kalian bahwa menambahkan dan memindahkan sheet ke posisi tertentu bisa dilakukan dengan cara membuat coding?

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara menambah dan menempatkan sheet sebelum dan sesudah sheet tertentu dengan bantuan coding VBA Ms. Excel.

Untuk menambah dan menempatkan sheet pada posisi tertentu bisa dibantu dengan coding berikut ini :
Sub TambahSheetSebelumSesudah() 
Worksheets.Add before:=Worksheets("Sheet3")
Worksheets.Add after:=Worksheets("Sheet2") 
End Sub

Keterangan :
  • Worksheets.Add before:=Worksheets("Sheet3") adalah kode penambahan sheet dan menempatkan sebelum sheet 3;
  • Worksheets.Add after:=Worksheets("Sheet2") adalah kode penambahan sheet dan menempatkan setelah sheet 2.

Berikut cara penggunaanya :
  1. Buka aplikasi Ms. Excel;
  2. Tekan tombol ALT + F11;
  3. Pilih menu InsertModule di jendela VBA;
  4. Masukan coding ke jendela Module VBA;
  5. Pilih menu Run Run Sub/User Form di jendela VBA;
  6. Klick tombol Run pada jendela Macro VBA.
Untuk lebih jelasnya perhatikan gambar di bawah ini :


Maka hasilnya akan menjadi :


Demikian artikel kali ini.
Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Salam,
Muhamad Pajar Sidik
President Director of (matematikaakuntansi.blogspot.com)
Email fajarmoehamad@gmail.com

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇