更改 Excel (VBA) 中最后 4 Excel 个工作表的标签颜色

Question

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

Answer 1

将以下代码放入子...

获取 sheet 的数量

Dim numSheets As Long
numSheets = ThisWorkbook.Sheets.Count

循环过去 4 sheet 秒。使用 max 确保您访问的是有效的 sheet 号码（大于 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

更改 Excel (VBA) 中最后 4 Excel 个工作表的标签颜色

Change Tab Color Of Last 4 Excel Worksheets in Excel (VBA)

excel

tabs

vba

worksheet