Если ячейка пуста, то заполнить ячейку красным - функция LEN (TRIM (динамическая ссылка на ячейку) не работает - PullRequest
0 голосов
/ 01 июля 2019

Не могу получить следующее извлечение кода. Следует добавить условное форматирование в ячейку (xRowCrossDiag, xColCrossDiag) в цикле. Однако VBA продолжает давать мне сообщения об ошибках, которые я не могу интерпретировать. Я думаю, что я делаю что-то не так с входами для LEN () / TRIM (). Есть предложения?

Dim xRowCrossDiag as Long, xColCrossDiag as Long

Do Until xColCrossDiag > 10

    With Sheets("Database_COSD").Cells(xRowCrossDiag, xColCrossDiag)
        .FormatConditions.Add Type:=xlExpression,Formula1:="=LEN(TRIM(.address))>0" 'ERROR IN THIS LINE
    End With

Loop
...