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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка пустой строки при изменении значения - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка пустой строки при изменении значения (Макросы/Sub)
Вставка пустой строки при изменении значения
ant6729 Дата: Пятница, 07.07.2017, 13:24 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 292
Репутация: 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]

Добрый день, как сделать так, чтобы вставлялась строка при изменении значения в ячейке?
 
Ответить
Сообщение[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]

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

Автор - ant6729
Дата добавления - 07.07.2017 в 13:24
_Boroda_ Дата: Пятница, 07.07.2017, 13:30 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10898
Репутация: 4495 ±
Замечаний: 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
 
Ответить
СообщениеЕсли без файла и описания, то так
ПКМ на ярлычке листа - Исходный текст, там в левом верхнем вып. списке выбрать Worksheet в правом - Change
Появится запись, вовнутрь которой пишем свой код
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'здесь пишем свой код
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 07.07.2017 в 13:30
ant6729 Дата: Пятница, 07.07.2017, 18:50 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 292
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010

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


Сообщение отредактировал ant6729 - Пятница, 07.07.2017, 18:53
 
Ответить
Сообщение
Вставил в модуль листа, все равно не разделяет 1 от 2 от 3

Автор - ant6729
Дата добавления - 07.07.2017 в 18:50
RAN Дата: Пятница, 07.07.2017, 20:07 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4481
Репутация: 906 ±
Замечаний: 0% ±

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


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу да, конечно, оно всегда так было, так будет, так есть!
1<>1, 2<>2, 3<>3 yes

Автор - RAN
Дата добавления - 07.07.2017 в 20:07
ant6729 Дата: Суббота, 08.07.2017, 02:10 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 292
Репутация: 2 ±
Замечаний: 40% ±

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

Автор - ant6729
Дата добавления - 08.07.2017 в 02:10
Pelena Дата: Суббота, 08.07.2017, 07:21 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11275
Репутация: 2507 ±
Замечаний: 0% ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[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]

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

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