在线求助用VBA设定工作表标签颜色

kevin_huang · 发表于 2005-12-21 11:06

当该工作表中A1>0时，如何将工作表标签颜色改变，这个VBA怎么做？

Long_III · 发表于 2005-12-21 11:11

Sub hjs()
Dim sht As Worksheet

For Each sht In Sheets
If sht.[a1] > 0 Then
sht.Tab.ColorIndex = 40 '这里的值可以自己设置
Else
sht.Tab.ColorIndex = xlColorIndexNone
End If
Next
End Sub

建议楼主多试试录制宏才学习代码。

阿泉 · 发表于 2005-12-21 11:15

Sub Macro1()
sh = Worksheets.Count

For i = 1 To sh
If Sheets(i).Range("a1") > 1 Then

Sheets(i).Tab.ColorIndex = 4
End If
Next
End Sub

运行：hjs或者Macro1

3qmpnjBs.rar (6.9 KB, 下载次数: 81)

[此贴子已经被作者于2005-12-21 11:47:29编辑过]

kevin_huang · 发表于 2005-12-21 11:40

我还是不会做。请帮忙！做一个文件。

plxmm · 发表于 2005-12-21 12:36

用3楼的附件，然后自己在工作表中画一个自选图形，右键点击，指定宏即可。

thruney · 发表于 2014-8-20 16:31

求助大神！！！怎样在输入的最后一行数的某一列的数值符合＜5的条件下，工作表标签颜色发生改变，变成红色呢？？？

thruney · 发表于 2014-8-20 16:32

不知道这个早的帖子，大神们还在不在啊！！！！！

		自动登录	找回密码
密码			免费注册

[求助] 在线求助用VBA设定工作表标签颜色