Макрос обновления

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

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

27.07.2016 09:37:28

Друзья!

Необходима ваша помощь!

Дело в том, что у меня есть файл, который частично завязан на работе макросов. Проблема возникла с одним из макросов: макрос содержит в себе условие о том, что если объект "флажок" выделен, то открывается/скрывается определенный диапазон строк. Но при этом открытие/скрытие строк происходит только при последующем действии, например, при выделении какой-либо ячейки. Лист запаролен, но часть ячеек имеет разрешение для редактирования (не защищена), поэтому очень часто, когда я жму "флажок" открытие/скрытие ячеек происходит только после того, как я выделю любую доступную мне для редактирования ячейки.

В связи с этим вопрос - есть ли такой макрос, который бы можно было присвоить кнопке, обозвав ее "обновление расчета" к примеру, для того, чтобы при нажатии на нее макрос скрытия/открытия срабатывал сразу и строчки автоматически скрывались и открывались?

Благодарю!

kuklp Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 27.07.2016 09:42:41 Сюр какой-то. Писать надо было так, чтоб строки скрывались\отображались сразу по изменению флажка. Я сам - дурнее всякого примера! ...

ann_hyalinestar

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

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

27.07.2016 09:46:07

Такой и написан)..
Код:

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 'сркытие/открытие строк
 Select Case [m60]
Case 0
Rows("31:32").Hidden = True
Case 1
Rows("31:32").Hidden = False
End Select
 
Select Case [p69]
Case 0
Rows("34:35").Hidden = True
Case 1
Rows("34:35").Hidden = False
End Select

Joiner

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

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

27.07.2016 09:47:07

Цитата
ann_hyalinestar написал: В связи с этим вопрос - есть ли такой макрос,

Макрос есть, если его написать.

Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.

ann_hyalinestar Пользователь Сообщений: 20 Регистрация: 03.04.2015	#5 27.07.2016 09:49:33 Отлично! может ли кто-то из знатоков помочь с написанием?сориентировать?

kuklp

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

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

E-mail и реквизиты в профиле.

27.07.2016 09:52:08

ann_hyalinestar, может снизойдете до прочтения Правил и выложите пример?

Цитата
ann_hyalinestar написал: Такой и написан).. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Такой, да не такой. Ваш макрос никакого отношения к флажку не имеет, а срабатывает по событию изменения выделения.

Изменено: kuklp - 27.07.2016 09:55:36

Я сам - дурнее всякого примера! ...

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#7 27.07.2016 09:52:38 ann_hyalinestar, могут. Только если файл приложите, согласно правил форума. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Joiner

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

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

27.07.2016 09:59:59

Ориентация такая. Перетащите макрос в отдельный модуль, создайте кнопку на листе, присвойте кнопке этот макрос.

Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.

kuklp

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

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

E-mail и реквизиты в профиле.

27.07.2016 10:08:24

Кстати Ваш макрос можно до двух строк ужать:

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'сркытие/открытие строк Rows("31:32").Hidden = [m60]-1 Rows("34:35").Hidden = [p69]-1 ...

Я сам - дурнее всякого примера! ...

ann_hyalinestar

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

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

#10

27.07.2016 10:14:24

Всем огромное спасибо)
Действительно, я перенесла макрос в модуль и причалила его кнопке на интерфейсе рабочего листа.

еще раз спасибо за советы!)
п.с. С правилами формула я знакома, просто я на работе,пишу с телефона, так как система безопасности на рабочем компьютере блокирует доступ на сайт.обещаю соблюдать правила,каюсь!)