1. 使用 Interior.Color 属性 这是最常用的方法,通过设置 Interior.Color 属性可以更改单元格的背景颜色。你可以使用RGB颜色值来指定颜色。 vba Sub SetCellColor() ' 设置单元格A1的背景颜色为红色 Range("A1").Interior.Color = RGB(255, 0, 0) End Sub 2. 使用 Interior.ColorIndex 属性 如果你不想使...
Set currCell = .Range("I" & .Rows.Count).End(xlUp).Offset(1) currCell.Clear currCell.Value = "RGB(" & r & ", " & g & "," & b & ")" currCell.Interior.color = RGB(r, g, b) If GetContrastColor(currCell.Interior.color) = vbBlack Then currCell.Font.color = vbBlack El...
Dim rng As Range Set rng = Selection '获取选定单元格区域 rng.Interior.Color = RGB(0, 0, 255) '将背景色设置为蓝色 End Sub 保存并关闭VBA编辑器。回到Excel工作表中，选中需要更改颜色的单元格区域。按下Alt+F8键，打开“宏”对话框，选择刚才创建的“SetCellColor”宏，然后点击“运行”按钮。此时，...
Formula1:="=CELL(""row"")=ROW()") .Interior.Color = RGB(255, 0, 0) End With With Me.Cells.FormatConditions.Add(Type:=xlExpression, Formula1:="=CELL(""col"")=COLUMN()") .Interior.Color = RGB(255, 0,
vba Sub SetCellColor()Dim rng As Range Set rng = Selection ' 选中选定区域 rng.Interior.Color = RGB(255, 255, 0) ' 将颜色设置为黄色 End Sub 要使用此宏，请按以下步骤操作：a.打开Excel并按下`Alt + F11`打开VBA编辑器。b.在VBA编辑器中，插入一个新模块并粘贴上述代码。c.关闭VBA编辑器并...
按下Alt + F11打开VBA编辑器。 在VBA编辑器中,选择插入菜单中的模块,以创建一个新的VBA模块。 在新的VBA模块中,编写以下代码: 代码语言:vba 复制 Sub SetCellColorBasedOnTextValue() Dim cell As Range For Each cell In Selection Select Case cell.Value Case "文本值1" cell.Interior.Color = RG...
方法二：VBA宏代码实现 对于更复杂或大规模的数据归类需求，可以编写VBA宏来实现自动归类。以下是一个简化的示例：Sub GroupCellsByColor() Dim rng As Range Dim cell As Range Dim colorGroup As String Dim dict As Object Set dict = CreateObject("Scripting.Dictionary")' 设置要处理的范围...
代码语言:vba 复制 Sub SetCellColor() Dim rng As Range Set rng = ActiveSheet.Range("A1") ' 指定要设置背景颜色的单元格 rng.Interior.ColorIndex = 6 ' 设置背景颜色的索引值,可以根据需要更改 End Sub 按下“F5”键运行刚刚编写的代码。 此时,指定的单元格(在本例中为A1)的背景颜色将被设置为...
VBA Code to Change Cell Color of a Range Below is the VBA macro code that would change the color of the range A1:A10 to yellow. Sub ChangeCellColor() ' Change the range background color to yellow Worksheets("Sheet1").Range("A1:A10").Interior.Color = RGB(255, 255, 0) ...