如何动态改变EXCEL下活动工作表标签的颜色？

我的意思是：比如一.xls文件下有3个工作表（Sheet1、Sheet2、Sheet3），当我点Sheet2标签时，Sheet2标签的颜色变成红色，其他2个变成未选中状态的普通色。如果我点击sheet1或sheet3，情况类似。就是点哪个，哪个变色。不知通过VBA代码能否实现？请高手指教。

全部回答

2010-08-10

0 0

EXCEL 2003可在“格式/工作表/工作表标签颜色”中，改变标签颜色，但没有你说的那种动态变彩色功能。经查询，EXCEL 2007也无此功能。其实，EXCEL 2003，目前就是你打开一个工作表，其标签为白色，其他未选中者为浅灰色，区别已经很明显。

提交

2010-08-11

350 0

Private Sub Workbook_SheetActivate(ByVal Sh As Object) For Each Sh In Sheets Sh.Tab.ColorIndex = -4142 Next ActiveSheet.Tab.Color = 255 End Sub