Excel~常用颜色对照表

使用 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 版本及是否启用宏。

二月 19

历史上的今天

未经允许不得转载

文章标题:筑爱网 » Excel~常用颜色对照表

原文链接:http://www.zattn.top/3918.html

发布信息:文章由【筑爱天堂鸟】于<2019-02-19>发布于【未分类】分类下

相关标签:

相关推荐

  • 暂无文章

评论 抢沙发

  • 昵称(必填)
  • 邮箱(必填)
  • QQ(选填)
  • 网址(选填)