Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставить строку в таблицу (по материалам прошлой темы) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить строку в таблицу (по материалам прошлой темы) (Макросы/Sub)
Вставить строку в таблицу (по материалам прошлой темы)
Лорик Дата: Четверг, 02.06.2016, 08:09 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем доброго дня!
Обращаюсь снова за помощью к гуру VBA.
При содействии Ветеранов форума "изобразила" макрос вставки строки (по шаблону) в таблицу. Подскажите, как прописать (в макросе) условие вставки определенного количества строк (шаблонов), исходя из значения указанного в нужной ячейке. Условия в файле (сохранен в формате 97-2003).
К сообщению приложен файл: 4023735.xls(56Kb)
 
Ответить
СообщениеВсем доброго дня!
Обращаюсь снова за помощью к гуру VBA.
При содействии Ветеранов форума "изобразила" макрос вставки строки (по шаблону) в таблицу. Подскажите, как прописать (в макросе) условие вставки определенного количества строк (шаблонов), исходя из значения указанного в нужной ячейке. Условия в файле (сохранен в формате 97-2003).

Автор - Лорик
Дата добавления - 02.06.2016 в 08:09
Pelena Дата: Четверг, 02.06.2016, 08:22 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9890
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Здравствуйте.
Первое, что приходит на ум: добавить цикл.

UPD. Или без цикла
[vba]
Код
Sub Добавить()
    Application.ScreenUpdating = False
        [Образец].Copy:
        [последняя].Resize([a1]).Insert Shift:=xlDown
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 6902785.xls(56Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Первое, что приходит на ум: добавить цикл.

UPD. Или без цикла
[vba]
Код
Sub Добавить()
    Application.ScreenUpdating = False
        [Образец].Copy:
        [последняя].Resize([a1]).Insert Shift:=xlDown
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Pelena
Дата добавления - 02.06.2016 в 08:22
wild_pig Дата: Четверг, 02.06.2016, 09:15 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 85 ±
Замечаний: 0% ±

2003, 2013
[offtop]
Цитата
по материалам прошлой темы

Люди сон потеряли, так следят за вашими темами[/offtop]
 
Ответить
Сообщение[offtop]
Цитата
по материалам прошлой темы

Люди сон потеряли, так следят за вашими темами[/offtop]

Автор - wild_pig
Дата добавления - 02.06.2016 в 09:15
Лорик Дата: Четверг, 02.06.2016, 09:29 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Pelena, спасибо! Как все просто. Жаль не разбираюсь в написании макросов.
 
Ответить
СообщениеPelena, спасибо! Как все просто. Жаль не разбираюсь в написании макросов.

Автор - Лорик
Дата добавления - 02.06.2016 в 09:29
Лорик Дата: Четверг, 02.06.2016, 09:30 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Люди сон потеряли, так следят за вашими темами

Язва в наше время лечится.


Сообщение отредактировал Лорик - Четверг, 02.06.2016, 09:31
 
Ответить
Сообщение
Люди сон потеряли, так следят за вашими темами

Язва в наше время лечится.

Автор - Лорик
Дата добавления - 02.06.2016 в 09:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить строку в таблицу (по материалам прошлой темы) (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!