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

Вход

Регистрация

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

 

= Мир MS Excel/изменение даты при печати - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение даты при печати (Формулы)
изменение даты при печати
cherub07 Дата: Пятница, 29.11.2013, 14:23 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
есть ли формула, что бы при печати изменялась дата.
мне нужно печатать по 25-30 копии и чтобы дата на каждом листике изменялась при печати.
К сообщению приложен файл: 7287348.xlsx (18.2 Kb)
 
Ответить
Сообщениеесть ли формула, что бы при печати изменялась дата.
мне нужно печатать по 25-30 копии и чтобы дата на каждом листике изменялась при печати.
Автор - cherub07
Дата добавления - 29.11.2013 в 14:23
китин Дата: Пятница, 29.11.2013, 14:32 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7019
Репутация: 1074 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вам в раздел по VBA.только макрос вам поможет.ИМХО

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениевам в раздел по VBA.только макрос вам поможет.ИМХО
Автор - китин
Дата добавления - 29.11.2013 в 14:32
cherub07 Дата: Пятница, 29.11.2013, 14:35 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
спасибо
 
Ответить
Сообщениеспасибо
Автор - cherub07
Дата добавления - 29.11.2013 в 14:35
igrtsk Дата: Понедельник, 02.12.2013, 10:52 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 314
Репутация: 50 ±
Замечаний: 0% ±

Excel 2016
Цитата cherub07, 29.11.2013 в 14:23, в сообщении № 1
есть ли формула, что бы при печати изменялась дата. мне нужно печатать по 25-30 копии и чтобы дата на каждом листике изменялась при печати.

Если Вам на листе нужна именно та дата, когда отпечатан указанный лист, то формула простая - =СЕГОДНЯ()

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
Сообщение
Цитата cherub07, 29.11.2013 в 14:23, в сообщении № 1
есть ли формула, что бы при печати изменялась дата. мне нужно печатать по 25-30 копии и чтобы дата на каждом листике изменялась при печати.

Если Вам на листе нужна именно та дата, когда отпечатан указанный лист, то формула простая - =СЕГОДНЯ()
Автор - igrtsk
Дата добавления - 02.12.2013 в 10:52
китин Дата: Понедельник, 02.12.2013, 12:17 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7019
Репутация: 1074 ±
Замечаний: 0% ±

Excel 2007;2010;2016
igrtsk,
Цитата cherub07, 29.11.2013 в 14:23, в сообщении № 1
чтобы дата на каждом листике изменялась при печати.

Цитата igrtsk, 02.12.2013 в 10:52, в сообщении № 4
формула простая - =СЕГОДНЯ()

??? ;)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеigrtsk,
Цитата cherub07, 29.11.2013 в 14:23, в сообщении № 1
чтобы дата на каждом листике изменялась при печати.

Цитата igrtsk, 02.12.2013 в 10:52, в сообщении № 4
формула простая - =СЕГОДНЯ()

??? ;)
Автор - китин
Дата добавления - 02.12.2013 в 12:17
cherub07 Дата: Понедельник, 02.12.2013, 15:05 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
нет, мне нужно что бы на каждом листе при печати менялась дата.
допустим печатаю сегодня 30 копий и на этих копиях долна быть разная дата текущего месяца.
 
Ответить
Сообщениенет, мне нужно что бы на каждом листе при печати менялась дата.
допустим печатаю сегодня 30 копий и на этих копиях долна быть разная дата текущего месяца.
Автор - cherub07
Дата добавления - 02.12.2013 в 15:05
AndreTM Дата: Понедельник, 02.12.2013, 18:17 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Цитата cherub07, 02.12.2013 в 15:05, в сообщении № 6
30 копий и на этих копиях долна быть разная дата текущего месяца
а если месяц - февраль? :D

Копия - она потому и копия, что не отличается ничем. В случае же изменения каких-либо данных надо использовать понятие экземпляр на основе шаблона/формы. И вы бы сразу поняли, что вам надо "сформировать 25-30 различных документов, каждый из которых распечатать".

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
Цитата cherub07, 02.12.2013 в 15:05, в сообщении № 6
30 копий и на этих копиях долна быть разная дата текущего месяца
а если месяц - февраль? :D

