Excel شامل یک تابع کاربرگ (ROMAN) است که به شما امکان می دهد اعداد عربی را به اعداد رومی تبدیل کنید. ممکن است تعجب کنید که آیا چنین عملکردی وجود دارد که به شما امکان می دهد اعداد رومی را به عنوان شماره صفحه در چاپ چاپ کنید.
هیچ ویژگی داخلی وجود ندارد که به شما این امکان را می دهد، اما می توانید یک ماکرو ایجاد کنید که این کار را انجام دهد. ماکرو زیر را در نظر بگیرید:
Sub RomanPageNums()
Dim iPages As Integer
Dim J As Integer
Get count of pages in active sheet
iPages = ExecuteExcel4Macro("Get.Document(50)")
Print worksheet, page by page
With ActiveSheet
For J = 1 To iPages
Set page letter
.PageSetup.CenterFooter = Application.Roman(J)
Print page J
.PrintOut From:=J, To:=J
Next J
End With
End Sub
این ماکرو ابتدا تعداد صفحات چاپ شده شما را مشخص می کند و مقدار را به متغیر iPages اختصاص می دهد. سپس از هر صفحه عبور می کند و قبل از چاپ هر صفحه، شماره صفحه را در قسمت مرکزی پاورقی تغییر می دهد. شماره صفحه با تبدیل شماره صفحه فعلی (J) به یک عدد رومی با استفاده از تابع کاربرگ ROMAN تنظیم می شود.
اگر می‌خواهید اعداد رومی در قسمت‌های دیگر فوتر ظاهر شوند، می‌توانید ویژگی .CenterFooter را با .LeftFooter یا RightFooter جایگزین کنید. در صورت تمایل می توانید از .LeftHeader، .CenterHeader یا .RightHeader نیز استفاده کنید.
