更改Excel中最后4个Excel工作表的选项卡颜色（VBA）

问题描述：

我从一个Perl脚本创建一个Excel电子表格，该脚本读入多个文本文件以填充电子表格中的工作表。可以有不同数量的文本文件，因此可以创建不同数量的工作表。我想自动更改每个电子表格中LAST 4工作表的标签颜色（如果有8个工作表创建，我想更改工作表5,6,7和8的标签颜色。如果有9个工作表创建，我想要工作表6,7,8和9的更改选项卡颜色，等等）。先谢谢你。更改Excel中最后4个Excel工作表的选项卡颜色（VBA）

问题是什么？你遇到了一些具体问题吗？如果您需要语法方面的帮助，那么首先在Excel中录制一个宏，同时更改标签颜色，然后修改生成的代码。 –

谢谢蒂姆。全部排序。 –

答

将下面的代码在子......去年4张张

Dim numSheets As Long 
numSheets = ThisWorkbook.Sheets.Count

河套

获取数。使用max以确保您访问的有效图纸编号（大于0）

Dim i As Long 
For i = Application.Worksheetfunction.Max(1, numSheets-3) To numSheets 
    ' change tab colour, use any RGB triplet 
    ActiveWorkbook.Sheets(i).Tab.color = RGB(230,255,100) 
Next i

非常感谢Wolfie。这正是我想要做的。请注意，我不得不将ThisWorkbook.Sheets.Count更改为Application.Sheets.Count，因为ThisWorkbook.Sheets.Count只给我1，这只改变了第一张工作表的颜色。再次感谢！ –

更改Excel中最后4个Excel工作表的选项卡颜色（VBA）

相关推荐