如何使用VBA根据任意指定单元格的值设置单元格格式？

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义要设置格式的单元格范围
    Dim rng As Range
    Set rng = Range("A1:A10") ' 这里以A1:A10为例，可以根据需要修改范围

    ' 检查目标单元格是否在指定范围内
    If Not Intersect(Target, rng) Is Nothing Then
        ' 根据单元格的值设置格式
        Select Case Target.Value
            Case "条件1"
                Target.Font.Bold = True
                Target.Font.Color = RGB(255, 0, 0) ' 设置字体颜色为红色
            Case "条件2"
                Target.Font.Italic = True
                Target.Font.Color = RGB(0, 0, 255) ' 设置字体颜色为蓝色
            Case Else
                ' 恢复默认格式
                Target.Font.Bold = False
                Target.Font.Italic = False
                Target.Font.Color = RGB(0, 0, 0) ' 设置字体颜色为黑色
        End Select
    End If
End Sub