根据单元格值更改工作表标签颜色？

Question

我正在尝试创建一个宏，该宏根据出现在工作表上特定单元格中的名称更改选项卡颜色。 名称出现在单元格b11中。 我有七个不同的名称可能会弹出，这取决于具体的工作表是供他们使用的。 我正在尝试将颜色与他们的名字联系起来，并让颜色反映在标签上。

这是我尝试和使用的公式，但老实说，我只是在这里在黑暗中拍摄。 我不知道我在做什么。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
  
    Case "Arica"
        Me.Tab.Color = vbYellow
    Case "Amy"
        Me.Tab.Color = vbGreen
    Case "Nadia"
        Me.Tab.Color = vbBlue
    Case "Roelisa"
        Me.Tab.Color = vbOrange
    Case "Wezi"
        Me.Tab.Color = vbPurple
    Case "Mabel"
        Me.Tab.Color = vbPink
    Case "Patrice"
        Me.Tab.Color = vbLightBlue
    End Select
End If
End Sub

有没有人可以帮我写一个公式来执行我希望它做的事情？ 谢谢！

Answer 1

• 您需要正确打开 Select 语句。 （ Select Case Target ）
• 您需要正确结束该过程。 （ End Sub ）

快速浏览文档通常有助于语法。 只是说。

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/select-case-statement

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
    Select Case Target
        Case "Arica"
            Me.Tab.Color = vbYellow
        Case "Amy"
            Me.Tab.Color = vbGreen
        Case "Nadia"
            Me.Tab.Color = vbBlue
        Case "Roelisa"
            Me.Tab.Color = vbOrange
        Case "Wezi"
            Me.Tab.Color = vbPurple
        Case "Mabel"
            Me.Tab.Color = vbPink
        Case "Patrice"
            Me.Tab.Color = vbLightBlue
    End Select
End If
End Sub