代码未执行.如果我使用颜色索引 = 3 或 2,它可以工作,但当我使用 RGB 时则不行


Sub Clearall()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")
Dim Clrallblue As Range
Set Clrallblue = Range("C14:I19")
For Each Cell In Clrallblue.Cells
With Cell
.ClearContents
.Borders.LineStyle = XlLineStyle.xlContinuous
.Interior.ColorIndex = RGB(153, 204, 255)
End With
Next Cell

End Sub

.ColorIndex需要一个整数值。如果要使用 RGB,请改用.Color

ColorIndex 不接受 RGB,请在此处查看完整的颜色索引表: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/colorindex-property

最新更新