☰

如何让 MS Excel 单元格显示深色背景和白色文本，而不是默认的反色？

tag-icon • tag-icon microsoft-excel microsoft-office microsoft-excel-2016
如何让 MS Excel 单元格显示深色背景和白色文本，而不是默认的反色？

默认情况下，MS Excel 单元格显示白色背景和黑色文本。这很刺眼。有些人甚至觉得很痛苦。我们如何才能让 MS Excel 显示黑色/深色背景和白色文本？

我确信很多人会发现这让我们的眼睛更加舒服。

我在 Windows 10 上使用 MS Excel 2016。

答案1

我能向您建议的最简单的方法是 VBA（宏）。

Private Sub Workbook_Open()

Dim xsheet As Worksheet 

For Each xsheet In ThisWorkbook.Worksheets

ThisWorkbook.Sheets.Select
    With Range(Cells(1, 1), Cells(1048576, 5000))
        .Interior.Color = vbCyan
        .Font.Name = "Calibri"
        .Font.Size = "11"
        .Font.Color = vbWhite
    End With
    Next xsheet
End Sub

怎么运行的：

  1. 按下Alt+F11打开 VB 编辑器。
  2. 查找并单击This Workbook图标。
  3. Workbook从左侧下拉菜单中选择，然后Open 从右侧下拉菜单中选择。
  4. 复制并粘贴行到ThisWorkbook.Sheets.Select并End With保存工作簿。

下次打开工作簿时，您会发现新的外观。

笔记， 图纸的尺寸、内部和字体颜色以及字体名称和大小均可编辑。

答案2

此更新的代码使所有工作表变为黑色，并添加单元格边框来模拟网格线；

Private Sub Workbook_Open()

    Dim xsheet As Worksheet

    For Each xsheet In ThisWorkbook.Worksheets
        xsheet.Select
        With Range(Cells(1, 1), Cells(1048576, 5000))
            .Interior.Color = vbBlack 'xlNone '
            .Font.Name = "Calibri"
            '.Font.Size = "11"
            .Font.Color = vbWhite 'vbBlack
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlThin
            .Borders.ColorIndex = 49 'colors here http://dmcritchie.mvps.org/excel/colors.htm
        End With
    
    Next xsheet

End Sub

相关内容