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

Вход

Регистрация

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

 

= Мир MS Excel/Добавление строк в документе в разных диапазонах. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление строк в документе в разных диапазонах. (Формулы/Formulas)
Добавление строк в документе в разных диапазонах.
Holmess Дата: Пятница, 19.08.2016, 11:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Здравствуйте! Нашел обычный макрос по добавлению строк:

[vba]
Код
Sub InsertRows()
Dim i As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For i = 20 To 20 Step -1
Cells(i, 1).EntireRow.Insert
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
MsgBox "Строки добавлены!", vbInformation, "Вставка строк"
End Sub
[/vba]

Плиз, помогите прееобразовать его и понять суть. Мне нужно, чтоб на листе было, к примеру, 5 кнопок на вставку строчки после определенной ячейки. НО! Когда вставляешь строчку с первой кнопки, сразу весь диапазон ячеек переезжает на +1 и вторая кнопка вставляет ячейку уже не там где нужно.

В общем, попробую картинкой нарисовать.

Заранее благодарен) И, если возможно, объясните, как можно закрепить "кнопку" на добавление строчки за определенной позицией, чтоб, при добавлении строчки, все кнопки переезжали на кол-во добавленных позиций.


Сообщение отредактировал Pelena - Пятница, 19.08.2016, 11:26
 
Ответить
СообщениеЗдравствуйте! Нашел обычный макрос по добавлению строк:

[vba]
Код
Sub InsertRows()
Dim i As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For i = 20 To 20 Step -1
Cells(i, 1).EntireRow.Insert
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
MsgBox "Строки добавлены!", vbInformation, "Вставка строк"
End Sub
[/vba]

Плиз, помогите прееобразовать его и понять суть. Мне нужно, чтоб на листе было, к примеру, 5 кнопок на вставку строчки после определенной ячейки. НО! Когда вставляешь строчку с первой кнопки, сразу весь диапазон ячеек переезжает на +1 и вторая кнопка вставляет ячейку уже не там где нужно.

В общем, попробую картинкой нарисовать.

Заранее благодарен) И, если возможно, объясните, как можно закрепить "кнопку" на добавление строчки за определенной позицией, чтоб, при добавлении строчки, все кнопки переезжали на кол-во добавленных позиций.

Автор - Holmess
Дата добавления - 19.08.2016 в 11:21
Manyasha Дата: Пятница, 19.08.2016, 17:45 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Holmess, может лучше так, чем куча кнопок?
[vba]
Код
Sub InsertRows()
    Dim i As Long
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        'Вставляет ОДНУ строчку над активной ячейкой
'        Cells(ActiveCell.Row, 1).EntireRow.Insert
        'ИЛИ ТАК
        'Вставляет СТРОЧКИ над выделенными ячейками
        Selection.EntireRow.Insert Shift:=xlDown
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
    MsgBox "Строки добавлены!", vbInformation, "Вставка строк"
End Sub
[/vba]


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеHolmess, может лучше так, чем куча кнопок?
[vba]
Код
Sub InsertRows()
    Dim i As Long
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        'Вставляет ОДНУ строчку над активной ячейкой
'        Cells(ActiveCell.Row, 1).EntireRow.Insert
        'ИЛИ ТАК
        'Вставляет СТРОЧКИ над выделенными ячейками
        Selection.EntireRow.Insert Shift:=xlDown
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
    MsgBox "Строки добавлены!", vbInformation, "Вставка строк"
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 19.08.2016 в 17:45
Holmess Дата: Понедельник, 22.08.2016, 11:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Да, так тоже пойдет) Спасибо)

Я делаю что-то вроде "шаблона" для людей, которые мне будут заполнять данные. Чтобы они не нарушили логику формул, я запретил редактировать жизненно важные ячейки. Я учел среднее кол-во строк, которые они должны будут заполнить, но, в некоторые случаях, людям понадобятся дополнительные строки. Теперь бы правильно пояснения к кнопке составить, так как они удалить вставленные ячейки уже не смогут XD
 
Ответить
СообщениеДа, так тоже пойдет) Спасибо)

Я делаю что-то вроде "шаблона" для людей, которые мне будут заполнять данные. Чтобы они не нарушили логику формул, я запретил редактировать жизненно важные ячейки. Я учел среднее кол-во строк, которые они должны будут заполнить, но, в некоторые случаях, людям понадобятся дополнительные строки. Теперь бы правильно пояснения к кнопке составить, так как они удалить вставленные ячейки уже не смогут XD

Автор - Holmess
Дата добавления - 22.08.2016 в 11:42
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление строк в документе в разных диапазонах. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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