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

Question

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

Answer 1

将以下代码放在子...

中

获取张数

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