发布日期：2024-07-22 06:33    点击次数：128

之前的文章有讲过用VBA修改单元格背景色。

本文再给大家列举列举一下Excel内置的颜色详情。

我们知道，在VBA中可以用.Interior.ColorIndex调整单元格颜色。今天继续跟大家聊聊那些Excel内置的ColorIndex值。

.Interior.ColorIndex

ColorIndex是Excel内置的颜色，取值范围从0-56，其中0表示清除背景色。1-56表示我们可用的颜色，但是很难记住每个数字所代表的颜色。下面我们用VBA把每个ColorIndex值和所代表的颜色输出到Excel单元格，以后用得着的时候可以参考。

ArrayList的使用需要按照之前的文章描述的方法，手动导入引用文件。参照下图：

图片

'' 输出ColorIndex和对应的颜色'Sub testColorIndex() ' Application.ScreenUpdating = False Dim colorIndexes As New ArrayList Dim sht As Worksheet Set sht = Sheets('ColorIndex') titles = Array('ColorIndex', '背景色') For i = 0 To 56 colorIndexes.Add i Next '根据ColorIndex设置对应的背景色。为了便于查看，每一列只输出20个颜色。 gaps = 20 For i = 0 To colorIndexes.Count - 1 iRow = i Mod gaps + 2 iCol = 2 + 2 * (i \ gaps) ' 标题 If i Mod gaps = 0 Then sht.Cells(iRow - 1, iCol - 1).Resize(, 2).value = titles End If ' ColorIndex和颜色 sht.Cells(iRow, iCol - 1).value = i ' 数字 sht.Cells(iRow, iCol).Interior.ColorIndex = i ' 颜色 Next ' Application.ScreenUpdating = True End Sub

最后的效果图如下：

图片

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。