VBA добавление пустой строки в столбце D при изменении значений, только в видимых ячейках

Я хочу, чтобы мой код VBA вставлял две пустые строки всякий раз, когда значение ячейки в столбце d изменяется. И поскольку я использовал некоторые автофильтры, я хочу, чтобы он выполнял эту функцию только на видимых клетках.

У меня есть это:

Dim GCell As Range

SearchText = ""
Set GCell = Cells.Find(SearchText).Offset(0)
GCell.EntireRow.Insert
GCell.EntireRow.Insert

но это работает, только если вы вводите определенный текст, который хотите найти. Но здесь у меня нет ничего конкретного для поиска. Это просто цифры

21
задан Madter
06.01.2023 14:25 Количество просмотров материала 3617
Распечатать страницу

1 ответ

Если вы хотите вставить строки ниже измененного значения, независимо от того, что изменилось, то вы можете использовать что-то вроде этого:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
    If Target.Worksheet.Rows(Target.Row).EntireRow.Hidden = False Then
        Target.Offset(1, 0).EntireRow.Insert
        Target.Offset(1, 0).EntireRow.Insert
    End If
End If

End Sub

имейте в виду, что этот код должен быть помещен на кодовую страницу для листа, на который вы хотите его повлиять.

0
отвечен Slaqr 2023-01-07 22:13

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Мы используем cookie. Это позволяет нам анализировать взаимодействие посетителей с сайтом и делать его лучше. Продолжая пользоваться сайтом, вы соглашаетесь с использованием файлов cookie. Политика конфиденциальности
Согласен
Вверх