Копия - она потому и копия, что не отличается ничем. В случае же изменения каких-либо данных надо использовать понятие экземпляр на основе шаблона/формы. И вы бы сразу поняли, что вам надо "сформировать 25-30 различных документов, каждый из которых распечатать".
Автор - AndreTM
Дата добавления - 02.12.2013 в 18:17
Wasilich Дата: Понедельник, 02.12.2013, 21:51 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата cherub07, 02.12.2013 в 15:05, в сообщении № 6
допустим печатаю сегодня 30 копий и на этих копиях долна быть разная дата текущего месяца.
Не, ну, нормально можно пояснить что надо то. Что значит "Разная дата"?

Если по возрастающей, то так можно.
[vba]
Код
Sub printer()
      Range("A1:AJ63").PrintOut Copies:=1
      Range("AE1") = Range("AE1")+1
End Sub
[/vba]


Сообщение отредактировал Wasilic - Понедельник, 02.12.2013, 21:52
 
Ответить
Сообщение
Цитата cherub07, 02.12.2013 в 15:05, в сообщении № 6
допустим печатаю сегодня 30 копий и на этих копиях долна быть разная дата текущего месяца.
Не, ну, нормально можно пояснить что надо то. Что значит "Разная дата"?

Если по возрастающей, то так можно.
[vba]
Код
Sub printer()
      Range("A1:AJ63").PrintOut Copies:=1
      Range("AE1") = Range("AE1")+1
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 02.12.2013 в 21:51
cherub07 Дата: Вторник, 03.12.2013, 16:51 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Wasilic, "Разная дата" - 02.01.2014, 03.01.2014 и так целый месяц. Но на каждом листе при печати другая дата.
 
Ответить
СообщениеWasilic, "Разная дата" - 02.01.2014, 03.01.2014 и так целый месяц. Но на каждом листе при печати другая дата.
Автор - cherub07
Дата добавления - 03.12.2013 в 16:51
Wasilich Дата: Вторник, 03.12.2013, 19:20 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата cherub07, 03.12.2013 в 16:51, в сообщении № 9
Wasilic, "Разная дата" - 02.01.2014, 03.01.2014 и так целый месяц.
И что, мой код не подходит?
 
Ответить
Сообщение
Цитата cherub07, 03.12.2013 в 16:51, в сообщении № 9
Wasilic, "Разная дата" - 02.01.2014, 03.01.2014 и так целый месяц.
И что, мой код не подходит?
Автор - Wasilich
Дата добавления - 03.12.2013 в 19:20
Матраскин Дата: Среда, 04.12.2013, 09:37 | Сообщение № 11
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
cherub07,
[vba]
Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     For i = Sheets.Count To 1 Step -1
         Sheets(i).Select
         Cells(1, 1) = Date
     Next
End Sub
[/vba]
просто жмёте печать, и в ячейке А1 на всех листах книги появляется системная дата ^_^
К сообщению приложен файл: Print.xls (33.0 Kb)

в интернете опять кто-то не прав
 
Ответить
Сообщениеcherub07,
[vba]
Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     For i = Sheets.Count To 1 Step -1
         Sheets(i).Select
         Cells(1, 1) = Date
     Next
End Sub
[/vba]
просто жмёте печать, и в ячейке А1 на всех листах книги появляется системная дата ^_^
Автор - Матраскин
Дата добавления - 04.12.2013 в 09:37
Wasilich Дата: Среда, 04.12.2013, 17:04 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Матраскин, он печатает с одного листа несколько копий и на каждой копии нужна следующая (от первоначальной) дата.
 
Ответить
СообщениеМатраскин, он печатает с одного листа несколько копий и на каждой копии нужна следующая (от первоначальной) дата.
Автор - Wasilich
Дата добавления - 04.12.2013 в 17:04
Матраскин Дата: Среда, 04.12.2013, 17:21 | Сообщение № 13
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
тогда убрать цикл и селект.

в интернете опять кто-то не прав
 
Ответить
Сообщениетогда убрать цикл и селект.
Автор - Матраскин
Дата добавления - 04.12.2013 в 17:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменение даты при печати (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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