Здравствуйте! Помогите, пожалуйста, барану - т.е. мне, сделать такую штуку: на лист1 есть табличка (количество строк в ней меняется) - из нее надо поочередно вставить данные на лист2 и напечатать лист2. Т.е вставили данные из строки 1 - напечатали, заменяем данными из строки 2 - напечатали...
Буду очень признателен и благодарен!!!
пояснениями в коде очень бы помогли мне в дальнейшем понимании ВБА!
Еще раз СПАСИБО!
Здравствуйте! Помогите, пожалуйста, барану - т.е. мне, сделать такую штуку: на лист1 есть табличка (количество строк в ней меняется) - из нее надо поочередно вставить данные на лист2 и напечатать лист2. Т.е вставили данные из строки 1 - напечатали, заменяем данными из строки 2 - напечатали...
Буду очень признателен и благодарен!!!
пояснениями в коде очень бы помогли мне в дальнейшем понимании ВБА!
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]
Так нужно? [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