某工作表中某一单元格数值由其他值变0时，工作表标签颜色也会随之变色，有什么方.. ...

插肩错过的美

某工作表中某一单元格数值由其他值变0时，工作表标签颜色也会随之变色，有什么方法？

礁石是大海的疤

VBA条件判断一下

开心果袁德兵

比如：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells(1, 1) = "" Then
ActiveSheet.Tab.Color = vbRed
ElseIf Cells(1, 1) <> "" Then
ActiveSheet.Tab.Color = vbYellow
End If
End Sub