web-dev-qa-db-ja.com

MS Excelのセルに、デフォルトの逆ではなく、白いテキストで暗い背景を表示させる方法は？

デフォルトでは、MS Excelセルは黒い背景で白い背景を表示します。これは目に眩しいです。痛みさえ感じる人もいます。代わりに白いテキストで黒/暗い背景を表示するようにMSExcelを作成するにはどうすればよいですか？

私たちの多くは、これが私たちの目にもっと快適であると確信するでしょう。

Windows 10でMS Excel 2016を使用しています。

microsoft-excelmicrosoft-officemicrosoft-excel-2016
2
curious

私が提案できる最も簡単な方法は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
Rajesh S

この更新されたコードにより、すべてのシートが黒くなり、グリッド線をシミュレートするためにセルの境界線が追加されます。


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
2
Chris