Excel~常用颜色对照表

原创 筑爱天堂鸟  2019-02-19 08:35  阅读 7 次 百度已收录

使用 Excel 的时候,经常会用到一些软件自带的颜色美化一下表格。而我们最常用的应该就是自带的索引颜色了,Excel 内置了 56 种常用的颜色值,编写 VBA 的时候我们可以直接使用这些颜色值。

使用下面的代码可以自动生成颜色对照表:

Sub Excel_Interior_ColorIndex()
    '清空单元格信息
    Cells.Clear
    Cells.Font.Bold = True
    Cells(6, 4).Font.Color = vbWhite
    ' 键入Excel常用颜色表
    Dim x As Integer
    x = 0
    For i = 1 To 8
        For j = 1 To 7
            x = x + 1
            Cells(i + 5, j + 3) = x
            Cells(i + 5, j + 3).Interior.ColorIndex = x
            If x > 56 Then Exit Sub
        Next j
    Next i
    
    
    '键入标题
    Range("D2:J2").Select
    Selection.Merge
    Range("D2:J2").FormulaR1C1 = "Excel常用颜色对照表"
    With Selection
        .Font.Name = "楷体"
        .Font.Size = 24
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Range("A1").Select
    
End Sub

文后我会提供一个“Excel~常用颜色对照表”的 xlsm 文件,如果无法生成颜色对照表,请自行检查 Excel 版本及是否启用宏。


本文地址:http://www.zattn.cn/3918.html
关注我们:请关注一下我们的微信公众号:扫描二维码筑爱网的公众号,公众号:zattn520
版权声明:本文为原创文章,版权归 筑爱天堂鸟 所有,欢迎分享本文,转载请保留出处!

发表评论


表情