Перейти до основного матеріалу

Як вставити дату останньої зміни у верхній або нижній колонтитул Excel?

В Excel ми можемо швидко та легко вставити інформацію у книгу, таку як ім’я файлу, повний шлях до файлу, поточну дату тощо у верхній або нижній колонтитул. Але чи пробували ви коли-небудь вставляти в них останню змінену дату та час аркуша? Excel не надає цієї функції, щоб ми могли вставити останню змінену дату в верхній або нижній колонтитул, і тут я представив вам зручний спосіб її вирішення.

Вставте дату останньої зміни у верхній або нижній колонтитул Excel із кодом VBA

Вставте дату останньої зміни/дату створення/заголовок/нижній колонтитул користувача в Kutools для Excel гарна ідея3


стрілка синя права міхур Вставте дату останньої зміни у верхній або нижній колонтитул Excel із кодом VBA

Наступний простий код VBA може допомогти вам вставити останню збережену дату та час робочого аркуша у верхній або нижній колонтитул. Будь ласка, зробіть так:

1. Активуйте свій аркуш, в який потрібно вставити дату останньої зміни у верхній або нижній колонтитул.

2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

3. У лівій VBAProject на панелі, двічі клацніть ThisWorkbook відкрити Модулі, потім скопіюйте та вставте наступний код.

Код VBA: Вставте дату останньої зміни у верхній або нижній колонтитул

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "Last saved: " & Format(Date, "mm-dd-yy") & " " & Time
End Sub

doc-insert-last-saved-date-to-header-1

4. Потім збережіть і закрийте цей код і натисніть кнопку вид > макет сторінки щоб переглянути результат. І ви можете побачити дату та час останньої зміни, вставлені в центральний заголовок. Дивіться скріншоти:

doc-insert-last-saved-date-to-header-2
-1
doc-insert-last-saved-date-to-header-3

Примітки:

1. Дата та час останньої зміни оновлюються автоматично, коли ви змінюєте та зберігаєте файл Excel.

2. Якщо вам потрібно вставити останню збережену дату та час у лівий верхній / нижній колонтитул, правий верхній / нижній колонтитул або нижній колонтитул, вам просто потрібно змінити CenterHeader у наведеному вище коді на ваш запит.


стрілка синя права міхур Вставте дату останньої зміни/дату створення/заголовок/нижній колонтитул користувача в Kutools для Excel

За допомогою Kutools для Excel ви можете використовувати інструмент «Вставити інформацію про робочу книгу», щоб швидко вставити інформацію з робочої книги до верхнього, нижнього колонтитула або комірки.

після установки Kutools для Excel, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)

Натисніть Kutools Plus > робочий зошит >Вставте інформацію про робочу книгу, а у діалоговому вікні, що з’являється, перевірте інформацію, яку потрібно вставити, і перейдіть до Вставте в розділ, перевірити Діапазон, Header or Нижній колонтитул і вкажіть, щоб вставити лівий верхній / нижній колонтитул, центральний верхній / нижній колонтитул або правий верхній / нижній колонтитул відповідно до ваших потреб.
doc вставити інформацію про робочу книгу
doc вставити інформацію про робочу книгу

стрілка синя права міхур Вставте інформацію про робочу книгу


Пов'язана стаття:

Отримайте та вставте створений час та час останньої зміни у клітинки

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Why do I have to load the VB code into 'ThisWorkBook' of the VBAproject for every new workbook created? I would think that if I loaded the VB code into 'ThisWorkBook' of VBAHOME (PERSONAL.XLSB) if would be retained and available cresting new workbooks
This comment was minimized by the moderator on the site
Just tried it after moving the center header to the left footer. Didn't work. What I saved at 1:20 pm still recorded as 1:00 pm. Your help would be most appreciated. BTW, my spreadsheet was created as Excel 2007, and I made changes at the library on Excel 2016. Generally, I can go back and forth between versions with no problems.
Also, I didn't realize my name would be published. Any chance of changing it to Nancy E.?
Many thanks!
This comment was minimized by the moderator on the site
THANK YOU! That was invaluable. Who'd believe that Microsoft would exclude such an important function! What about Word? Is it done the same way now?
This comment was minimized by the moderator on the site
Thanks for the Info.
This comment was minimized by the moderator on the site
perfect.very useful ;-)
This comment was minimized by the moderator on the site
I did this and it works. I saved the file as .xlsx and closed it. Now, when I open it, I open the VBA coding window but I am not able to find this chunk of code to edit it. I would like to play with location and remove time. Thank you.
This comment was minimized by the moderator on the site
@John R. When you get to the VBA coding window, on the left section of the screen you need to double-click "ThisWorkbook" to open the right section of the screen. Then in the right section (at the top) you need to select "Workbook" and "BeforeSave". That should hopefully show you the chunk of code that you're looking for.
This comment was minimized by the moderator on the site
I tried this technique but could only get it to show up on one sheet. Help?
This comment was minimized by the moderator on the site
Thanks! I maintain an employee phone number and extension list. People get hired, quit, move to different extensions. If someone wants a copy I print it off, but it only showed the date and time it was printed -- not necessarily the most current information. It was difficult to tell if you had two different copies which one was the most up-to-date. Showing the last time the file was saved will do what I wanted!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations