更改Excel中最后4个Excel工作表（VBA）的选项卡颜色
我从一个Perl脚本中创build一个Excel电子表格，该脚本读入多个文本文件来填充电子表格中的工作表。 可以有不同数量的文本文件，因此可以创build不同数量的工作表。 我想要自动更改每个电子表格中LAST 4工作表的标签颜色（如果有8个工作表创build，我想更改工作表5,6,7和8的标签颜色。如果有9个工作表创build，我想要更改工作表6,7,8和9的选项卡颜色，等等）。 先谢谢你。
把下面的代码放在一个子…
获取页数
Dim numSheets As Long numSheets = ThisWorkbook.Sheets.Count 循环最后4张。 使用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