VBA隐藏列如果

Question

我希望您能帮助我解决我在Excel VBA中面临的挑战。我不确定如何解释这一点，但我会尽力而为。

我想"隐藏"两列，如果两列都包含相同的文本" d4"one_answers" cell" e4。

列中的文本并不总是相同的。有时，这是两个" d4"＆amp;" E4"，有时在两个单元格中都是" notest"的，有时候它可能只有两个单元格中的一个文本，这意味着列不应隐藏。

如果解释是虚弱的，请告诉我，我会尝试以不同的方式解释。

预先感谢！

Answer 1

尝试一下：

Sub HiddenTreasure()
    If Range("D4") = Range("E4") Then
        Range("C:D").EntireColumn.Hidden = True
    Else
        Range("C:D").EntireColumn.Hidden = False
    End If
End Sub

Answer 2

您可以使用以下子。

Sub ShowColumns()
Dim firstCaseToCheck As String
Dim secondCaseToCheck As String
Dim nameOfYourSheet As String
firstCaseToCheck = "D4"
secondCaseToCheck = "E4"
nameOfYourSheet = "Name Of Your Sheet"
With ThisWorkbook.Sheets(nameOfYourSheet)
    If (.range(firstCaseToCheck) = .range(secondCaseToCheck)) Then
        .range(Split(Cells(1, .range(firstCaseToCheck).Column).Address(True, False), "$")(0) & ":" & _
                Split(Cells(1, .range(secondCaseToCheck).Column).Address(True, False), "$")(0)).EntireColumn.Hidden = True
    Else
        .range(Split(Cells(1, .range(firstCaseToCheck).Column).Address(True, False), "$")(0) & ":" & _
                Split(Cells(1, .range(secondCaseToCheck).Column).Address(True, False), "$")(0)).EntireColumn.Hidden = False
    End If
End With
End Sub

您可以在> firstCaseTocheck 和 secondCasetocheck 中选择两个单元格，然后使用 nameofyoursheet 选择您的工作表。这将使您无问题地更改所有这些。