有条件地取消隐藏 Excel/vba 中的工作表

Question

如果一组工作表满足特定条件，我会尝试取消隐藏它们。这使用由命令按钮触发的用户表单，带有选择选项和另一个命令按钮。预期的行为是，一旦做出选择并按下按钮，所有符合条件的工作表都将被取消隐藏。 Target 字出现在第一行的不同位置，并且在该行之前的所有单元格都是空的。理想情况下，该过程将扫描工作簿中每个工作表的第一行中的每个单元格，直到遇到Target，取消隐藏工作表，然后移动到下一个工作表以重新开始该过程，直到所有工作表与工作簿已经检查过了。

激活用户表单上的命令按钮后，我得到以下信息：

Private Sub ContinueCommand_Click()
Dim Valid As Boolean, wks As Worksheet, c As Integer, actCol As Long    
    actCol = ActiveSheet.Range("A1").End(xlToRight).Column
    For Each wks In ActiveWorkbook.Worksheets
        For c = 1 To actCol
            If ActiveCell.Value = "Target" Then
                wks.Visible = xlSheetVisible
                Exit For
            End If
        Next c
    Next wks
    Valid = True
If Valid = True Then
Unload Me
End If
End Sub

我从多个来源借用，包括使用 ActiveCell 的 here、determining if a value exists、unhidding worksheets、Finding values within a range 和 searching for a string。任何帮助将不胜感激。

Answer 1

正如我在我的 cmets 中所说，您选择的实现方式存在一些问题。

不需要您的For c = 1 To actCol 循环。这很容易看出，因为c 并没有真正在循环中的任何地方使用。

假设您的目标值在wks.Range("A100")（第 1 行第 100 列）中。

然后，您的代码将执行完全相同的操作 100 次，并得出完全相同的结果。这就是导致您使用 Exit For 的原因，这是一种不好的做法。

如果我正确理解了您的初始帖子，如果 Target 存在于特定工作表中，则 Target 之前的所有单元格都是空的。

如果是这种情况，Target 将位于 wks.Range("A1") 或 wks.Range("A1").End(xlToRight) 中。如果它不在这两个单元格中，那么它在这个特定的工作表中根本不存在，这意味着第一行完全是空的。除了这两个之外，您无需再检查任何单元格。

您的代码不会检查Target 是否在wks.Range("A1") 中。

您还使用了Application.Match，这让我相信您可能被以下普遍误解所误导：wks.Range("A1").End(xlToRight) 是从A1 开始的一系列单元格，一直延伸到最后一个非空单元格在第一行。

事实上，wks.Range("A1").End(xlToRight) 是一个单个单元格，而不是一系列单元格。选择A1，然后按CTRL+right arrow，将准确显示它是哪个单元格。

我可能遗漏了一些东西，但根据您在最初帖子中的描述，我会执行以下操作：

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
    If sht.Range("A1").Value = "Target" Or sht.Range("A1").End(xlToRight).Value = "Target" Then
        sht.Visible = xlSheetVisible
    Else
        MsgBox "target was not found in " & sht.Name
    End If
Next sht

Answer 2

我要感谢 BruceWayne、Scott Craner、Stavros Jon、Darell H，他们帮助我更接近这个答案。最终结果如下所示：

Private Sub ContinueCommand_Click()
Dim wks As Worksheet    
    For Each wks In ActiveWorkbook.Worksheets
       If Not IsError(Application.Match("Target", wks.Range("A1").End(xlToRight), 0)) Then
                wks.Visible = xlSheetVisible
            End If
    Next wks
Unload Me
End Sub

如果以后有人在让这个工作时遇到问题，请告诉我，我会发布更完整的版本。