在使用VBA设置单元格背景色时,最常用的方法时interior.colorindex,当我们需要表示一些重点单元格时,除了背景色以外,可以使用interior.pattern方法,在单元格的背景上再添加图案。
#一、interior.colorindex方法
1、新建EXCEL.xlsm
2、输入一下代码
Sub colorShow()
Dim i As Integer
For i = 1 To 20
Cells(i + 1, 1).Value = i
Cells(i + 1, 2).Interior.ColorIndex = i
Next i
For i = 21 To 40
Cells(i - 20 + 1, 4).Value = i
Cells(i - 20 + 1, 5).Interior.ColorIndex = i
Next i
For i = 41 To 56
Cells(i - 40 + 1, 7).Value = i
Cells(i - 40 + 1, 8).Interior.ColorIndex = i
Next i
End Sub
3、运行后保存。
#二、intrior.pattern方法
1、新建EXCEL.xlsm
2、复制一下代码
Sub patternShow()
Dim i As Integer
For i = 1 To 17
Range("A" & i + 1).value = i
Range("B" & i + 1).Interior.Pattern = i
Next i
End Sub
3、保存运行。