1 点击顶部菜单开发工具下的VB编辑器。2 在编辑器窗口的顶部，点击插入模块。3 在代码编辑窗口输入以下代码，运行即可修改excel工作表标签颜色。Sub Macro1() ctiveSheet.Tab.Color = RGB(100, 80, 113) ActiveSheet.Tab.TintAndShade = 0End Sub ...
'修改工作簿中工作簿标签颜色Sheets(1).Tab.Color=vbGreen '恢复工作表标签颜色为无色Sheets(1).Tab.Color=False 注意,代表颜色值的常量可以在VBA帮助系统中查找。 缩放工作表 缩小和放大工作表 代码语言:javascript 代码运行次数:0 运行 AI代码解释 '缩小和放大活动窗口中活动工作表的显示尺寸 '放大至120%ActiveW...
Select Case strProjectStatus Case"进度正常"wks.Tab.Color=5287936Case"进度稍滞后"wks.Tab.Color=65535Case"进度严重滞后"wks.Tab.Color=192End Select Next wks End Sub 你可以将该代码放置到工作簿事件中,实现单元格A1中的内容变化时工作表标签颜色自动变化。
4 我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：SubSetSheetTabColor()ActiveSheet.Tab.ColorIndex=7EndSub 5 代码所作用的对象是当前激活的工作表。TAB是标签对象colorindex是颜色序列。这里标注的7是颜色序列。6 tab支持工作薄对象，所以我们可以直接输入任意的工作表序列比如...
Sub SetWorksheetTabColor() Sheets("完美Excel").Tab.Color= vbGreen End Sub 说明: Tab属性返回代表工作表标签的Tab对象。 运行代码后的效果如下图6所示: 图6 示例4:检查工作表是否已存在 在代码中操作指定的工作表之前,我们可以先检查该工作表是否存在...
三 删除活动工作表的颜色 我们先来看这个功能的操作界面: 点击按钮后,代码会运行,会删除当前活动工作表的标签颜色,如下截图: 四 删除所有工作表标签颜色 我们先来看这个功能的操作界面: 点击按钮后,代码会运行,会删除所有工作表的标签颜色,如下截图: 代码见程序文件:VBA_ChangeSheetTabColor.xlsm 发布...
'比较并设置工作表标签颜色SelectCasestrProjectStatusCase"进度正常"wks.Tab.Color =5287936Case"进度稍滞后"wks.Tab.Color =65535Case"进度严重滞后"wks.Tab.Color =192EndSelectNextwksEndSub 你可以将该代码放置到工作簿事件中,实现单元格A1中的内容变化时工作表...
Dim tabColor As String shtName = shtList.Cells(i, 1).Value tabColor = shtList.Cells(i, 2).Value ' 检查B列是否为空,如果为空则不需要修改工作表标签颜色 If tabColor <> "" Then ' 检查要修改的工作表是否存在 If WorksheetExists(shtName) Then ...
来自专栏 · Excel应用之家 工作表标签是为了能在切换工作表时确认工作表名而付在工作表下方的栏。可以对工作表标签进行颜色设置和显示\隐藏操作。在VBA中可以使用TAB对象来更改标签颜色,对Windows对象使用DisplayWorkbookTabs属性来显示\隐藏工作表标签。 01 更改工作表标签的颜色 使用Colorindex属性来获取\设置工作表标...
ws.Tab.Color = vbRed 三、事件 工作表的事件不算多，在Worksheet对象中。我们常用到的工作表事件有：1、Activate：工作表激活事件。Private Sub Worksheet_Activate() ...End Sub 2、BeforeDoubleClick：鼠标双击之前事件。正常我们双击单元格会进入编辑状态，有了这个双击之前事件，就执行这个过程内的代码，比如...