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

Вход

Регистрация

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

 

= Мир MS Excel/Поочередная вставка данных и печать - Мир MS Excel

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

Excel 2010
Здравствуйте!
Помогите, пожалуйста, барану - т.е. мне, сделать такую штуку: на лист1 есть табличка (количество строк в ней меняется) - из нее надо поочередно вставить данные на лист2 и напечатать лист2. Т.е вставили данные из строки 1 - напечатали, заменяем данными из строки 2 - напечатали...

Буду очень признателен и благодарен!!!

пояснениями в коде очень бы помогли мне в дальнейшем понимании ВБА!

Еще раз СПАСИБО!
К сообщению приложен файл: 9678089.xlsm (11.5 Kb)


Век живи - век учись!
 
Ответить
СообщениеЗдравствуйте!
Помогите, пожалуйста, барану - т.е. мне, сделать такую штуку: на лист1 есть табличка (количество строк в ней меняется) - из нее надо поочередно вставить данные на лист2 и напечатать лист2. Т.е вставили данные из строки 1 - напечатали, заменяем данными из строки 2 - напечатали...

Буду очень признателен и благодарен!!!

пояснениями в коде очень бы помогли мне в дальнейшем понимании ВБА!

Еще раз СПАСИБО!

Автор - urlchik
Дата добавления - 13.06.2018 в 20:54
_Boroda_ Дата: Среда, 13.06.2018, 21:40 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub PrintVse()
    ar = Sheets(1).Range("Таблица1").Value
    For i = 1 To UBound(ar)
        Cells(2, 1) = ar(i, 1)
        Cells(5, 2) = ar(i, 2)
        Cells(5, 3) = ar(i, 3)
        Cells(5, 4) = ar(i, 4)
        Cells(8, 1) = ar(i, 5)
        Me.PrintOut
    Next i
End Sub
[/vba]
К сообщению приложен файл: 9678089_1.xlsm (19.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub PrintVse()
    ar = Sheets(1).Range("Таблица1").Value
    For i = 1 To UBound(ar)
        Cells(2, 1) = ar(i, 1)
        Cells(5, 2) = ar(i, 2)
        Cells(5, 3) = ar(i, 3)
        Cells(5, 4) = ar(i, 4)
        Cells(8, 1) = ar(i, 5)
        Me.PrintOut
    Next i
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 13.06.2018 в 21:40
urlchik Дата: Четверг, 14.06.2018, 19:32 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Так нужно?

Ничего себе!!! Так кратко? Мне казалось что кода будет строк на 50...

ПЛЮСУЮ!!! Спасибо!


Век живи - век учись!
 
Ответить
Сообщение
Так нужно?

Ничего себе!!! Так кратко? Мне казалось что кода будет строк на 50...

ПЛЮСУЮ!!! Спасибо!

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

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