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

Вход

Регистрация

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

 

= Мир MS Excel/Как добавить строку со значениями (формулами, ссылками)? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как добавить строку со значениями (формулами, ссылками)? (Формулы/Formulas)
Как добавить строку со значениями (формулами, ссылками)?
Димарик Дата: Вторник, 08.06.2021, 16:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте. Помогите!
ЭТО
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C5")) Is Nothing Then
Call дз
End If
End Sub
Sub дз()
Range("A6").Rows("1:1").EntireRow.Insert вставляет строку ниже нужной

End Sub
[/vba]

КОД КОТОРЫЙ НАХОДИТСЯ ЗДЕСЬ. ЧТО он делает, добавляет новую строку под строкой 6, при изменении значения в ячейке с количеством ( С5).
ЧТО НУЖНО: нужно чтобы строка добавлялась не прямой ссылкой как сейчас А6, а добавлялась после той строки или над той строкой, в которой сейчас ,ведется работа, т.е., если я сейчас работаю в строке пять, то подставлялась над илди под строку 5,а если я работаю в строке 7, то над 7 или под 7, причем, строка должна копировать все значения всех ячеек, в связи с тем, что там ссылки и формулы, которые всегда будут одинаковы для каждой категории (Поставки товара, Товары),все значения привязаны к выпадающему списку, он работает, я его настроил, описание тоже заполняетс, цена и сумма тоже, количество в ручную проставляем.

Нужно только добавить строку со всеми формулами и ссылками, над или под ту строку которая была активна
К сообщению приложен файл: 1893894.xlsx(13.1 Kb)
 
Ответить
СообщениеЗдравствуйте. Помогите!
ЭТО
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C5")) Is Nothing Then
Call дз
End If
End Sub
Sub дз()
Range("A6").Rows("1:1").EntireRow.Insert вставляет строку ниже нужной

End Sub
[/vba]

КОД КОТОРЫЙ НАХОДИТСЯ ЗДЕСЬ. ЧТО он делает, добавляет новую строку под строкой 6, при изменении значения в ячейке с количеством ( С5).
ЧТО НУЖНО: нужно чтобы строка добавлялась не прямой ссылкой как сейчас А6, а добавлялась после той строки или над той строкой, в которой сейчас ,ведется работа, т.е., если я сейчас работаю в строке пять, то подставлялась над илди под строку 5,а если я работаю в строке 7, то над 7 или под 7, причем, строка должна копировать все значения всех ячеек, в связи с тем, что там ссылки и формулы, которые всегда будут одинаковы для каждой категории (Поставки товара, Товары),все значения привязаны к выпадающему списку, он работает, я его настроил, описание тоже заполняетс, цена и сумма тоже, количество в ручную проставляем.

Нужно только добавить строку со всеми формулами и ссылками, над или под ту строку которая была активна

Автор - Димарик
Дата добавления - 08.06.2021 в 16:42
boa Дата: Воскресенье, 13.06.2021, 12:48 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 151 ±
Замечаний: 0% ±

2013, 365
Димарик, Здравствуйте,
Процедуре дз надо просто передать номер Таргет строки
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column = 3 Then Call дз(Target.Row)
End Sub
Sub дз(lRowNum&)
    Rows(lRowNum + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
[/vba]
К сообщению приложен файл: 1893894.xlsm(19.6 Kb)


 
Ответить
СообщениеДимарик, Здравствуйте,
Процедуре дз надо просто передать номер Таргет строки
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column = 3 Then Call дз(Target.Row)
End Sub
Sub дз(lRowNum&)
    Rows(lRowNum + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
[/vba]

Автор - boa
Дата добавления - 13.06.2021 в 12:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как добавить строку со значениями (формулами, ссылками)? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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