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
Если без файла и описания, то так ПКМ на ярлычке листа - Исходный текст, там в левом верхнем вып. списке выбрать Worksheet в правом - Change Появится запись, вовнутрь которой пишем свой код [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) 'здесь пишем свой код End Sub
[/vba]
Если без файла и описания, то так ПКМ на ярлычке листа - Исходный текст, там в левом верхнем вып. списке выбрать Worksheet в правом - Change Появится запись, вовнутрь которой пишем свой код [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) 'здесь пишем свой код End Sub
Подскажите, пожалуйста, как поменять мой код, как прописать логику: при изменении следующего значения ячейки в колонке А между ними вставляется строка.
Подскажите, пожалуйста, как поменять мой код, как прописать логику: при изменении следующего значения ячейки в колонке А между ними вставляется строка.ant6729
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]
[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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
