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

Вход

Регистрация

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

 

= Мир MS Excel/При слиянии списка ставить признак распечатано ? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При слиянии списка ставить признак распечатано ? (Макросы/Sub)
При слиянии списка ставить признак распечатано ?
cobra77777 Дата: Среда, 01.11.2017, 15:39 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: -14 ±
Замечаний: 60% ±

Excel 2013
Здравствуйте!

Есть список в xls (файл прикр.)

Вопрос: При печати можно как то VBA средствами или без нее чтобы признак ставился "РАСПЕЧАТАНО" ?

Спасибо
К сообщению приложен файл: 1949697.xlsx(8Kb)


Сообщение отредактировал cobra77777 - Среда, 01.11.2017, 16:47
 
Ответить
СообщениеЗдравствуйте!

Есть список в xls (файл прикр.)

Вопрос: При печати можно как то VBA средствами или без нее чтобы признак ставился "РАСПЕЧАТАНО" ?

Спасибо

Автор - cobra77777
Дата добавления - 01.11.2017 в 15:39
buchlotnik Дата: Среда, 01.11.2017, 16:18 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3327
Репутация: 886 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
cobra77777, вас правда все предыдущие замечания ничему не научили?


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщениеcobra77777, вас правда все предыдущие замечания ничему не научили?

Автор - buchlotnik
Дата добавления - 01.11.2017 в 16:18
cobra77777 Дата: Среда, 01.11.2017, 16:19 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: -14 ±
Замечаний: 60% ±

Excel 2013
А что на этот раз ?
 
Ответить
СообщениеА что на этот раз ?

Автор - cobra77777
Дата добавления - 01.11.2017 в 16:19
InExSu Дата: Четверг, 02.11.2017, 22:58 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 241
Репутация: 28 ±
Замечаний: 80% ±

Excel 2010
Привет!
Вы хотите после посылки на печать
[vba]
Код
range("C2").value = "РАСПЕЧАТАНО"
[/vba]
?
 
Ответить
СообщениеПривет!
Вы хотите после посылки на печать
[vba]
Код
range("C2").value = "РАСПЕЧАТАНО"
[/vba]
?

Автор - InExSu
Дата добавления - 02.11.2017 в 22:58
K-SerJC Дата: Пятница, 03.11.2017, 08:13 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 294
Репутация: 41 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim lr
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Cells(lr, 2).Value = "РАСПЕЧАТАНО"
End Sub
[/vba]


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim lr
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Cells(lr, 2).Value = "РАСПЕЧАТАНО"
End Sub
[/vba]

Автор - K-SerJC
Дата добавления - 03.11.2017 в 08:13
cobra77777 Дата: Пятница, 03.11.2017, 10:06 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: -14 ±
Замечаний: 60% ±

Excel 2013
Всем большое спасибо.
 
Ответить
СообщениеВсем большое спасибо.

Автор - cobra77777
Дата добавления - 03.11.2017 в 10:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При слиянии списка ставить признак распечатано ? (Макросы/Sub)
Страница 1 из 11
Поиск:

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