Skye دارای سه سلول در یک کاربرگ است که مهم هستند. یک سلول حاوی تاریخ شروع، سلول دوم حاوی تاریخ پایان، و سلول سوم شامل کل معاملات بین آن تاریخ ها است. او مایل است یک پاورقی برای صفحه چاپ شده داشته باشد که این سه قطعه داده را به صورت پویا در خود جای دهد. او فکر می کند که آیا راهی برای وارد کردن یک فرمول در فوتر وجود دارد تا بتواند این مقادیر را منعکس کند.
هیچ راهی داخلی برای انجام این کار در اکسل وجود ندارد زیرا فرمول ها را نمی توان در فوتر وارد کرد. آنها به عنوان فرمول توسط برنامه شناخته نمی شوند. با این حال می توانید از یک ماکرو برای تنظیم پاورقی خود استفاده کنید. به خاطر این رویکرد، فرض کنید که تاریخ شروع شما در سلول E1، تاریخ پایان شما در سلول E2، و کل تراکنش های شما در سلول E3 وجود دارد. در این صورت می توانید از یک ماکرو مانند زیر استفاده کنید:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sTemp As String
With Worksheets("Sheet1")
Set wording for date range
sTemp = .Range("E1").Text & " through " & .Range("E2").Text
sTemp = sTemp & " (" & .Range("E3").Text & ")"
.PageSetup.CenterFooter = sTemp
End With
End Sub
در این ماکرو چند نکته قابل توجه است. اول از همه، ماکرو فقط اطلاعات پاورقی را در کاربرگ به نام Sheet1 تنظیم می کند، اگرچه می توانید نام کاربرگ را به هر چیزی که نیاز دارید تغییر دهید. دوم، توجه داشته باشید که به جای ویژگی .Value از ویژگی .Text استفاده می شود. در واقع سه راه برای ارجاع به محتویات سلول وجود دارد، همانطور که در اینجا نشان داده شده است:
sTemp = Worksheets("Sheet1").Range("E1")
sTemp = Worksheets("Sheet1").Range("E1").Value
sTemp = Worksheets("Sheet1").Range("E1").Text
دو رویکرد اول معادل هستند. آنها sTemp را برابر با محتویات سلول قرار می دهند. رویکرد سوم متفاوت است. sTemp را برابر با متن قالب بندی شده سلول قرار می دهد. به عبارت دیگر، sTemp برابر با آنچه در سلول E1 است، خواهد بود، زیرا در سلول فرمت شده است. از آنجایی که شما با تاریخ ها و مبالغ کار می کنید، این رویکردی است که می خواهید استفاده کنید، بنابراین همان چیزی است که در ماکرو استفاده شده است.
سوم، ماکرو در نهایت پاورقی را در متغیر sTemp تنظیم می کند. همانطور که نوشته شده است، ماکرو پاورقی ایجاد می کند که شبیه به این است:
1 Jul 2022 through 15 Jul 2022 ($1,234.56)
باز هم، ظاهر واقعی به قالب بندی سلول های E1، E2 و E3 بستگی دارد. ماکرو کلمه "through" را اضافه می کند و پرانتزهایی را در اطراف مجموع تراکنش ها قرار می دهد. شما می توانید این عناصر اضافی را مستقیماً در ماکرو تغییر دهید.
چهارم، ماکرو رشته sTemp فرمت شده (پانویس شما) را به موقعیت مرکزی در فوتر صفحه برای کاربرگ اختصاص می دهد. اگر ترجیح میدهید پاورقی در جای دیگری باشد، میتوانید به سادگی ویژگی .CenterFooter را به .LeftFooter یا RightFooter تغییر دهید.
در نهایت، باید بدانید که این ماکرو برای اضافه شدن به ماژول ThisWorkbook طراحی شده است. درست قبل از چاپ کتاب کار به صورت خودکار اجرا می شود. با این حال، با نگاه کردن به کاربرگ در پیشنمایش چاپ ایجاد نمیشود، بنابراین نمیتوانید روی آنچه ممکن است قبل از چاپ واقعی ببینید، حساب کنید.
