excel vba生成具有不同字体颜色的格式单元格

Question

我想用vba生成一个特定布局的Excel工作表。我的子程序之一是字体颜色。它看起来像这样:

Sub SetFont(cell1, cell2 As range, fcolor As String)

range(cell1, cell2).Select
If fcolor = "w" Then
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
ElseIf fcolor = "b" Then
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End If

End Sub

但是它不起作用。字体始终以黑色生成。我不知道为什么。

Answer 1

这对我有用，但有一个逆转； xlThemeColorLight1 生成深色文本并xlThemeColorDark1 创建较浅的文本，这很愚蠢，但你就可以了。

Sub foo()
SetFont Range("A1"), Range("A6"), "b"
End Sub

Sub SetFont(cell1 As Range, cell2 As Range, fcolor As String)
If fcolor = "w" Then
    With Range(cell1, cell2).Font
        .ThemeColor = xlThemeColorLight1
    End With
ElseIf fcolor = "b" Then
    With Range(cell1, cell2).Font
        .ThemeColor = xlThemeColorDark1
    End With
End If
End Sub

不相关，但如果您将 cell1, cell2 作为范围，则仅将 cell2 声明为 range、cell1 类型> 仍然是一个变体。