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

Вход

Регистрация

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

 

= Мир MS Excel/Печать страниц, с номерами из ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать страниц, с номерами из ячейки (Макросы/Sub)
Печать страниц, с номерами из ячейки
Sergey0109 Дата: Пятница, 27.10.2023, 16:45 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, уважаемые форумчане!
Прошу вашей помощи, в написании макроса.
Сижу на работе, уже всю голову сломал. (а точнее весь интернет изрыл, т.к. около нулевой опыт в vba) .

Итак: есть ячейка А1, в ней, формула собирает номера страниц для печати (=СЦЕПИТЬ(В1;",";В2;","; и т.д) . Ниже кнопка, при нажатии на которую, должна выполниться печать страниц с указанными номерами в А1. Нумерация не по порядку.
Файл приложить не могу, пишу с телефона.
Большое спасибо заранее!
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане!
Прошу вашей помощи, в написании макроса.
Сижу на работе, уже всю голову сломал. (а точнее весь интернет изрыл, т.к. около нулевой опыт в vba) .

Итак: есть ячейка А1, в ней, формула собирает номера страниц для печати (=СЦЕПИТЬ(В1;",";В2;","; и т.д) . Ниже кнопка, при нажатии на которую, должна выполниться печать страниц с указанными номерами в А1. Нумерация не по порядку.
Файл приложить не могу, пишу с телефона.
Большое спасибо заранее!

Автор - Sergey0109
Дата добавления - 27.10.2023 в 16:45
Serge_007 Дата: Пятница, 27.10.2023, 17:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16452
Репутация: 2746 ±
Замечаний: ±

Excel 2016
Здравствуйте
Файл приложить не могу, пишу с телефона
А макрос как Вы с телефона собираетесь запускать?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте
Файл приложить не могу, пишу с телефона
А макрос как Вы с телефона собираетесь запускать?

Автор - Serge_007
Дата добавления - 27.10.2023 в 17:47
MikeVol Дата: Пятница, 27.10.2023, 17:56 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
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
Дата добавления - 27.10.2023 в 17:56
Sergey0109 Дата: Пятница, 27.10.2023, 20:47 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Спасибо за ответы! Я имел ввиду, что тут пишу с телефона, поэтому файл приложить не могу. А комп с экселем на работе. Извинияюсь за демагогию!)))
 
Ответить
СообщениеСпасибо за ответы! Я имел ввиду, что тут пишу с телефона, поэтому файл приложить не могу. А комп с экселем на работе. Извинияюсь за демагогию!)))

Автор - Sergey0109
Дата добавления - 27.10.2023 в 20:47
MikeVol Дата: Суббота, 28.10.2023, 05:03 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
Sergey0109, Мы это поняли, шутить мы тоже любим. Удачи.


Ученик.
 
Ответить
СообщениеSergey0109, Мы это поняли, шутить мы тоже любим. Удачи.

Автор - MikeVol
Дата добавления - 28.10.2023 в 05:03
Sergey0109 Дата: Суббота, 28.10.2023, 12:35 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

К сожалению не запускается... То одна строчка подсвечивается, то другая.
 
Ответить
СообщениеК сожалению не запускается... То одна строчка подсвечивается, то другая.

Автор - Sergey0109
Дата добавления - 28.10.2023 в 12:35
MikeVol Дата: Воскресенье, 29.10.2023, 14:08 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
Sergey0109, Приложите файл пример с кодом что у вас
не запускается

UPDATED! У меня всё работает, смотрим файл пример от меня так как от вас нет ничего в доказательство.
К сообщению приложен файл: 29_10_2023_exw_pechat_stranic_.xlsm (20.5 Kb)


Ученик.

Сообщение отредактировал MikeVol - Воскресенье, 29.10.2023, 17:05
 
Ответить
СообщениеSergey0109, Приложите файл пример с кодом что у вас
не запускается

UPDATED! У меня всё работает, смотрим файл пример от меня так как от вас нет ничего в доказательство.

Автор - MikeVol
Дата добавления - 29.10.2023 в 14:08
Serge_007 Дата: Воскресенье, 29.10.2023, 18:55 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16452
Репутация: 2746 ±
Замечаний: ±

Excel 2016
о одна строчка подсвечивается, то другая
Это такой код - дискотечный


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
о одна строчка подсвечивается, то другая
Это такой код - дискотечный

Автор - Serge_007
Дата добавления - 29.10.2023 в 18:55
MikeVol Дата: Воскресенье, 29.10.2023, 20:16 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
дискотечный

Так и было задумано пользователем.


Ученик.

Сообщение отредактировал MikeVol - Воскресенье, 29.10.2023, 20:18
 
Ответить
Сообщение
дискотечный

Так и было задумано пользователем.

Автор - MikeVol
Дата добавления - 29.10.2023 в 20:16
Sergey0109 Дата: Понедельник, 30.10.2023, 12:33 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, ещё раз!
Посмотрел я приложенный Вами файл, и долго ломал голову! Что ч только не делал, и в итоге я понял!
Отлично! Ваш файл работает, и кнопка! Вот только есть одно НО! Если в А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
Дата добавления - 30.10.2023 в 12:33
MikeVol Дата: Среда, 01.11.2023, 01:24 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
А мне нужны страницы!

А вот тут по подробнее. Что вы подразумеваете и что для вас
У меня рабочий Лист1
?


Ученик.
 
Ответить
Сообщение
А мне нужны страницы!

А вот тут по подробнее. Что вы подразумеваете и что для вас
У меня рабочий Лист1
?

Автор - MikeVol
Дата добавления - 01.11.2023 в 01:24
Sergey0109 Дата: Среда, 01.11.2023, 13:36 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, MikeVol!
Вот я создал файл. Работаю я только(!) в "Лист1".
Набираю я таблицы, всего 80 шт. Они идут подряд в низ. Т. е. : А20:Х1090 - это все на одном листе!
Вся таблица занимает порядка 80 страниц, то есть по одной таблице на стр.
При печати, можно выбрать только диапазон с ___ по ___.
А мне нужно выборочно, номера которые указаны в ячейке А1.
Надеюсь понятно расписал.
Спасибо за вашу вовлеченность и помощь!
 
Ответить
СообщениеЗдравствуйте, MikeVol!
Вот я создал файл. Работаю я только(!) в "Лист1".
Набираю я таблицы, всего 80 шт. Они идут подряд в низ. Т. е. : А20:Х1090 - это все на одном листе!
Вся таблица занимает порядка 80 страниц, то есть по одной таблице на стр.
При печати, можно выбрать только диапазон с ___ по ___.
А мне нужно выборочно, номера которые указаны в ячейке А1.
Надеюсь понятно расписал.
Спасибо за вашу вовлеченность и помощь!

Автор - Sergey0109
Дата добавления - 01.11.2023 в 13:36
MikeVol Дата: Среда, 01.11.2023, 21:25 | Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 291
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
Sergey0109, Понятно. Ну, ждите помощь, возможно кто-то вам и поможет так ваш последний пост отличается от вашего первого поста очень сильно. Надо было всё чотко в первом посте расписать - объяснить, а я пасс. Удачи.


Ученик.
 
Ответить
СообщениеSergey0109, Понятно. Ну, ждите помощь, возможно кто-то вам и поможет так ваш последний пост отличается от вашего первого поста очень сильно. Надо было всё чотко в первом посте расписать - объяснить, а я пасс. Удачи.

Автор - MikeVol
Дата добавления - 01.11.2023 в 21:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать страниц, с номерами из ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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