excel - 如何在没有填充的情况下更改excel中单元格的值

Question

我在 excel 中有一个电子表格，其中彩色单元格包含值，没有填充的单元格是空的。我希望所有没有填充颜色的单元格都具有 value 0。我有我用来分别给出黑色和黄色单元格值的1代码2。

Sub changeValuesBasedOnColour()

    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 0   'Black
                    .Value = 1
                Case Is = 65535 'Yellow
                    .Value = 2
                Case Is = xlNone
                    .Value = 0
                
             End Select
        End With
    Next
    Application.DisplayAlerts = False

End Sub

我已经编辑了我用来根据填充颜色更改单元格值的代码以包含此部分：

 Case Is = xlNone
   .Value = 0

但是我的电子表格没有变化。如何编辑我的代码以引用没有填充颜色的单元格？

标签： excelvba

Answer 1

使用vbWhite或16777215。

xlNone适用于单元格的.Interior.ColorIndex，与 不同.Interior.Color。