VBA Excel 根据工作表颜色另存为 PDF - 根据选项卡颜色创建工作表数组

Question

我希望我的 PDF 文档符合保存条件，尽管在具有指定颜色的工作表中。

我该怎么做？

  Sub SavecolorTabtoPDF()

  Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets

  If Tab Color = "Blue, Accent 1, Darker 25%" Then
        'export as pdf
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\" & Left(ws.Name, Len(ws.Name) - 2) & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    End If
  Next ws

 End Sub

Answer 1

您想要遍历工作表并根据标签颜色创建工作表数组。

这将创建您的工作表数组，然后将它们作为一个 PDF 文件。

Sub MakeArraySheets()
    Dim sh As Worksheet
    Dim ArraySheets() As String
    Dim x As Variant

    For Each sh In ActiveWorkbook.Worksheets
        If sh.Tab.ColorIndex = 55 Then
            ReDim Preserve ArraySheets(x)
            ArraySheets(x) = sh.Name
            x = x + 1
        End If
    Next sh

    Sheets(ArraySheets).Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=True



End Sub

Answer 2

 dim wsheet as worksheet
  For Each wsheet In Thisworkbook.Worksheets
    if wsheet.tab.colorindex = 1 then
         Worksheet.SaveAs(*parameters*)
    end if
  next wsheet

编辑：您指定颜色的 colorindex 是 55。通过用该颜色填充单元格并运行“mgbox activecell.interior.colorindex”来找出答案 EDIT2：在颜色索引之前删除了“内部”