Нужна помощь

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Злобыч
Сообщения: 3
Зарегистрирован: 15 ноя 2007, 04:59

Дано:
Некая таблица, на двух листах, как на третьем листе вывести обе таблицы, одна под другой, при условии что у обоих таблиц меняется число строк (добавляются и убираются счета).
Serge_Bliznykov
Сообщения: 375
Зарегистрирован: 31 авг 2007, 03:06

Решается достаточно простым макросом!
А по какому событию? Динамически (как только строчки на листе 1/2 добавились, убрались)? тогда будет рабоут тормозить нещадно!
Лучше макрос выполнять ручками по мере необходимости (или повесить на смену листов, хотя бы!)
Злобыч
Сообщения: 3
Зарегистрирован: 15 ноя 2007, 04:59

1 раз в день мне нужно будет такую табличку делать, т.е. собрал инфу на 1м и втором листе, а потом пошли разносица по другим листам. Можно в принципе и кнопочкой копирование проводить. :) Я не программист и из языков знаю только русский и русский матерный :) Мне важен результат :)
Pavel55
Сообщения: 418
Зарегистрирован: 20 окт 2006, 11:40
Откуда: Moscow

Точно не знаю, что Вам нужно. Но посмотрите пример

P.S. Чтобы посмотреть код макроса - щёлкните мышкой на ярлычке Лист3 (внизу) и выберите "Исходный текст"
Вложения
Таблицы.zip
(12.03 КБ) 33 скачивания
Pavel55
Сообщения: 418
Зарегистрирован: 20 окт 2006, 11:40
Откуда: Moscow

Вот ответ на Лич. Сообщение

Код: Выделить всё

Private Sub CommandButton1_Click()
    Sheets("Лист4").Cells.Clear 'очищаем ячейки на Лист4
    Sheets("Лист5").Cells.Clear 'очищаем ячейки на Лист5
    Sheets("Лист1").UsedRange.Copy Destination:=Sheets("Лист4").Range("A10")
    Sheets("Лист2").UsedRange.Copy Destination:=Sheets("Лист5").Range("A15")
End Sub
Злобыч
Сообщения: 3
Зарегистрирован: 15 ноя 2007, 04:59

Большое спасибо :)
Ответить