Question

我不喜欢Excel 2010的白色工作表背景，因此我选择Page Layout-> Background并选择* .jpg，将其设置为使用25x25像素* .jpg的炭色。

然后我将工作表字体设置为黄色以获得最大对比度。看起来不错！

然后出现问题。当我选择一个单元格并开始输入时。当我开始输入时，单元格的背景颜色变为白色。使用黄色字体，我无法看到带有白色背景的文本（没有对比度）。

如何输入单元格并且它是深色背景颜色？它不一定是* .jpg背景颜色 - 它可能是任何黑暗，所以我可以看到黄色文字。

我假设一个VBA宏可以解决这个问题。我无法找到OnTypingInCell的事件，我可以设置内部颜色。我能找到的最接近的是Workbook_SheetSelectionChange，但似乎在输入单元格之前就会立即调用它。

Answer 1

这似乎适合您的问题（使用DarkGray和黄色）

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    With Target.Font
        .Color = -16711681
        .TintAndShade = 0
    End With

End Sub

Answer 2

<强> *** ***解

0）设置背景颜色click here

1）打开VBA编辑器（Alt-F11）

2）右键单击ThisWorkbook和View Code

3）在代码窗口中，从下拉列表中选择工作簿

4）在代码窗口中，从下拉列表中选择SheetSelectionChange

5）将以下代码添加到代码窗口：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Static OldRange As Range

    If Cells(1, 1).Interior.ColorIndex <> xlColorIndexNone Then
        Cells(1, 1).Interior.ColorIndex = xlColorIndexNone
        Cells(1, 1).Font.ColorIndex = xlColorIndexNone
        Cells(1, 1).Borders.ColorIndex = xlColorIndexNone
    End If

    Selection(1, 1).Activate
    On Error Resume Next
    OldRange.Interior.ColorIndex = xlColorIndexNone
    OldRange.Font.ColorIndex = xlColorIndexNone
    OldRange.Borders.ColorIndex = xlColorIndexNone
    Target.Interior.ColorIndex = 48 ' background color
    Target.Font.ColorIndex = 6 ' font color
    Target.Borders.ColorIndex = 9 ' border color
    Set OldRange = Target
End Sub

<强> *** ***奖金

问：如何设置Excel模板？

答：好问题！如果要打开Excel并查看新背景（每次！），请执行以下步骤：

0）创建两个文件夹：

    C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\
    C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\background\

1）打开Excel并保存以下三个文件：

C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\Book.xltm
C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\Sheet.xltm
C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART\background\<filename of background color>

2）打开Book.xltm并使用<filename of background color>

配置背景

3）在Excel打开时配置Book.xltm中您想要的任何其他项目。

4）将粘贴Book.xltm复制到Sheet.xltm并删除Sheet.xltm中的额外工作表（仅一页）

5）保存并关闭excel

6）打开excel - ＆gt;您的更改现已到位

注意：Sheet.xltm是您点击“新表格”时使用的内容。 Excel中的按钮

键入单元格时如何保持背景颜色？

2 个答案: