با سلام خدمت کاربران عزیز آی تی سواد
در اکسل ما می توانیم به سرعت و به راحتی اطلاعات راهنمای کاربر، مانند نام فایل، مسیر کامل فایل، تاریخ فعلی و غیره را در سربرگ یا پاورقی وارد کنید. اما آیا تا به حال سعی کرده اید تاریخ و زمان آخرین تغییر برگه را در آنها وارد کنید؟ اکسل این ویژگی را برای ما برای قرار دادن تاریخ آخرین تغییر در سربرگ یا پاورقی ارائه نمی دهد، و در اینجا، ما یک راه برای حل آن به شما معرفی می کنیم.
وارد کردن تاریخ آخرین تغییر اکسل در سربرگ یا پاورقی با کد VBA :
کد ساده VBA زیر می تواند به شما در وارد کردن آخرین تاریخ و زمان ذخیره شده ی برگه در سربرگ یا پاورقی کمک کند، لطفا این کار را انجام دهید:
۱- برگه ی خود را که می خواهید تاریخ آخرین تغییرات را در سربرگ یا پاورقی آن وارد کنید ، باز کنید.
۲- سپس کلید ALT + F11 را نگه دارید تا Microsoft Visual Basic for Applications window باز شود.
۳- در سمت چپ VBAProject، روی ThisWorkbook دبل کیلک کنید تا Module باز شود، سپس کدهای زیر را کپی و پیست کنید.
کد VBA: وارد کردن تاریخ آخرین تغییر در سربرگ یا پاورقی
1 2 3 |
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = "Last saved: " & Format(Date, "mm-dd-yy") & " " & Time End Sub |
۴- سپس این کد را ذخیره کنید و خارج شوید و برای مشاهده نتیجه بر روی View> Page Layout کلیک کنید. و شما می توانید تاریخ و زمان آخرین تغییر را ببینید که در وسط سربرگ وارد شده است. تصاویر را مشاهده کنید:
نکات:
۱- زمانی که شما فایل اکسل را تغییر دهید و ذخیره کنید تاریخ و زمان آخرین تغییر به صورت خودکار به روز رسانی می شود.
۲- اگر شما نیاز به وارد کردن آخرین تاریخ و زمان ذخیره شده در سمت چپ header / footer ، سمت راست header / footer یا وسط دارید، فقط باید CenterHeader را در کد بالا به چیزی که نیاز دارید تغییر دهید.
ترجمه شده از سایت www.extendoffice.com