|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.01.2013, 12:34 | #1 |
Новичок
Джуниор
Регистрация: 24.01.2013
Сообщений: 2
|
макрос на повторение
Есть макрос, подскажите пожалуйста какую нужно добавить команду что бы данный макрос запускался столько, сколько стоит в определенной ячейке ( то есть кол-во повторов по значению из ячейки) .
Sub Копи_строк() ' ' Копи_строк Макрос Rows("15:15").Select Selection.Copy A_LastRow = Cells(Rows.Count, 1).End(xlUp).Select + 1 Selection.Insert Shift:=xlDown End Sub |
28.01.2013, 13:09 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
28.01.2013, 13:09 | #3 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
curock77, вообще, в языках программирования используются циклы, если одно и то же действие нужно сделать несколько раз.
В VBA есть вот такие циклы:
|
28.01.2013, 13:12 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
число повторов в ячейке А2
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
28.01.2013, 13:38 | #5 |
Новичок
Джуниор
Регистрация: 24.01.2013
Сообщений: 2
|
Спасибо Hugo121 ,IgorGO за Ваши варианты, все работает.
|
24.06.2013, 14:04 | #6 | ||
Регистрация: 24.06.2013
Сообщений: 4
|
Если ещё есть кому ответить...
Цитата:
Цитата:
Кроме того, требуется чтобы повторов было столько, сколько не пустых ячеек со значением слева (указанием ячейки). Пытался вставлять в заведомо больший диапазон ячеек, но когда повторы доходят до конца данных, используемых в копируемой формуле, выскакивает ошибка. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Повторение процедуры | Firebird | Общие вопросы Delphi | 6 | 23.11.2012 12:03 |
Повторение команд | Mihanches | Общие вопросы Delphi | 5 | 07.10.2010 14:12 |
Повторение | CraftR14 | Общие вопросы Delphi | 8 | 17.04.2010 20:15 |