|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.09.2012, 15:19 | #1 |
Регистрация: 03.09.2012
Сообщений: 4
|
Макрос: заполнение таблицы данными из другой таблицы с автоматическим добавлением строк
Добрый день. Прошу помощи в написании макроса.
Формулировка задачи на основе вложенного файла: Копирование данных из из ячеек таблицы на вкладке "Спецификация" в таблицу на вкладке "ТЭО" с автоматическим добавлением строк из таблицы "Спецификация", но только тех строк, которые имеют стоимость. |
05.09.2012, 15:17 | #2 |
Регистрация: 03.09.2012
Сообщений: 4
|
Нашел, как посчитать количество строк в таблице:
Range("Спецификация").Rows.Count "Спецификация" - название таблицы. Дело за малым: нужна функция, которая вставит нужное количество строк. |
05.09.2012, 15:54 | #3 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
06.09.2012, 13:15 | #4 |
Регистрация: 03.09.2012
Сообщений: 4
|
DiemonStar, спасибо. Решение соответствует поставленным условиям.
Правда, в ходе эксплуатации возникли другие условия: Ячейки таблицы "ТЭО" содержат ссылки на ячейки в таблице "Спецификация". Все, что нужно теперь - это протянуть таблицу "ТЭО" вниз так, чтобы количество строк было равное. Вот так выглядит макрос при протяжке таблицы: Sub Resize() ' ' Resize Макрос ' Добавление строк в таблицу протягиванием. ' ' ActiveSheet.ListObjects("ТЭО").Resi ze Range("$A$1:$J$22") Range("J2").Select End Sub Как видно, задан фиксированный диапазон протяжки ("$A$1:$J$22"). Но т.к. таблица "Спецификация" каждый раз будет иметь разное количество строк, требуется сослаться на количество строк в этой таблице, за исключением строки с заголовками и строки итогов. Как это сделать? |
06.09.2012, 13:57 | #5 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
06.09.2012, 15:02 | #6 |
Регистрация: 03.09.2012
Сообщений: 4
|
Выдает сообщение об ошибке:
Код:
|
06.09.2012, 15:27 | #7 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заполнение таблицы данными | Ташка | Microsoft Office Excel | 1 | 13.05.2011 11:23 |
Заполнение таблицы данными по условию | JVG | Microsoft Office Excel | 2 | 23.03.2011 18:13 |
заполнение таблицы данными | smira | Microsoft Office Excel | 9 | 31.01.2011 11:21 |
Заполнение таблицы excel данными из word | Raig | Microsoft Office Excel | 3 | 10.08.2010 14:29 |
Заполнение одной таблицы данными из другой | melok_s | Microsoft Office Excel | 7 | 20.11.2008 03:56 |