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

Вход

Регистрация

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

 

= Мир MS Excel/Создание номера таблицы макросом - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Создание номера таблицы макросом
ikki Дата: Суббота, 27.04.2013, 20:52 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
ну вот перед печатью и меняйте.

у книги есть событие BeforePrint
на него вешайте процедуру
и в ней перед печатью меняйте номер именно печатаемой таблицы.
правда, я пока не знаю, как определить, если на печать посылается несколько сгруппированных листов...

если такой вариант устраивает (в принципе) - то поковыряюсь, поищу...


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениену вот перед печатью и меняйте.

у книги есть событие BeforePrint
на него вешайте процедуру
и в ней перед печатью меняйте номер именно печатаемой таблицы.
правда, я пока не знаю, как определить, если на печать посылается несколько сгруппированных листов...

если такой вариант устраивает (в принципе) - то поковыряюсь, поищу...

Автор - ikki
Дата добавления - 27.04.2013 в 20:52
ОлеггелО Дата: Суббота, 27.04.2013, 21:16 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

ikki, RAN, спасибо, раз всё так сложно то пусть всё останется как есть!
 
Ответить
Сообщениеikki, RAN, спасибо, раз всё так сложно то пусть всё останется как есть!

Автор - ОлеггелО
Дата добавления - 27.04.2013 в 21:16
ОлеггелО Дата: Воскресенье, 28.04.2013, 14:25 | Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

ikki, RAN здравствуйте, и всем остальным тоже! Вот так я решил свою проблемку, хотя, конечно не совсем так как предполагал и не столь полно, да и уровень мой оставляет желать много лучшего. Но всё же ... Если, и когда, раскритикуете буду благодарен - вся наука на пользу. А я только начал! biggrin
К сообщению приложен файл: 2568212.xlsm (60.8 Kb)
 
Ответить
Сообщениеikki, RAN здравствуйте, и всем остальным тоже! Вот так я решил свою проблемку, хотя, конечно не совсем так как предполагал и не столь полно, да и уровень мой оставляет желать много лучшего. Но всё же ... Если, и когда, раскритикуете буду благодарен - вся наука на пользу. А я только начал! biggrin

Автор - ОлеггелО
Дата добавления - 28.04.2013 в 14:25
RAN Дата: Воскресенье, 28.04.2013, 18:18 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Чем-то мне эта тема эту напоминает.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЧем-то мне эта тема эту напоминает.

Автор - RAN
Дата добавления - 28.04.2013 в 18:18
ОлеггелО Дата: Воскресенье, 28.04.2013, 18:41 | Сообщение № 25
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

RAN, напоминает и ладно - аналогии свои у каждого. Не было бы нужно не спросил бы совета, которого в принципе не смог дождаться, а посмеиваться любой способен. Наверняка Вы в своё время тоже начинали с нуля, или сразу профессионал!?
 
Ответить
СообщениеRAN, напоминает и ладно - аналогии свои у каждого. Не было бы нужно не спросил бы совета, которого в принципе не смог дождаться, а посмеиваться любой способен. Наверняка Вы в своё время тоже начинали с нуля, или сразу профессионал!?

Автор - ОлеггелО
Дата добавления - 28.04.2013 в 18:41
RAN Дата: Воскресенье, 28.04.2013, 20:39 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Я не подсмеиваюсь.
Просто я думаю, что этот бутерброд нужно есть с другого конца. И проще, и вкуснее.
Но не понятно, какова же задача в целом.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЯ не подсмеиваюсь.
Просто я думаю, что этот бутерброд нужно есть с другого конца. И проще, и вкуснее.
Но не понятно, какова же задача в целом.

Автор - RAN
Дата добавления - 28.04.2013 в 20:39
ОлеггелО Дата: Понедельник, 29.04.2013, 18:10 | Сообщение № 27
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

RAN, тогда извините, что именно так подумал! Что бы было проще понять чего я хочу добиться можно посмотреть файл оставленный мною среди последних сообщений ( 2568212.xlsm(61Kb) ), а если добавить к нему то, что я хотел сделать (описано выше), получится то что надо!
 
Ответить
СообщениеRAN, тогда извините, что именно так подумал! Что бы было проще понять чего я хочу добиться можно посмотреть файл оставленный мною среди последних сообщений ( 2568212.xlsm(61Kb) ), а если добавить к нему то, что я хотел сделать (описано выше), получится то что надо!

Автор - ОлеггелО
Дата добавления - 29.04.2013 в 18:10
Jhonson Дата: Понедельник, 29.04.2013, 20:01 | Сообщение № 28
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Так наверное лучше будет?
[vba]
Код
Sub O()
Dim x As Worksheet
Dim max As Integer
For Each x In ThisWorkbook.Worksheets
      If x.Range("e8").Value > max Then max = x.Range("e8").Value
Next x
ActiveSheet.Range("e8").Value = max + 1
End Sub
[/vba]


"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Понедельник, 29.04.2013, 21:15
 
Ответить
СообщениеТак наверное лучше будет?
[vba]
Код
Sub O()
Dim x As Worksheet
Dim max As Integer
For Each x In ThisWorkbook.Worksheets
      If x.Range("e8").Value > max Then max = x.Range("e8").Value
Next x
ActiveSheet.Range("e8").Value = max + 1
End Sub
[/vba]

Автор - Jhonson
Дата добавления - 29.04.2013 в 20:01
ОлеггелО Дата: Четверг, 02.05.2013, 16:48 | Сообщение № 29
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

Jhonson, да так получше! Спасибо!
 
Ответить
СообщениеJhonson, да так получше! Спасибо!

Автор - ОлеггелО
Дата добавления - 02.05.2013 в 16:48
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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