Question

我正在进行一个项目，在这个项目中，工作人员根据他们的表现进行红色或绿化。然后将结果复制到另一个工作表，然后列出并编译其结果。基本上当工作人员去度假时，我想将细胞的背景颜色变为灰色。所以我想连续选择一系列单元格并想要一个我可以按下的按钮，它会自动将所有这些单元格的背景颜色变为灰色。这就是我目前提出的

Sub Macro1()
ActiveCell.CurrentRegion.Select
    For Each cell In Selection
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0      
    End With
    Next cell End Sub

我试图在一系列细胞中循环并为每个细胞着色 - 但只有活跃的细胞颜色是他们的一种方法吗？

Answer 1

所以我想连续选择一系列单元格，并且想要一个我可以按下的按钮，它会自动为所有这些单元格着色＆＃39;背景灰色。

如果您只想将选定的单元格着色为灰色，那么这将是您想要的

Sub Sample()
    '~~> Check if what the user selected is a valid range
    If TypeName(Selection) <> "Range" Then
        MsgBox "Select a range first."
        Exit Sub
    End If

    Selection.Interior.ColorIndex = 48
End Sub

Answer 2

Sub Macro1()
    For Each cell In Selection
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0      
    End With
    Next cell End Sub

如果删除activecell.select，它也能正常工作

我想选择一系列细胞并为背景着色

2 个答案: