Cara Merubah Nama sheet Sesuai dengan Cell Tertentu

Sheet merupakan suatu kertas kerja dalam Ms. Excel. Pada umumnya tampilan pertama pada saat kalian membuka aplikasi Ms. Excel adalah terdapat 3 sheet yaitu sheet 1, sheet 2, dan sheet 3.

Pernahkah kalian merubah nama sheet, misalkan sheet 1 menjadi data 1 ?

Tentunya hal di atas sangatlah mudah karena bisa dilakukan hanya dengan mengklick kanan pada sheet yang akan diubah namanya kemudian rename.

Namun, bagaimana jika ingin merubah nama sheet dengan data pada cell tertentu ? Apakah kalian bisa melakukannya?

Tentunya pasti ada yang sudah bisa dan pasti banyak yang belum bisa juga.

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara merubah nama Sheet Sesuai dengan Cell Tertentu.

Cara merubah nama sheet sesuai dengan Cell tertentu bisa dilakukan dengan cara membuat coding macro VBA Ms. Excel. Berikut ini adalah codenya :

Sub SheetName()

For i = 1 To Sheets.Count
Sheets(i).Activate
ActiveSheet.Name = ActiveSheet.Range("A1").Value
Next i

End Sub

Penjelasan :

Sub & End Sub = Procedur Coding VBA
SheetName = Nama Macro
For & Next = Rumus Coding
I = Variable
Sheet.Count = Rumus Coding
Value = Coding Macro Properties
A1 = Cell nama pengganti sheet

Berikut cara penggunaanya :

1. Buka aplikasi Ms. Excel;
2. Buka file yang kalian inginkan;
3. Pilih menu Developer;
4. Pilih View Code;
5. Pilih menu Insert pada jendela VBA;
6. Pilih Module pada jendela VBA;
7. Masukan coding pada jendela Module;
8. Pilih menu Run;
9. Pilih Run Sub/User Form.

Untuk lebih jelasnya perhatikan gambar di bawah ini :

Maka hasilnya akan menjadi :

Dengan cara di atas maka setiap nama sheet sama dengan Cell A1 pada sheet tersebut. Kalian juga bisa memodifikasi coding pada bagian cellnya sesuai dengan cell yang kalian inginkan.

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

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

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