Добрый вечер!
Имеется 2 кода;
При отсутствии фильтра отрабатывают на ура, но как только ставишь любой фильтр на любом столбце перестаёт отрабатывать возврат столбцов.
Как то можно это пофиксить?
Имеется 2 кода;
| Код |
|---|
Sub jmqw()
Dim N As String
Dim A As Range
Dim B As Range
Set A = Worksheets("тест").Rows(2).Find(300)
If A Is Nothing Then Exit Sub
N = A.MergeArea.Address
Set B = Range(N)
B.Columns.Hidden = Not B.Columns.Hidden
End Sub
|
| Код |
|---|
Sub NJwq()
Dim N As String
Dim A As Range
Dim B As Range
Set A = Worksheets("тест").Rows(2).Find(300)
If A Is Nothing Then Exit Sub
N = A.MergeArea.Address
Set B = Range(N)
If B.Columns.Hidden = True Then
B.Columns.Hidden = False
ElseIf B.Columns.Hidden = False Then
B.Columns.Hidden = True
End If
End Sub
|
Как то можно это пофиксить?
Изменено: - 05.05.2022 19:58:10
