Question

我有一份包含多个数据表的大型报告，以及大约12-20张已分发的报告。我目前要做的是移动/复制，所有选项卡，然后通过复制和粘贴值来删除数据透视引用。我将彩色编码的哪些应该组合在一起。

我确实是VBA的新手，但想知道是否有人可以帮助我。无论如何在VBA中引用标签颜色？如果是这样，有人可以提供一个快速的代码，可能会为我这样做。

Answer 1

如果标签指定了颜色，则

Activesheet.Tab.Color

将返回RGB值（如Long）。如果未指定颜色，则返回False

Answer 2

我不确定你要做什么，但除了Tim说你可以使用颜色索引访问标签的颜色，例如：

ActiveSheet.Tab.ColorIndex

返回与简单颜色匹配的数字。

这里有一张桌子可供您使用： http://dmcritchie.mvps.org/excel/colors.htm

要遍历工作表，您可以编写一个简单的循环，例如：

Dim Sheetcount As Integer
Dim i As Integer
Sheetcount = ActiveWorkbook.Worksheets.Count

For i = 1 To Sheetcount
  If ActiveWorkbook.Sheets(i).Tab.ColorIndex = 3 Then 'just an example color
         'your code here
Next i

按标签颜色移动到新工作簿作为值？

2 个答案: