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

Вход

Регистрация

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

 

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

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

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

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

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

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


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

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

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

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

2010, 2013, 2016 RUS / ENG
cobra77777, вас правда все предыдущие замечания ничему не научили?
 
Ответить
Сообщениеcobra77777, вас правда все предыдущие замечания ничему не научили?
Автор - buchlotnik
Дата добавления - 01.11.2017 в 16:18
cobra77777 Дата: Среда, 01.11.2017, 16:19 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
А что на этот раз ?
 
Ответить
СообщениеА что на этот раз ?
Автор - cobra77777
Дата добавления - 01.11.2017 в 16:19
InExSu Дата: Четверг, 02.11.2017, 22:58 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

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

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
Вы хотите после посылки на печать
[vba]
Код
range("C2").value = "РАСПЕЧАТАНО"
[/vba]
?
Автор - InExSu
Дата добавления - 02.11.2017 в 22:58
K-SerJC Дата: Пятница, 03.11.2017, 08:13 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 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
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

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

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