使用VBA根據excel單元格內容更改字體類型

Question

我正在嘗試使用 VBA 來更改工作表的格式。 我需要做兩件事：

1. 當單元格有大量文本時更改字體
2. 當單元格包含項目符號時更改字體：“ • ”

我已經能夠完成下面的 1，但無法弄清楚 2：

Sub FormatText()

    Dim xCell As Range
    For Each xCell In Sheets("Output").Range("A16:A64")
        With xCell
            If Len(.Text) > 100 Then
                .Font.Name = "Arial Medium"
            Else
                .Font.Name = "Calibri Bold"
            End If
        End With
    Next
End Sub

Answer 1

您可以將該條件添加到您的 If 語句中：

Sub FormatText()
    Dim xCell As Range
    For Each xCell In Sheets("Output").Range("A16:A64")
        With xCell
            If Len(.Text) > 100 Or Instr(.Text, Chr$(149)) > 0 Then
                .Font.Name = "Arial Medium"
            Else
                .Font.Name = "Calibri Bold"
            End If
        End With
    Next
End Sub