Показать/скрыть объект, при отображении/скрытии строк /столбцов

Пользователь

Сообщений: 142 Регистрация: 10.02.2016

17.05.2021 07:43:27

Доброго дня. Думаю ответ простой, но до меня что то дойти никак не может.
Хочу, что бы объект "стрелка вверх" был виден, если будут скрыты столбцы E:F и соответственно наоборот.
Подскажите пожалуйста, как правильно это записать?

Код

Private Sub Worksheet_Change()
 If Columns("E:F").EntireColumn.Hidden = True Then
      Shapes("Стрелка вверх 1").Visible = True
 Else
      Shapes("Стрелка вверх 1").Visible = False
 End If
End Sub

Прикрепленные файлы

Стрелка.xlsb (11.37 КБ)

Не перестаю удивляться возможностям excel и VBA.

Апострофф

Пользователь

Сообщений: 775 Регистрация: 06.04.2015

17.05.2021 08:24:12

Shama,
во первых - данная процедура имеет параметр

Код
Private Sub Worksheet_Change(ByVal Target As Range) End Sub

который Вы почему то упустили?
Во вторых - события скрытия-показа столбцов Excel не рассматривает вообще.

Повесьте на кнопку примерно это -

Код
Sub Кнопка_тык() ActiveSheet.Shapes("Стрелка вверх 1").Visible = Columns("E:F").EntireColumn.Hidden End Sub

Изменено: Апострофф - 17.05.2021 08:30:33

Shama

Пользователь

Сообщений: 142 Регистрация: 10.02.2016

17.05.2021 08:29:22

Цитата
Апострофф написал: который Вы почему то упустили?

Ну по незнанию разумеется)

Цитата
Апострофф написал: Во вторых - события скрытия-показа столбцов Excel не рассматривает вообще.

Это конечно жаль. Спасибо за ответ.

Не перестаю удивляться возможностям excel и VBA.