[已解决]求助：如何使excel工作表单击选中时标签变色

yslvictor

如何使excel工作表单击选中时标签变色，比如变绿色？谢谢各位！！

最佳答案

月排行榜 / 总排行榜

xdwy81129

2012-5-18 20:46

yslvictor 发表于 2012-5-18 17:37
你好，这个代码正好和我想要的相反，我要的是选中哪个标签变色，比如选中sheet1，sheet1变色，其他的没有 ...

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim i%
  For i = 1 To Sheets.Count
  Sheets(i).Tab.ColorIndex = -4142
Next i
ActiveSheet.Tab.ColorIndex = 35
End Sub

跳转到最佳答案楼层

xdwy81129

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveSheet.Tab.ColorIndex = 35
End Sub

放在ThisWorkbookl里面就可以了

yslvictor

xdwy81129 发表于 2012-5-18 16:15
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveSheet.Tab.ColorIndex = 35
End Sub

你好，这个代码正好和我想要的相反，我要的是选中哪个标签变色，比如选中sheet1，sheet1变色，其他的没有颜色。还能找个代码吗？谢谢!!!

xdwy81129

yslvictor 发表于 2012-5-18 17:37
你好，这个代码正好和我想要的相反，我要的是选中哪个标签变色，比如选中sheet1，sheet1变色，其他的没有 ...

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim i%
  For i = 1 To Sheets.Count
  Sheets(i).Tab.ColorIndex = -4142
Next i
ActiveSheet.Tab.ColorIndex = 35
End Sub

yslvictor

谢谢xdwy81129老师，问题解决了。

christwanghai

ThisWorkbookl  这个东东在哪里呢