更改选项卡颜色和定期刷新

我有一个电子表格，其中每个工作表在单元格C94中都有一个值。 我希望标签颜色根据这个单元格中的值而改变。 然后，我希望工作表每60秒钟左右刷新一次，并更新工作簿中的所有选项卡颜色。

到目前为止，我有这个代码input到每个选项卡：

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("$C$94").Value Case "In Progress" Me.Tab.ColorIndex = 43 Case "Missed Lay" Me.Tab.ColorIndex = 3 Case "Action Required" Me.Tab.ColorIndex = 45 Case "Complete" Me.Tab.ColorIndex = 1 Case Else Me.Tab.ColorIndex = xlColorIndexNone End Select End Sub 

无论何时我手动更改单元格中的数据并按回车，这都会工作并更新。 我如何得到这个刷新标签的颜色，而不需要改变的价值，并按Enter键？ 是否有可能每60秒刷新一次，或者在工作簿中任何其他工作表中的单元格中更改了数据？ 要么是我的要求的一个合适的解决scheme。

Answer 1

最有效的方法是让Excel更新所有工作表

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws.Tab Select Case ws.Range("C94").Value2 Case "In Progress": .ColorIndex = 43 Case "Missed Lay": .ColorIndex = 3 Case "Action Required": .ColorIndex = 45 Case "Complete": .ColorIndex = 1 Case Else: .ColorIndex = xlColorIndexNone End Select End With Next End Sub 

有办法每分钟监视一次更改，但会占用更多的资源