改变Selection.ColumnDifferences风格

Question

我创建了一个宏，将一个快速访问图标添加到Excel工具栏上，以执行F5、特殊的列差异任务。

如何更改该动作的突出显示样式？目前，它是一种灰色白色，如果列(50+行)中存在多个差异，则多个差异不易识别。

我尝试了这个修改，但是在选择了另一个单元之后，突出显示将保持不变。

Sub column_difference()

    Selection.ColumnDifferences(ActiveCell).Select
    Selection.Style = "Bad"

End Sub

Answer 1

“坏”是内置风格的名字。如果你把样式的名称改为“好的”，你就会得到另一种颜色。如果您要创建一个名为"MyStyle“的样式，您可以自己指定颜色。

Home丝带上有一个“样式”菜单。在这个菜单上有一个下拉按钮，叫做“单元格样式”。在单击该按钮时打开的对话框底部，有一个名为“新建单元格样式”的按钮。在该按钮后面的对话框中，您可以创建自己的样式，并将其称为"MyStyle“。之后，您可以在代码中使用"MyStyle“名称。您可以使用工作簿保存样式。

不用说，您的代码只在存在MyStyle样式的工作簿中工作。另一方面，Style只是特定单元格格式的集合。在“样式设置”对话框中，可以找到样式影响的所有格式属性的列表。你的兴趣似乎集中在细胞的填充颜色上。因此，与其改变所选单元格的样式，不如只改变它们的填充颜色。

选择任何单元格，并以您想要的方式对其进行着色。然后，在该单元格仍然被选中的情况下，在VBE的立即窗口中输入? ActiveCell.Interior.Color。这会给你选择的颜色的号码。然后使用该数字修改代码。

Sub column_difference()

    Selection.ColumnDifferences(ActiveCell).Select
    Selection.Interior.Color = 255

End Sub

255 = vbRed。上述代码将将所选内容的填充颜色更改为红色，但保留以前的字体颜色。额外的行Selection.Font.Color = vbWhite也会改变这一点。如果您使用这两个属性创建了MyStyle，那么您可以使用一行更短的代码应用这两个命令。Selection.Style = "Normal"会将所有内容更改回原来的格式，即当第一次创建工作表时，该单元格的格式是什么。