没事给自己做的一个玩具（标示选中的工作表标签）

little-key

原来考虑的是工作表标签的颜色（默认无色）和工作表的表格的颜色相近，所以想标注工作表标签的颜色作为显著标示。

注：未考虑新增工作表或者是移动工作表，如果使用类来编写，应该就不会出现这些情况。只当给自己的一个玩具而已。
演示：


附件： 当前工作表标签自动变色.rar (9.6 KB, 下载次数: 39)

2010-8-26 22:23 上传

点击文件名下载附件

yuxuan1277

好玩的。。。。谢谢班主、、、、

little-key

老彭的做法：

1. Public a, b
   
2. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
3. c = a
   
4. a = ActiveSheet.Tab.ColorIndex
   
5. ActiveSheet.Tab.ColorIndex = 3
   
6. If b <> "" Then Sheets(b).Tab.ColorIndex = c
   
7. b = ActiveSheet.INDEX
   
8. End Sub

复制代码