Перенос данных, вставка строки "ИТОГО НА СТРАНИЦЕ"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных, вставка строки "ИТОГО НА СТРАНИЦЕ" (Макросы/Sub)

Pyotr

Дата: Воскресенье, 18.01.2015, 13:17 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

На Листе1 Книги имеется таблица с данными, применяя средства VBA необходимо:
1. перенести данные с таблицы на 1-ом листе, в соответствующие ячейки таблицы на 2-ом листе (сделано)

[vba]

Код

Sub Кнопка1_Щелчок()

Application.ScreenUpdating = False

Dim i, j, iL, m As Long

iL = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

j = 11
m = 1

For i = 2 To iL
Sheets("Лист2").Cells(j, 1) = m
Sheets("Лист2").Cells(j, 2) = Sheets("Лист1").Cells(i, 2)
Sheets("Лист2").Cells(j, 6) = Sheets("Лист1").Cells(i, 4)
Sheets("Лист2").Cells(j, 7) = Sheets("Лист1").Cells(i, 3)
Sheets("Лист2").Cells(j, 9) = Sheets("Лист1").Cells(i, 5)
Sheets("Лист2").Cells(j, 10) = Sheets("Лист1").Cells(i, 6)
Sheets("Лист2").Cells(j, 12) = Sheets("Лист1").Cells(i, 7)
Sheets("Лист2").Cells(j, 13) = Sheets("Лист1").Cells(i, 8)
Sheets("Лист2").Cells(j, 15) = Sheets("Лист1").Cells(i, 9)
Sheets("Лист2").Cells(j, 16) = Sheets("Лист1").Cells(i, 10)

j = j + 1
m = m + 1
Next i

End Sub

[/vba]

2. Ориентация листа "альбомная", необходимо с помощью этого же макроса добавить последней строкой страницы, выводимой на печать, строку "ИТОГО НА СТРАНИЦЕ", как показано в примере на Листе3, при этом по столбцам вес, объем, рост должна выводится сумма ячеек на странице. (должно учитываться, что диапозон A10:P10 сквозной и будет печататься на каждой странице, следовательно строки могут сместиться ниже)

Возможно ли это вообще сделать програмно?

[moder]Оформляем коды тегами
кнопка #
Правила пункт 3
А в целом с таким подходом к вопросу о помощи, Вам СЮДА[/moder]

Код

К сообщению приложен файл: _Microsoft_Exce.xlsm (55.9 Kb)

Сообщение отредактировал DJ_Marker_MC - Понедельник, 19.01.2015, 09:57

Ответить

СообщениеНа Листе1 Книги имеется таблица с данными, применяя средства VBA необходимо:
1. перенести данные с таблицы на 1-ом листе, в соответствующие ячейки таблицы на 2-ом листе (сделано)

[vba]

Код

Автор - Pyotr
Дата добавления - 18.01.2015 в 13:17

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных, вставка строки "ИТОГО НА СТРАНИЦЕ" (Макросы/Sub)

Страница 1 из 1
1