Здравствуйте, уважаемые форумчане! Прошу вашей помощи, в написании макроса. Сижу на работе, уже всю голову сломал. (а точнее весь интернет изрыл, т.к. около нулевой опыт в vba) .
Итак: есть ячейка А1, в ней, формула собирает номера страниц для печати (=СЦЕПИТЬ(В1;",";В2;","; и т.д) . Ниже кнопка, при нажатии на которую, должна выполниться печать страниц с указанными номерами в А1. Нумерация не по порядку. Файл приложить не могу, пишу с телефона. Большое спасибо заранее!
Здравствуйте, уважаемые форумчане! Прошу вашей помощи, в написании макроса. Сижу на работе, уже всю голову сломал. (а точнее весь интернет изрыл, т.к. около нулевой опыт в vba) .
Итак: есть ячейка А1, в ней, формула собирает номера страниц для печати (=СЦЕПИТЬ(В1;",";В2;","; и т.д) . Ниже кнопка, при нажатии на которую, должна выполниться печать страниц с указанными номерами в А1. Нумерация не по порядку. Файл приложить не могу, пишу с телефона. Большое спасибо заранее!Sergey0109
Sergey0109, Доброго времени суток. С телефона вы точно данный код не запустите. Ловите. [vba]
Код
Option Explicit
Sub SergeyPrintOut() Dim WsList As Variant Dim WsCount As Variant: WsCount = Split(ThisWorkbook.Worksheets("Sheet1").Range("A1").Value, ",")
For Each WsList In WsCount
If IsNumeric(WsList) Then Worksheets(CInt(WsList)).PrintOut End If
Next WsList
Application.Goto ThisWorkbook.Worksheets("Sheet1").Range("A1") MsgBox "Шеф, мы это сделали! Удачи тебе в следуйщиий раз! ", vbInformation, "Печать" End Sub
[/vba] Надеюсь вы самостоятельно сможете вставить данный код в стандартный модуль и на лист вставить кнопку и привязать код к ней. Удачи.
Sergey0109, Доброго времени суток. С телефона вы точно данный код не запустите. Ловите. [vba]
Код
Option Explicit
Sub SergeyPrintOut() Dim WsList As Variant Dim WsCount As Variant: WsCount = Split(ThisWorkbook.Worksheets("Sheet1").Range("A1").Value, ",")
For Each WsList In WsCount
If IsNumeric(WsList) Then Worksheets(CInt(WsList)).PrintOut End If
Next WsList
Application.Goto ThisWorkbook.Worksheets("Sheet1").Range("A1") MsgBox "Шеф, мы это сделали! Удачи тебе в следуйщиий раз! ", vbInformation, "Печать" End Sub
[/vba] Надеюсь вы самостоятельно сможете вставить данный код в стандартный модуль и на лист вставить кнопку и привязать код к ней. Удачи.MikeVol
Спасибо за ответы! Я имел ввиду, что тут пишу с телефона, поэтому файл приложить не могу. А комп с экселем на работе. Извинияюсь за демагогию!)))
Спасибо за ответы! Я имел ввиду, что тут пишу с телефона, поэтому файл приложить не могу. А комп с экселем на работе. Извинияюсь за демагогию!)))Sergey0109
Здравствуйте, ещё раз! Посмотрел я приложенный Вами файл, и долго ломал голову! Что ч только не делал, и в итоге я понял! Отлично! Ваш файл работает, и кнопка! Вот только есть одно НО! Если в А1 будут номера 2,4,то на печать выводятся: лист2, лист4! А мне нужны страницы! У меня рабочий Лист1, и всё, ниже идут страницы 2,3,4,...80. И когда в А1 будет допустим : 5,6,23,48,66, нужно чтоб они печатались. Спасибо за вашу помощь и потраченное время. Данная формула мне тоже пригодится, надеюсь...
Здравствуйте, ещё раз! Посмотрел я приложенный Вами файл, и долго ломал голову! Что ч только не делал, и в итоге я понял! Отлично! Ваш файл работает, и кнопка! Вот только есть одно НО! Если в А1 будут номера 2,4,то на печать выводятся: лист2, лист4! А мне нужны страницы! У меня рабочий Лист1, и всё, ниже идут страницы 2,3,4,...80. И когда в А1 будет допустим : 5,6,23,48,66, нужно чтоб они печатались. Спасибо за вашу помощь и потраченное время. Данная формула мне тоже пригодится, надеюсь...Sergey0109
Здравствуйте, MikeVol! Вот я создал файл. Работаю я только(!) в "Лист1". Набираю я таблицы, всего 80 шт. Они идут подряд в низ. Т. е. : А20:Х1090 - это все на одном листе! Вся таблица занимает порядка 80 страниц, то есть по одной таблице на стр. При печати, можно выбрать только диапазон с ___ по ___. А мне нужно выборочно, номера которые указаны в ячейке А1. Надеюсь понятно расписал. Спасибо за вашу вовлеченность и помощь!
Здравствуйте, MikeVol! Вот я создал файл. Работаю я только(!) в "Лист1". Набираю я таблицы, всего 80 шт. Они идут подряд в низ. Т. е. : А20:Х1090 - это все на одном листе! Вся таблица занимает порядка 80 страниц, то есть по одной таблице на стр. При печати, можно выбрать только диапазон с ___ по ___. А мне нужно выборочно, номера которые указаны в ячейке А1. Надеюсь понятно расписал. Спасибо за вашу вовлеченность и помощь!Sergey0109
Sergey0109, Понятно. Ну, ждите помощь, возможно кто-то вам и поможет так ваш последний пост отличается от вашего первого поста очень сильно. Надо было всё чотко в первом посте расписать - объяснить, а я пасс. Удачи.
Sergey0109, Понятно. Ну, ждите помощь, возможно кто-то вам и поможет так ваш последний пост отличается от вашего первого поста очень сильно. Надо было всё чотко в первом посте расписать - объяснить, а я пасс. Удачи.MikeVol
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Ловите. [vba]
