Excel~常用颜色对照表

2019年12月29日13:26:44 发表评论 热度1,165 ℃

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

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

  1. Sub Excel_Interior_ColorIndex()  
  2.     '清空单元格信息  
  3.     Cells.Clear  
  4.     Cells.Font.Bold = True  
  5.     Cells(6, 4).Font.Color = vbWhite  
  6.     ' 键入Excel常用颜色表  
  7.     Dim x As Integer  
  8.     x = 0  
  9.     For i = 1 To 8  
  10.         For j = 1 To 7  
  11.             xx = x + 1  
  12.             Cells(i + 5, j + 3) = x  
  13.             Cells(i + 5, j + 3).Interior.ColorIndex = x  
  14.             If x > 56 Then Exit Sub  
  15.         Next j  
  16.     Next i  
  17.       
  18.       
  19.     '键入标题  
  20.     Range("D2:J2").Select  
  21.     Selection.Merge  
  22.     Range("D2:J2").FormulaR1C1 = "Excel常用颜色对照表"  
  23.     With Selection  
  24.         .Font.Name = "楷体"  
  25.         .Font.Size = 24  
  26.         .HorizontalAlignment = xlCenter  
  27.         .VerticalAlignment = xlCenter  
  28.     End With  
  29.     Range("A1").Select  
  30.       
  31. End Sub  

下面是代码的运行结果,需要的朋友可以直接保存图片。

Excel~常用颜色对照表
瓜皮猪

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: