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.
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.
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.
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.
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.
Setiap cell disetiap worksheet otomatis menampilkan nomor dan jumlah sheet berdasarkan posisi dan jumlah Worksheet.
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.
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.
sumber : http://nggokabeh.blogspot.com