با استفاده از قالب تاریخ سفارشی در سربرگ یا پاورقی

Question

هنگامی که نور یک سرصفحه یا پاورقی سفارشی ایجاد می کند، با کلیک بر روی نماد تاریخ، کد &[Date] را به هر بخشی از سرصفحه یا پاورقی که مشخص می کند اضافه می کند. این یک تاریخ نسبتاً عمومی به سرصفحه یا پاورقی اضافه می کند، اما او می خواهد تاریخ قالب بندی شده ای مانند «۲۳ نوامبر ۲۰۲۱» داشته باشد. نور تعجب می کند که آیا راهی برای سفارشی کردن نحوه نمایش تاریخ در سرصفحه یا پاورقی وجود دارد.

به طور معمول، وقتی تاریخ یا زمان را با کد &[Date] یا &[Time] در سرصفحه یا پاورقی وارد می کنید، قالب تاریخ یا زمان بر اساس تنظیمات منطقه ای است که توسط ویندوز کنترل می شود. متأسفانه، اکسل راهی برای اصلاح این موضوع ارائه نمی دهد، و اکثر مردم (به دلایل واضح) تمایلی به تغییر تنظیمات منطقه ای در ویندوز ندارند. بنابراین، راه حل استفاده از ماکرو برای اضافه کردن تاریخ به فرمت دلخواه است. در اینجا یک مثال ساده است:

Sub ChangeHeaderDate()
    ActiveSheet.PageSetup.RightHeader = Format(Date, "mmm. dd/yyyy")
End Sub

اگر می خواهید تاریخ در مکان دیگری در سرصفحه یا پاورقی باشد، کافیست ویژگی .RightHeader را به .LeftHeader، .CenterHeader، .LeftFooter، .CenterFooter یا .RightFooter تغییر دهید.

شما باید به یاد داشته باشید که هر بار که می خواهید تاریخ را در هدر تغییر دهید، ماکرو را اجرا کنید. اگر ترجیح می دهید هر زمان که برای چاپ انتخاب می کنید تاریخ به طور خودکار تغییر کند، می توانید از یک کنترل کننده رویداد مانند موارد زیر استفاده کنید:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmm. dd/yyyy")
End Sub

این استفاده باعث می شود هر زمان که بخواهید چاپ کنید، قسمت مرکزی هدر برای کاربرگ فعال به روزرسانی شود. اگر اغلب یک ورک بوک کامل را چاپ می کنید که دارای چندین کاربرگ است، می خواهید کنترل کننده رویداد را به چیزی کمی پیچیده تر تغییر دهید:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim w As Worksheet

    For Each w In ThisWorkbook.Worksheets
        w.PageSetup.CenterHeader = Format(Now, "mmm. dd/yyyy")
    Next w
End Sub

ممکن است زمانی که هر یک از این ماکروها را اجرا می کنید، / در قالب تاریخ به یک خط تیره تبدیل شود، به طوری که 23/2021 نوامبر به 23-2021 نوامبر تغییر کند. اگر این اتفاق در سیستم شما می افتد، به این دلیل است که اکسل جداکننده تاریخ پیش فرض شما است که یک خط تیره است. در این صورت، فقط قالب مورد استفاده در ماکرو خود را به این تغییر دهید: "mmm. dd/yyyy" . اضافه کردن بک اسلش باعث می شود اکسل کاراکتر زیر (اسلش جلو) را به عنوان یک کاراکتر تحت اللفظی تفسیر کند.