Код VBA для учета вставки строк после факта.

Question

Мне удалось создать флажки, чтобы показать / скрыть определенные строки в моем документе Excel, используя следующий код

If CheckBox1.Value = True Then Rows("26:28").EntireRow.Hidden = False
If CheckBox1.Value = False Then Rows("26:28").EntireRow.Hidden = True

Однако мне нужно иметь возможность обновлять диапазон, когда я вставляю строки выше этого диапазона.

Пытался найти ячейку, в которой начинается диапазон, и затем добавил 2 к диапазону, но не совсем уверен, как это сделать.

ура

Роберт

Answer 1

Отслеживание и управление добавлением / удалением строк может быть чрезвычайно трудным (убедитесь, что вы всегда захватываете его, также необходимо либо изменить сам код для нового номера строки, либо сохранить его где-нибудь на листе ...), я предлагаю использовать какой-то обходной путь.

1. Используйте именованный диапазон: именованные диапазоны сдвигаются вместе с ячейками, поэтому их ссылка всегда будет относиться к одним и тем же ячейкам.

   • В приведенном ниже примере A6: A7 является именованным диапазоном, и пример кода показывает / скрывает его.

2. Другим вариантом может быть поиск конкретной информации в электронной таблице и выполнение действий на ее основе, однако это опять-таки довольно сложно.

Answer 2

Я предполагаю, что у вас есть рабочий код, чтобы показать / скрыть эти строки, и что ваша проблема состоит только в том, чтобы найти строку после того, как вы вставили строки выше.

Если у вас есть только один диапазон для отображения / скрытия, вы можете использовать именованный диапазон. Когда новые строки выше, именованный диапазон все равно будет указывать на те же строки.

Просто дайте имя (например, ToBeHidden) нескольким ячейкам (например, A26:A28 , не нужно называть целые строки), и используйте этот код для их переключения:

With ActiveSheet.Range("ToBeHidden").EntireRow
    If .Hidden = True Then
        .Hidden = False
    Else
        .Hidden = True
    End If
End With

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

Answer 3

Поскольку целью OP является «определить, вставлено ли и сколько строк», что вы можете найти в комментариях выше от Máté Juhász, то решение должно отслеживать скрытый диапазон данных для вставленных или удаленных строк.

Сначала назовите скрытый диапазон A26:A28 и используйте следующий код VBA для отслеживания количества вставленных или удаленных строк.

Private Sub Worksheet_Change(ByVal Target As Range)
    Static lngRow As Long
    Dim rng1 As Range
    Set rng1 = ThisWorkbook.Names("Named Range").RefersToRange
    If lngRow = 0 Then
    lngRow = rng1.Row
        Exit Sub
    End If
    If rng1.Row = lngRow Then Exit Sub
    If rng1.Row < lngRow Then
        MsgBox lngRow - rng1.Row & " Row Deleted"
    Else
        MsgBox rng1.Row - lngRow & " Rows Inserted"
    End If
    lngRow = rng1.Row
End Sub

Примечание. Если вы хотите считать только вставленные строки, измените последний If... на

If rng1.Row > lngRow Then
    MsgBox rng1.Row - lngRow & " Rows Inserted"
End If