0

Здравствуйте, коллеги!

Подскажите пожалуйста: у меня есть макрос, который расширяет количество строк каждый раз на неопределенное значение, то есть диапазон меняется всегда по строкам. И мне нужно закрашивать пустые ячейки, либо ячейки, в которых не содержится текстовой & буквенной информации (символы).

Как это можно реализовать?

Пробовал через isEmpty и isNumeric, но никак не соображу, как можно это сделать в расширяющемся диапазоне по строкам. Может есть какие-то функции, благодаря которым VBA может обновлять кол-во заполненных строк?

Заранее благодарю!!!

P.S. Пытался здесь посчитать через сложение последних строк в каждом листе

            'kolvo_strok = 0
            'With shd
            'lRw1 = shd.Cells(rsh.Rows.Count, 1).End(xlUp).Row
            'kolvo_strok = kolvo_strok + lRw1
            'End With
            'MsgBox kolvo_strok
8
  • Как это можно реализовать? Через условное форматирование, например.
    – Akina
    Commented 24 авг. 2021 в 12:31
  • shd, rsh - почему поиск в двух объектах (как понял - и на листе, и в диапазоне? ). Строку надо искать на листе, иначе можно получить не то, что ожидаете.### в которых не содержится текстовой & буквенной информации (символы) - цифры тоже символы... Что еще может быть в ячейке, кроме символов? Commented 24 авг. 2021 в 19:00
  • @Akina не совсем понимаю каким образом можно применить условное форматирование на расширяющемся диапазоне. Нужно выделять пустые ячейки, так что сделать просто $A$1:$AA$1000 не выходит. Commented 25 авг. 2021 в 7:08
  • i.sstatic.net/tCftR.png Само собой после вставки строк надо прибить существующее УФ-правило (оно не будет применено к вставленному диапазону) и пересоздать его.
    – Akina
    Commented 25 авг. 2021 в 7:18
  • @Akina окей, это понятно. Но нельзя ли как-то в правило для УФ засунуть переменную (которая сохраняет количество активных строк в данный момент на листе), чтобы вручную каждый раз не пересоздавать правило? Commented 25 авг. 2021 в 7:38

1 ответ 1

0

введите сюда описание изображения

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Worksheets("Лист1")
    sh.Cells.FormatConditions.Delete
    With sh.UsedRange
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
            Formula1:="="""""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

Добавление ячеек в диапазон приводит к пересозданию правила и окрашиванию пустых ячеек во всём использованном диапазоне. Если надо не во всём - поправьте, и вместо With sh.UsedRange используйте задание в требуемом Range.

1
  • Огромное спасибо! Наконец-то разобрался, как эта структура работает. Commented 25 авг. 2021 в 7:45

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.