Попытка отобразить дополнительную колонку, если какая-либо ячейка в диапазоне соответствует критериям

Question

Моя электронная таблица выставляется с повторяющимися строками для ручной проверки данных. Столбец «I» содержит выпадающее меню с помощью функции «Проверка данных» с тремя параметрами. Я пытаюсь сохранить дополнительную колонку «K» скрытой, если только (редкий) случай, когда опция «N/A» выбрана из раскрывающегося списка.

Private Sub Worksheet_Change(ByVal Target As Range) 
     If Columns("K").EntireColumn.Hidden = True Then 
      If Target.Value = "N/A" Then 
      Act3 
      Else 
      Act4 
     End If 
     Else 
     Act4 
     End If 
    End Sub 

Sub Act3() 
    Columns("K").EntireColumn.Hidden = False 
End Sub 

Sub Act4() 
    Columns("K").EntireColumn.Hidden = True 
End Sub 

Мой код может быть немного грубым, но он по крайней мере отображает столбец при выборе правильных критериев. Моя проблема в том, что если другой ячейке присваивается выбор, который не требует дополнительного столбца, он снова скрывает столбец. Что мне не хватает? Есть функция, которая позволяет что-то вдоль линий:

«Если какой-либо в диапазоне Then»

Answer 1

Попробуйте добавить свою функцию AnyNA. Он проходит через всю вашу колонку, чтобы проверить наличие N/A и не скрывать, когда они найдены.

Кажется, вы только хотите рассмотреть скрытие, если оно не скрыто и наоборот, поэтому я оптимизировал для вас. Кроме того, для ясности удалены избыточные «= True» и изменены подзаголовки на «Скрыть» и «Показать».

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Columns("K").EntireColumn.Hidden And Target.Value = "N/A" Then 
     Unhide 
    ElseIf Not Columns("K").EntireColumn.Hidden And Not AnyNA Then 
     Hide 
    End If 
End Sub 

Private Function AnyNA() As Boolean 
    For Row = 1 To Range("J" & Rows.Count).End(xlUp).Row 
     If Range("J" & Row).Value = "N/A" Then 
      AnyNA = True 
      Exit Function 
     End If 
    Next 
    AnyNA = False 
End Function 

Sub Unhide() 
    Columns("K").EntireColumn.Hidden = False 
End Sub 

Sub Hide() 
    Columns("K").EntireColumn.Hidden = True 
End Sub 

Answer 2

С помощью @Sean Скотта, я нашел решение:

Sub Worksheet_Change(ByVal Target As Range) 
     If Columns("K").EntireColumn.Hidden Then 
     If Target.Value = "N/A" Then 
      UnhideDocs 
     End If 
     ElseIf Not Columns("K").EntireColumn.Hidden And Not Target.Value = "N/A" Then 
     HideDocs 
     End If 
    End Sub 

Function AnyNA() As Boolean 
    For Row = 1 To Range("K" & Rows.Count).End(xlUp).Row 
    If Range("K" & Row).Value = "N/A" Then 
     AnyNA = True 
    End If 
    Next 
    AnyNA = False 
End Function 


    Sub UnhideDocs() 
    Columns("K").EntireColumn.Hidden = False 
    End Sub 

    Sub HideDocs() 
    Columns("K").EntireColumn.Hidden = True 
    End Sub