动态更改工作表选项卡的颜色(Microsoft Excel)
安德鲁知道如何手动更改工作表选项卡的颜色。
但是,他希望有一种方法可以根据工作表中单元格中的值更改选项卡颜色。
为此,您需要使用宏。关键在于您要通过以下方式更改Tab对象的Color属性:
ActiveSheet.Tab.Color = vbRed
达到进行这种颜色分配的目的的逻辑取决于您要执行的操作和执行的时间。假设您要根据单元格A1中的内容更改标签颜色,可以使用如下所示的宏:
Private Sub Worksheet_Change(ByVal Target As Range) MyVal = Range("A1").Text With ActiveSheet.Tab Select Case MyVal Case "0" .Color = vbBlack Case "1" .Color = vbRed Case "2" .Color = vbGreen Case "3" .Color = vbYellow Case "4" .Color = vbBlue Case "5" .Color = vbMagenta Case "6" .Color = vbCyan Case "7" .Color = vbWhite Case Else .ColorIndex = xlColorIndexNone End Select End With End Sub
您需要将该宏添加到要修改其选项卡的工作表的代码中。 (右键单击工作表的选项卡,然后从上下文菜单中选择“查看代码”。将代码粘贴到该代码窗口中。)宏将捕获单元格A1中的所有内容,然后使用“选择大小写”结构来更改选项卡的颜色。如果A1包含0到7,则逻辑更改颜色。如果那里没有其他值(或根本没有任何值),则使用ColorIndex属性将选项卡的颜色设置回其默认值。
可以修改宏,以便它测试的是文本字符串(例如“ Black”,“ Red”等)或某些关键字(例如“ Low”或“ High”)。您还可以在Color属性中使用不同的颜色名称,例如RGB函数:
.Color = RGB(255, 0, 0)
注意:
如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。
_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。
本提示(13138)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。