ReSQL.ru
     
powered by simpleCommunicator - 2.0.57     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос смены номера при печати
15 сообщений из 15, страница 1 из 1
Макрос смены номера при печати
    #38613323
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Доброго времени суток!
Подскажите пожалуйста, как в Excel 2003 при помощи макроса менять порядковый номер в постоянной ячейке (AN5) листа при отправке его на печать.
На данный момент есть лист на котором у ячейки поставлена кнопка (счетчик), ее хотелось бы оставить для корректировки номера.
Печатается что то типа Заданий на работу №___, данные в ячейки вставляются с другого листа по коду вбиваемому в ручную (т.е. лист с №задания используется как форма) бывает забываю переключить "счетчик". Хочется нажал на печать и номер автоматом сменился. (нумерация от 0 до 1000 шаг 1, при этом должна остаться возможность "ручного" прогона счетчика в данном диапазоне)
Думаю понять можно. Помогите не специалисту, знакомый сказал можно так сделать, вот пытаюсь с помощью умных людей реализовать.
Спасибо.
...
Рейтинг: 0 / 0
12.04.2014, 23:07
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613329
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Примерно так
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Range("AN5").Value = Range("AN5").Value + 1

End Sub

(макрос должен принадлежать книге, а не листу)

Но вообще, я толком не понял, что вам требуется, много лишних слов и уводящих в сторону предложений
...
Рейтинг: 0 / 0
12.04.2014, 23:25
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613349
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
 
Больше всего понравилось:
авторзнакомый сказал можно так сделать
Какой-то жадный знакомый :-) Раз сказал, что можно - сказал бы уж и как это можно сделать
...
Рейтинг: 0 / 0
13.04.2014, 00:17
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613416
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Shocker.Pro,
...
Рейтинг: 0 / 0
13.04.2014, 10:53
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613418
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Слепил нечто похожее, завтра на работе буду пробовать дальше. Дома нужного файла нет под руками (выходные)
...
Рейтинг: 0 / 0
13.04.2014, 10:57
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613421
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Strannick78,

вот так надо?
...
Рейтинг: 0 / 0
13.04.2014, 10:58
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613423
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Shocker.Pro, Спасибо ГУРУ!!! Именно так и нужно.
...
Рейтинг: 0 / 0
13.04.2014, 11:07
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613582
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Так и сижу, -"чем дальше в лес, тем больше дров"... все что задумано работает.
Но придумался вопрос можно ли вывести значение из ячейки? Макрос при выводе на печать меняет № (в ячейке), так вот может ли MsgBox вывести № (значение из ячейки А1) напечатан!
Текстовое сообщение не затруднило, а вот действительный номер перед глазами с простой кнопкой ОК желателен.
...
Рейтинг: 0 / 0
13.04.2014, 15:55
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613588
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Strannick78,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Range("AN5").Value = Range("AN5").Value + 1

MsgBox "№ " & Range("AN5").Value & " напечатан!"

End Sub
...
Рейтинг: 0 / 0
13.04.2014, 16:03
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613592
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Worksheets("1фПУ").Range("AL5").Value = Worksheets("1фПУ").Range("AL5").Value + 1
Worksheets("3фПУ").Range("AL5").Value = Worksheets("3фПУ").Range("AL5").Value + 1

MsgBox Range("AL5").Formula

End Sub


У меня вот так работает! Но невкурю как текст добавить для красоты))) Задание № "AL5" напечатано!
...
Рейтинг: 0 / 0
13.04.2014, 16:15
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613595
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
MsgBox "№ " & Range("AN5").Value & " напечатан!"
Выдает только текст! выпуская выделенное амперсанд
...
Рейтинг: 0 / 0
13.04.2014, 16:21
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613605
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Worksheets("1фПУ").Range("AL5").Value = Worksheets("1фПУ").Range("AL5").Value + 1
Worksheets("3фПУ").Range("AL5").Value = Worksheets("3фПУ").Range("AL5").Value + 1

MsgBox "ЗАДАНИЕ № " & Range("AL5").Value & " ОТПРАВЛЕНО НА ПЕЧАТЬ!"

End Sub

Все ОГРОМНОЕ СПАСИБО! Работает... первые шаги так привлекают)))
...
Рейтинг: 0 / 0
13.04.2014, 16:37
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613642
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Strannick78,

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
13.04.2014, 17:09
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613718
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Код: sql
1.
2.
3.
4.
5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("1фПУ").Range("AL5").Value = Worksheets("1фПУ").Range("AL5").Value + 1
Worksheets("3фПУ").Range("AL5").Value = Worksheets("3фПУ").Range("AL5").Value + 1
MsgBox "ЗАДАНИЕ № " & Range("AL5").Value - 1 & " ОТПРАВЛЕНО НА ПЕЧАТЬ!"
End Sub



Реализовал вот таким образом, все работает. Только меседж срабатывает не только на кнопку печати, но и на предварительный просмотр.
...
Рейтинг: 0 / 0
13.04.2014, 19:27
| Ответить | Цитировать | Написать  
Макрос смены номера при печати
    #38613723
Strannick78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Strannick78
Гость
Strannick78
Код: sql
1.
2.
3.
4.
5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("1фПУ").Range("AL5").Value = Worksheets("1фПУ").Range("AL5").Value + 1
Worksheets("3фПУ").Range("AL5").Value = Worksheets("3фПУ").Range("AL5").Value + 1
MsgBox "ЗАДАНИЕ № " & Range("AL5").Value - 1 & " ОТПРАВЛЕНО НА ПЕЧАТЬ!"
End Sub



Реализовал вот таким образом, все работает. Только макрос срабатывает не только на кнопку печати, но и на предварительный просмотр.
...
Рейтинг: 0 / 0
13.04.2014, 19:36
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос смены номера при печати
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38613592&tid=2174108]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 13ms
total:  159ms
созд. / загр.: 159ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]