求一个宏,能一键设置excel选定的单元格(或表页)的中文为宋体,英文和数字为ArialNarrow,默认字体大小为10号。谢谢!... 求一个宏,能一键设置excel选定的单元格(或表页)的中文为宋体,英文和数字为Arial Narrow, 默认字体大小为10号。谢谢!


此题无解,条件格式无法改变字体、字号,本来以为下面的代码满足你的要求:

Sub Macro1()
    Range("A1:Y161").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""(此项空白)"""
    With Selection.FormatConditions(1).Font
        .Name = "楷体"
        .Size = 8
    End With
End Sub

结果系统提示无法改变字体、字号。


如果数据不太多,可以自己监控数据变化,例如:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C As Range
    For Each C In Target
        If C.Value = "(此项空白)" Then
            C.Font.Name = "楷体"
            C.Font.Size = 8
        End If
    Next C
End Sub