OFFICE系列在最近增加了黑色模式支持，对于word来说非常好，他有做颜色映射，可以让一个本来是白色的文档变成黑色之后颜色也不显得奇怪。（word是一个“所见即所得”软件，为了保证打印效果和视觉效果一致，一直都不愿意加入黑色模式…

但是Excel就没有那么走运了，他的黑色模式只做了一半… 看看下图你就懂了，后面我用一种比较基础的方式教你怎么把他变成真正的“黑色模式”！

原理

本质上我们就是吧单元格颜色、文字颜色、线框颜色都修改掉。缺点是影响打印，并且不是很自动化。但是优点是你可以有非常高度的自定义效果！

选中全文
背景颜色
文本颜色
线框颜色

操作步骤

选中全文
背景颜色
文本颜色
线框颜色

用宏来操作

当然每个表格这么改一下,命都没了。

所以我还是推荐用宏来修改，一个表格点一下按钮就修改好了！

宏的话，自己录制比较好（更加安全也更加方便），但是你也可以用我的宏(是录制转换的，所以有很多没用的代码)：

 1Sub darkmode()
 2    Cells.Select
 3    With Selection.Interior
 4        .Pattern = xlSolid
 5        .PatternColorIndex = xlAutomatic
 6        .ThemeColor = xlThemeColorLight1
 7        .TintAndShade = 0.149998474074526
 8        .PatternTintAndShade = 0
 9    End With
10    With Selection.Font
11        .ThemeColor = xlThemeColorAccent1
12        .TintAndShade = 0.799981688894314
13    End With
14    Cells.Select
15    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
16    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
17    With Selection.Borders(xlEdgeLeft)
18        .LineStyle = xlContinuous
19        .ThemeColor = 2
20        .TintAndShade = 0.349986266670736
21        .Weight = xlThin
22    End With
23    With Selection.Borders(xlEdgeTop)
24        .LineStyle = xlContinuous
25        .ThemeColor = 2
26        .TintAndShade = 0.349986266670736
27        .Weight = xlThin
28    End With
29    With Selection.Borders(xlEdgeBottom)
30        .LineStyle = xlContinuous
31        .ThemeColor = 2
32        .TintAndShade = 0.349986266670736
33        .Weight = xlThin
34    End With
35    With Selection.Borders(xlEdgeRight)
36        .LineStyle = xlContinuous
37        .ThemeColor = 2
38        .TintAndShade = 0.349986266670736
39        .Weight = xlThin
40    End With
41    With Selection.Borders(xlInsideVertical)
42        .LineStyle = xlContinuous
43        .ThemeColor = 2
44        .TintAndShade = 0.349986266670736
45        .Weight = xlThin
46    End With
47    With Selection.Borders(xlInsideHorizontal)
48        .LineStyle = xlContinuous
49        .ThemeColor = 2
50        .TintAndShade = 0.349986266670736
51        .Weight = xlThin
52    End With
53End Sub

我的宏为什么不能运行？

微软最近的更新对宏进行了许多的限制（基于安全性原因和微软认为没啥人用这个东西），所以如果你想要运行宏，需要开一些设置：

文件-选项-自定义功能区，勾选开启“开发工具功能区”
文件 - 选项 - 信任中心 - 信任中心设置，然后勾选这样，然后重启软件。

顺便玩了一会儿VisualBasic的开发界面，感觉上就像是一个上古时代的VisualStudio！

尾声

其实我当时想要编程的最主要原因就是感觉各种编辑器好酷啊，颜色花花的好看，黑色背景好酷！虽然到目前位置也没去当一名全职开发，但是我对编辑器主题的爱永远不变！

Excel黑色模式

原理

操作步骤

用宏来操作

我的宏为什么不能运行？

尾声

相关文章