Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

      Penomoran sheet secara otomatis di Excel sangatlah berguna bagi para engineer yang menggunakan software Excel dalam menelesaikan pekerjaan seperti pembuatan laporan / report suatu pekerjaan. Dimana terdapat banyak sekali worksheet yang harus adanya modifikasi, pengurangan, dan penambahan worksheet dalam masa Engineering.
Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel       Contoh kasusnya adalah kita harus memberi keterangan sheet .. of .. sheets disetiap lembar dokumen sesuai nomor urut sheetnya. Sangatlah merepotkan jika kita harus terpaksa mengurangi atau menambah jumlah sheet yang berimbas kepada semua lembar dokumen dengan mengganti tulisan sheet .. of .. sheets disetiap lembarnya. Tidak seperti autocad yang harus mengganti secara manual disetiap drawingnya. Disinilah keunggulan software Excel.
      Berikut saya bagikan cara bagaimana kita dapat membuat keterangan nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel.

Hasil yang kita inginkan :
Setiap cell disetiap worksheet otomatis menampilkan nomor dan jumlah sheet berdasarkan posisi dan jumlah Worksheet.

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel
Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel







Cara - cara membuat nomor sheet secara otomatis :
1. Save Excel dalam extensi *.xls atau *.xlsm  ( *.xlsx tidak mendukung )
2. Ketik ATL + F11, akan tampil menu Microsoft Visual Basic for Application.

Memberi nomor sheet secara otomatis berdasarkan posisi dan jumlah Worksheet di Excel

3. Buatlah Module baru seperti tanda lingkaran merah nomor 1
4. Klik pada module yang telah dibuat disini adalah Module 1 dan akan tampil Module1 ( Code )
5. Isikan code dibawah berikut dan Simpan ( CTRL + S ) 

Function SheetNum(Optional celRef As Range) As Long
    With Application.Caller.Parent
        If celRef Is Nothing Then
            SheetNum = .Index
        Else
            SheetNum = celRef.Parent.Index
        End If
    End With
End Function
Function JumlahSheet()

   JumlahSheet = Worksheets.Count
End Function

6. Isikan kombinasi code =SheetNum()&" / "&JumlahSheet() pada setiap cell disetiap worksheet seperti contoh hasil yang kita inginkan.



Begitulah tulisan diatas salah satu Engineering tips dan trik agar dapat mempermudah atau mengoptimasi dalam penyelesaian pekerjaan. Semoga dapat membantu.

Share this

Related Posts