![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 03.09.2012
Сообщений: 4
|
![]()
Добрый день. Прошу помощи в написании макроса.
Формулировка задачи на основе вложенного файла: Копирование данных из из ячеек таблицы на вкладке "Спецификация" в таблицу на вкладке "ТЭО" с автоматическим добавлением строк из таблицы "Спецификация", но только тех строк, которые имеют стоимость. |
![]() |
![]() |
![]() |
#2 |
Регистрация: 03.09.2012
Сообщений: 4
|
![]()
Нашел, как посчитать количество строк в таблице:
Range("Спецификация").Rows.Count "Спецификация" - название таблицы. Дело за малым: нужна функция, которая вставит нужное количество строк. |
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Код:
Правильно поставленная задача - три четверти решения.
|
![]() |
![]() |
![]() |
#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"). Но т.к. таблица "Спецификация" каждый раз будет иметь разное количество строк, требуется сослаться на количество строк в этой таблице, за исключением строки с заголовками и строки итогов. Как это сделать? |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Код:
Правильно поставленная задача - три четверти решения.
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 03.09.2012
Сообщений: 4
|
![]()
Выдает сообщение об ошибке:
Код:
|
![]() |
![]() |
![]() |
#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 |