Senin, 19 September 2011

Footer Romawi di Excel

Kadangkala kita membutuhkan footer yang memakai romawi (i, ii, iii, iv) dan ini adalah hasil eksperimen pertama saya belajar di makro vb.

Cara membuat makro di excel 2007 adalah pada tab view, klik macros.
isi nama makro yang akan dibuat misalnya macro1, baru klik create.
Copy isi makro dibawah ini :
=================================
Sub macro1()
NumOfPages = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To NumOfPages
rome = Application.WorksheetFunction.Roman(i)
rome = LCase(rome)
With ActiveSheet
.PageSetup.CenterFooter = rome
.PrintOut From:=i, to:=i
End With
Next
End Sub
=================================

PS. Yang dicopy adalah baris setelah Sub macro1() sampai sebelum End Sub.

Semoga berguna.

Tidak ada komentar: