Создание обработчика для листа с исп. Activate и Deactivate

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Создание обработчика для листа с исп. Activate и Deactivate (Макросы/Sub)

anyxxxxxxi

Дата: Воскресенье, 25.12.2022, 14:02 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!
Есть такая задачка - "Создать обработчик для Листа1, в котором при перемещении в любую ячейку столбца D этот столбец скрывается. При уходе с листа столбец открывается."

Первая часть работает только при уходе с листа (как только мы ставим курсор в ячейку столбца Д, он должен стать скрытым, однако у меня он скрывается только при уходе с Листа1). Вторая часть не работает вообще, выдаёт ошибку. (скрытый столбец D должен появиться при уходе с Листа1)
Работаю с VBA совсем недавно, хотелось бы разобраться. Пример моего кода прикрепляю. Заранее спасибо!

К сообщению приложен файл: 9380189.xlsm (14.6 Kb)

Ответить

pechkin

Дата: Воскресенье, 25.12.2022, 14:40 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

Репутация: 49 ±

Замечаний: 0% ±

2003

Здравствуйте![vba]

Код

Private Sub Worksheet_Activate()
Columns("D:D").EntireColumn.Hidden = False
End Sub
Private Sub Worksheet_Deactivate()
Columns("D:D").EntireColumn.Hidden = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col As Range: Set col = Range("D:D")
   If Not Intersect(col, Target) Is Nothing Then
        Columns("D:D").EntireColumn.Hidden = True 'Скрывает столбец
   End If
End Sub

[/vba]

К сообщению приложен файл: 9380189_.xls (32.5 Kb)

Сообщение отредактировал pechkin - Воскресенье, 25.12.2022, 14:42

Ответить

anyxxxxxxi

Дата: Воскресенье, 25.12.2022, 22:16 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

pechkin, спасибо большое, разобралась!

Ответить

Создание обработчика для листа с исп. Activate и Deactivate (Макросы/Sub)

Страница 1 из 1
1