根据变量设置单元格格式

Question

我对 VBA 很陌生，所以我认为这应该是一个简单的答案，如果这种事情已经被问过或者非常明显，我们深表歉意！

我正在尝试根据另一个单元格中提供的值设置单元格的阴影（特别是设置黑色或灰色的颜色和阴影）。我在“.ThemeColor = thmclr”行上不断收到错误消息。我想我刚刚输入了“thmclr”位错误。在“Othersheet”的单元格 I3 和 I4 中，黑色和灰色的正确颜色代码（取决于它是哪一个）。有没有人能够澄清我应该如何做到这一点？谢谢！

Set thmclr = Worksheets("Othersheet").Range("I3")
Set tntshde = Worksheets("Othersheet").Range("I4")

With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = thmclr
    .TintAndShade = tntshde
    .PatternTintAndShade = 0
End With

Answer 1

确保您从单元格中获取的值对应于有效的ThemeColors：

xlThemeColorAccent1              5
xlThemeColorAccent2              6
xlThemeColorAccent3              7
xlThemeColorAccent4              8
xlThemeColorAccent5              9
xlThemeColorAccent6             10
xlThemeColorDark1                1
xlThemeColorDark2                3
xlThemeColorFollowedHyperlink   12
xlThemeColorHyperlink           11
xlThemeColorLight1               2
xlThemeColorLight2               4

TintAndShade

也一样

编辑#1：

例如，如果我们从：

并运行此代码：

Sub cosmo()
Set thmclr = Worksheets("Othersheet").Range("I3")
Set tntshde = Worksheets("Othersheet").Range("I4")

With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = thmclr.Value
    .TintAndShade = tntshde.Value
    .PatternTintAndShade = 0
End With
End Sub

我们得到：

请注意，两个控制单元格包含 NUMERIC 值。