着色包含選定範圍內數據的單元格

我在Excel工作表中選擇了一系列單元格。按下快捷鍵後，所選範圍中包含數據的每個單元格都應具有填充顏色紅色。

似乎沒有這樣的默認Excel功能，但也許可以用VBA完成？

不幸的是，預計有下面的代碼不起作用：

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Not cell.Value Is Nothing Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 

End Sub

在這個任何建議高度讚賞。

來源

2017-01-25 Rickson

什麼條件格式？公式可以是，例如，'A2 <>「」'？你有什麼嘗試？ – BruceWayne

[** Internet **]上有大量選項可用（https://www.google.com/search?q=excel+vba+change+cell+color+in+range+if+cell+contains+值和OQ =練成+ VBA +變化+細胞+顏色+在+範圍+如果+細胞+包含+值AQS = chrome..69i57.23423j0j7＆的SourceID =鉻＆即= UTF-8＃q =練成+ VBA +變化+細胞+顏色+在+的範圍）。你有嘗試過嗎？ – ManishChristian

@ManishChristian他們中的大多數都使用條件格式，我嘗試過但嘗試過但並不喜歡。剩下的不會考慮只考慮預定義的單元格。 – Rickson

蒂姆威廉姆斯的提示做到了。謝謝！

下面的代碼工作：

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Len(cell.Value) > 0 Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 
End Sub

來源

2017-01-26 21:18:09 Rickson

着色包含選定範圍內數據的單元格

回答

相關問題