根据日期值显示/隐藏工作表的宏

Question

我有一个由可执行文件创建的 Excel 工作簿，其中包含每月各天的数据在单独的工作表上。可执行文件的“表 1”还列出了该月的日期。我想编写一个宏，根据“表 1”中的日期显示/隐藏工作表。

例如，如果一月份的数据显示了第 1,2,3,4,5,11,12 天，则宏应仅显示第 1 天、第 2 天、第 3 天、第 4 天、第 5 天的相应工作表，并隐藏第 6 天到第 6 天Day10 并显示 Day11 和 Day12。任何指示表示赞赏。

谢谢。

Answer 1

public sub setSheetVisiblity()

  'Load the data from sheet 1 into a collection
  'I'm making the assumption that you just have days listed horizontally from 
  '1A to 1*

  Dim currentColumn as Integer
  Dim activeDayCollection as Collection

  currentColumn = 1
  Set activeDayCollection = new Collection

  While Cells(currentColumn, 1).Value <> ""

    activeDayCollection.add Cells(currentColumn, 1).Value 

    currentColumn = currentColumn + 1
  Wend

  'Make every sheet invisible/visible
  For each currentWorksheet as Worksheet in Worksheets

    If currentWorksheet.Name == "Day" + activeDayCollection.Item 1 Then
      currentWorksheet.Visible = true
      activeDayCollection.Remove 1
    Else
       currentWorksheet.Visible = false
    End If

  Next currentWorksheet
end sub

该代码的工作原理是假设第一个工作表中的日期按递增顺序排列，这些工作表被命名为 Day###，其中 ### 是天数，并且您可能需要添加另一行来手动取消隐藏您的工作表。第一张纸。我没有 vba，所以这段代码可能有一些语法错误，但它应该让你朝着正确的方向前进。