选项卡 ColorIndex 重置 excel vba

Question

我编写了一个 VBA 脚本，它根据单元格值更改工作表选项卡的颜色。 当我放值时脚本运行良好，但是当我清除单元格的内容值时，脚本失败并且颜色选项卡没有重置。

此工作簿上的脚本：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("BH37")) Is Nothing Then
    Call CouleurOnglet(Sh, Target)
End If
End Sub

模块上的脚本：

Sub CouleurOnglet(Sh As Object, Target As Range)
With Sh
    Select Case Target
    Case Is = "OK"
        .Tab.ColorIndex = 4 'Couleur verte
    Case Is = "NOK"
        .Tab.ColorIndex = 3 'Couleur rouge
    Case Is = "A vérifier"
        .Tab.ColorIndex = 45 'Couleur orange
    Case Else
        .Tab.ColorIndex = xlAutomatic 'reset couleur
    End Select
End With
End Sub

Answer 1

选项卡的默认颜色是无颜色，在 ColorIndex 中的值为 -4142 或 xlcolorindexnone。

如果你把而不是：

.Tab.Color = xlAutomatic

代码：

.Tab.ColorIndex = xlColorIndexNone

它应该可以按需要工作。