Не могу получить следующее извлечение кода. Следует добавить условное форматирование в ячейку (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