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

Вход

Регистрация

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

 

= Мир MS Excel/Перебор и печать непустых ячеек столбца - Мир MS Excel

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

Excel 2007
Добрый день! Прошу помочь в моей рутине. Есть документ в котором необходимо ввести артикул и распечатать его. Я обычно делаю так: вставляю в столбец все артикулы и по очереди приравниваю их к ячейке которая находится в области печати и распечатываю. В макросах я не силен, пытался написать простой цикл, который по очереди приравнивет значение ячейки и распечатывает до пустой ячейки, но все впустую. Подскажите как правильно сделать. Заранее спасибо. Пример в приложении.
К сообщению приложен файл: 3499833.xlsx (9.7 Kb)
 
Ответить
СообщениеДобрый день! Прошу помочь в моей рутине. Есть документ в котором необходимо ввести артикул и распечатать его. Я обычно делаю так: вставляю в столбец все артикулы и по очереди приравниваю их к ячейке которая находится в области печати и распечатываю. В макросах я не силен, пытался написать простой цикл, который по очереди приравнивет значение ячейки и распечатывает до пустой ячейки, но все впустую. Подскажите как правильно сделать. Заранее спасибо. Пример в приложении.

Автор - dolson
Дата добавления - 05.08.2017 в 10:12
Michael_S Дата: Суббота, 05.08.2017, 10:43 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Я обычно делаю так: вставляю в столбец все артикулы и по очереди приравниваю их к ячейке которая находится в области печати и распечатываю.
Непонятно, что нужно распечатать.
Можно в примере чуть больше информации?
 
Ответить
Сообщение
Я обычно делаю так: вставляю в столбец все артикулы и по очереди приравниваю их к ячейке которая находится в области печати и распечатываю.
Непонятно, что нужно распечатать.
Можно в примере чуть больше информации?

Автор - Michael_S
Дата добавления - 05.08.2017 в 10:43
dolson Дата: Суббота, 05.08.2017, 11:36 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
в примере в области печати ячейка А1, ее нужно распечатать сперва со значением ячейки Е1, затем Е2, затем Е3 и т.д. до пустой ячейки
 
Ответить
Сообщениев примере в области печати ячейка А1, ее нужно распечатать сперва со значением ячейки Е1, затем Е2, затем Е3 и т.д. до пустой ячейки

Автор - dolson
Дата добавления - 05.08.2017 в 11:36
Kuzmich Дата: Суббота, 05.08.2017, 12:12 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код

Sub iPrint()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "E").End(xlUp).Row
  For i = 1 To iLastRow
    Range("A1") = Cells(i, "E")
    Range("A1:B5").PrintOut copies:=1
  Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код

Sub iPrint()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "E").End(xlUp).Row
  For i = 1 To iLastRow
    Range("A1") = Cells(i, "E")
    Range("A1:B5").PrintOut copies:=1
  Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 05.08.2017 в 12:12
dolson Дата: Суббота, 05.08.2017, 12:26 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо! Все работает!
 
Ответить
СообщениеСпасибо! Все работает!

Автор - dolson
Дата добавления - 05.08.2017 в 12:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перебор и печать непустых ячеек столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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