Форматирование только строчных букв - PullRequest
0 голосов
/ 19 сентября 2018

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

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

Как заставить форматирование моего шрифта перемещаться по формулам (в этом случае было бы легко покрасить строчные буквы в красный, потому что япо пути извлекли их в свою ячейку) ИЛИ У вас есть предложение для условного форматирования или кода, чтобы только красные буквы в нижнем регистре?

1 Ответ

0 голосов
/ 25 сентября 2018

"... OR do you have suggestion for ... code to made only lower case letters red"

Да, это было бы так, но это не невероятно эффективно

Option Explicit

Sub LowercaseToRed()

    SpeedUp True
    On Error GoTo ErrClose

    Dim cell As Range
    For Each cell In Range("A1:D10")

        Dim i As Long
        For i = 1 To cell.Characters.count
            If 97 <= Asc(Mid(cell.Value2, i, 1)) And Asc(Mid(cell.Value2, i, 1)) <= 122 Then
                cell.Characters(i, 1).Font.color = vbRed
            End If
        Next i

    Next cell

ErrClose:
    SpeedUp False

End Sub

Sub SpeedUp(ByVal toggleOn As Boolean)

    With Application
        .Calculation = IIf(toggleOn, xlCalculationManual, xlCalculationAutomatic)
        .ScreenUpdating = Not toggleOn
        .DisplayStatusBar = Not toggleOn
        .EnableEvents = Not toggleOn
    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...