excel - 如何将渐变颜色分配给 Excel 列？

Question

我需要为 Excel 列中的单元格分配不同的颜色，例如第一个单元格为白色，第二个单元格稍暗，第三个比前一个单元格更暗，等等。这是 .png 文件的链接:https://dl.dropboxusercontent.com/u/41007907/gradientColumn.png

我怎样才能快速做到这一点？有快捷指令吗？

Answer 1

如果您正在寻找 VBA 解决方案，请使用单元格的 .Interior.TintAndShade属性(property)。

这是一个快速宏，您可以使用它根据列中的单元格数计算渐变填充。这应该应用一个均匀的渐变，例如:

Sub Macro3()

Dim firstCell As Range 'the first cell, and the cell whose color will be used for all others.
Dim cellColor As Long 'the cell color that you will use, based on firstCell
Dim allCells As Range 'all cells in the column you want to color
Dim c As Long  'cell counter
Dim tintFactor As Double 'computed factor based on # of cells.

Set firstCell = Range("A1")
cellColor = firstCell.Interior.Color

Set allCells = Range("A1:A10")

For c = allCells.Cells.Count To 1 Step -1
    allCells(c).Interior.Color = cellColor
    allCells(c).Interior.TintAndShade = _
        (allCells.Cells.Count - (c - 1)) / allCells.Cells.Count

Next


End Sub

已编辑 填充从浅到深的渐变。如果您喜欢黑暗而不是明亮，那么请执行以下操作:

allCells(c).Interior.TintAndShade = _
        (c-1) / allCells.Cells.Count