我想選擇一系列單元格併爲背景着色

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

所以我想選擇一排行中的單元格，想要一個我可以按下的按鈕，它會自動將所有這些單元格的背景顏色變爲灰色。

如果你想只灰色選定單元格，然後這將是你想要做什麼

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藏漢工作