Excel宏 - 如何在同一工作簿中的单独工作表中基于单元格更改选项卡颜色？

Question

我尝试了以下内容并且它没有工作 - 任何其他建议？

msbuild /toolsversion:14.0 MyProject.HelloWorld.proj

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyVal$
MyVal = ActiveWorkbook.Sheets("Summary").Range("A8")

With ActiveSheet.Tab
    Select Case MyVal
        Case "Black"
            .Color = vbBlack
        Case "Red"
            .Color = vbRed
        Case "Green"
            .Color = vbGreen
        Case "Yellow"
            .Color = vbYellow
        Case "Blue"
            .Color = vbBlue
        Case "Magenta"
            .Color = vbMagenta
        Case "Cyan"
            .Color = vbCyan
        Case "White"
            .Color = vbWhite
        Case Else
            .ColorIndex = xlColorIndexNone
    End Select
End With
End Sub