excel - 仅格式化小写字母

Question

我正在尝试格式化单元格，其中只有小写字母为红色，所有其他大写字母和所有数字均为黑色。

单元格是公式的结果，引用另一页。它所引用的单元格由该页面中的其他公式组成。

如何让我的字体格式与公式一起旅行（在这种情况下，将小写字母涂成红色很容易，因为我已经将它们提取到他们自己的单元格中）或者你对条件格式或代码有什么建议吗只制作小写字母红色？

标签： excelvbaexcel-formula

Answer 1

"... 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