Fatal编程技术网
  • vba/
  • 在Excel（VBA）中更改最后4张Excel工作表的选项卡颜色

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

vba excel tabs

在Excel（VBA）中更改最后4张Excel工作表的选项卡颜色,vba,excel,tabs,worksheet,Vba,Excel,Tabs,Worksheet,我从一个Perl脚本创建一个Excel电子表格，该脚本读取多个文本文件以填充电子表格中的工作表。可以有不同数量的文本文件，因此，可以创建不同数量的工作表。我想在宏中自动更改每个电子表格中最后4个工作表的选项卡颜色（即，如果创建了8个工作表，我想更改工作表5、6、7和8的选项卡颜色。如果创建了9个工作表，我想更改工作表6、7、8和9的选项卡颜色，依此类推）。提前感谢您。请将以下代码放入子文件夹中 获取张数 Dim numSheets As Long numSheets = ThisWorkboo

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

请将以下代码放入子文件夹中

获取张数

Dim numSheets As Long
numSheets = ThisWorkbook.Sheets.Count
在最后4张纸上循环。使用
max
确保访问的是有效的图纸编号（大于0）

将以下代码放在子目录中

获取张数

Dim numSheets As Long
numSheets = ThisWorkbook.Sheets.Count
在最后4张纸上循环。使用
max
确保访问的是有效的图纸编号（大于0）

有什么问题吗？你有没有遇到什么特别的问题？如果需要语法方面的帮助，请在更改选项卡颜色的同时在excel中录制宏，并修改生成的代码。谢谢Tim。都整理好了，有什么问题吗？你有没有遇到什么特别的问题？如果需要语法方面的帮助，请在更改选项卡颜色的同时在excel中录制宏，并修改生成的代码。谢谢Tim。一切都安排好了。非常感谢你，Wolfie。这正是我想要做的。注意，我必须将ThisWorkbook.Sheets.Count更改为Application.Sheets.Count，因为ThisWorkbook.Sheets.Count只给了我1，这只改变了第一张工作表的颜色。再次感谢！非常感谢你，Wolfie。这正是我想要做的。注意，我必须将ThisWorkbook.Sheets.Count更改为Application.Sheets.Count，因为ThisWorkbook.Sheets.Count只给了我1，这只改变了第一张工作表的颜色。再次感谢！