Вставка пустой строки при изменении значения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка пустой строки при изменении значения (Макросы/Sub)

ant6729

Дата: Пятница, 07.07.2017, 13:24 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

[vba]

Код

Sub f()
lr = Sheets("Ëèñò7").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
If Cells(i, 1).Value <> Cells(i, 1).Value Then
Rows.Insert shift:=xlDown
End If
Next i
End Sub

[/vba]

Добрый день, как сделать так, чтобы вставлялась строка при изменении значения в ячейке?

Ответить

_Boroda_

Дата: Пятница, 07.07.2017, 13:30 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Если без файла и описания, то так
ПКМ на ярлычке листа - Исходный текст, там в левом верхнем вып. списке выбрать Worksheet в правом - Change
Появится запись, вовнутрь которой пишем свой код
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
'здесь пишем свой код
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ant6729

Дата: Пятница, 07.07.2017, 18:50 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Вставил в модуль листа, все равно не разделяет 1 от 2 от 3

Сообщение отредактировал ant6729 - Пятница, 07.07.2017, 18:53

Ответить

RAN

Дата: Пятница, 07.07.2017, 20:07 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ну да, конечно, оно всегда так было, так будет, так есть!
1<>1, 2<>2, 3<>3 yes

Быть или не быть, вот в чем загвоздка!

Ответить

ant6729

Дата: Суббота, 08.07.2017, 02:10 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Подскажите, пожалуйста, как поменять мой код, как прописать логику: при изменении следующего значения ячейки в колонке А между ними вставляется строка.

Ответить

Pelena

Дата: Суббота, 08.07.2017, 07:21 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19179

Репутация: 4419 ±

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Column <> 1 Then Exit Sub
If Target.Value <> Target.Offset(-1).Value Then
Application.EnableEvents = False
Target.Rows.EntireRow.Insert shift:=xlDown
Application.EnableEvents = True
End If
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка пустой строки при изменении значения (Макросы/Sub)

Страница 1 из 1
1