Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос: печать и проставление даты и времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос: печать и проставление даты и времени
DV Дата: Вторник, 23.08.2011, 14:33 | Сообщение № 1
Группа: Друзья
Ранг: Обитатель
Сообщений: 286
Репутация: 194 ±
Замечаний: 0% ±

Excel 2010 RUS
Всем привет!
Подскажите чайнику в VBA как сделать, чтобы при распечатывании любого листа в книге на этом листе в ячейке O1 вставлялась дата и время. Пример думаю не нужен?
 
Ответить
СообщениеВсем привет!
Подскажите чайнику в VBA как сделать, чтобы при распечатывании любого листа в книге на этом листе в ячейке O1 вставлялась дата и время. Пример думаю не нужен?

Автор - DV
Дата добавления - 23.08.2011 в 14:33
Hugo Дата: Вторник, 23.08.2011, 14:43 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3703
Репутация: 792 ±
Замечаний: 0% ±

365
Code
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[o1] = Now()
[o1].EntireColumn.AutoFit
End Sub

Для AutoFit правильнее
Columns(15).AutoFit
написать, но как выше понятнее smile

Код в модуле книги.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение
Code
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[o1] = Now()
[o1].EntireColumn.AutoFit
End Sub

Для AutoFit правильнее
Columns(15).AutoFit
написать, но как выше понятнее smile

Код в модуле книги.

Автор - Hugo
Дата добавления - 23.08.2011 в 14:43
DV Дата: Вторник, 23.08.2011, 14:45 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 286
Репутация: 194 ±
Замечаний: 0% ±

Excel 2010 RUS
Hugo,
Спасибо!!!


Сообщение отредактировал DV - Вторник, 23.08.2011, 15:05
 
Ответить
СообщениеHugo,
Спасибо!!!

Автор - DV
Дата добавления - 23.08.2011 в 14:45
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!