Здравствуйте! Помогите, пожалуйста, с задачей: скрыть диапазон строк на одном листе, если в конкретной ячейке на другом листе стоит 0. Если в ячейке задана 1, то диапазон либо должен отобразиться, либо не скрываться. См. пример.

Shocker.Pro,

Проблема такая, как она описана. Если значение в вычисляемой ячейке C7 = 0, то диапазон на Листе2 должен быть скрыт. Если значение в вычисляемой ячейке C7 = 1, то диапазон на Листе2 должен быть отображен. )))

Shocker.Pro,
я так и проверяю, но макрос не работает.

Макрос в модуле:

Sub Hidden()
Application.ScreenUpdating = 0
Sheets("Лист1").Select
If Range("признак2") = 0 Then
Sheets("Лист2").Select
Range("диапазон2").EntireRow.Hidden = True
Range("Row3").EntireRow.Hidden = True
Range("Row4").EntireRow.Hidden = True
Sheets("Лист1").Select
ElseIf Range("признак2") = 1 Then
Sheets("Лист2").Select
Range("диапазон2").EntireRow.Hidden = False
Range("Row3").EntireRow.Hidden = True
Range("Row4").EntireRow.Hidden = True
End If
Sheets("Лист1").Select
Application.ScreenUpdating = 1
End Sub

у меня работает на вашем примере[/quot]

????? Если на листе1 признак2=0, то на листе2 скрывается диапазон2??

Очень странно... У меня макрос не работает. Макрос расположен в модуле. (((

Shocker.ProДаже еще проще, так как именованные диапазоны распространяются на книгу, а не на лист:



Ну просто мистика какая-то... Посмотрите, пожалуйста, файл во вложении. Исправленный макрос - в Module1.

И, если на Листе1 в ячейку C7 ввожу, например, -100, то признак2 (ячейка C9) = 0. Иду на Лист2, а там диапазон2 (строки 4:20) отображен. Не работает!!!

Shocker.Pro,

Ага, Application.ScreenUpdating = 1.

Я пока еще с VB "на Вы". Поэтому простите за глупый, наверное, вопрос: а как запустить макрос, когда ячейка "признак2" примет значение 0 или 1? )))

Shocker.Pro,

да, действительно работает, если вызвать макрос через меню Excel "Сервис-Макрос-Макросы-Выполнить".

Но мне бы хотелось, чтобы макрос сам запускался при изменении значения в ячейке признак2.

Shocker.Pro
повесить вызов макроса Hidden на событие Calculate для первого листа.

Да.... Вы сказали мне "акваланг"... повесить вызов макроса на событие Calculate для первого листа - это значит на Лист1 записать:

Private Sub Worksheet1_Calculate()
Call Hidden
End Sub

С таким "вызовом" не работает...

Shocker.Pro

тренируйтесь девушка

я и тренируюсь...только глупо тренироватсья, если ничего не получается... я коплю макросы, потом из разных примеров беру нужное - и так учусь... :-)

в модуль Листа1 поместила

Private Sub Worksheet1_Calculate()
Call Hidden
End Sub

Меняю в ячейке C7 положительное число на отризательное и..... тишина...

Shocker.ProKonst_Oneнаучитесь отлаживать свои программы(макросы). для этого есть специальное средство - красная жирная точка слева на полосе в модуле напротив своей строки в содом ставите и вся строка выделяется красным, потом запускает на выполнение и отладчик остановится на этом месте , затем вы можете проверить все значения своих переменных и тд и тп
не помогает, я ей уже советовал

Смейтесь-смейтесь, асы. Все мне помогает и все получилось.

Всем участвующим спасибо. Я не бестолочь. Надо идти на курсы.

Тока фотку в профиль закиньте, чтоб узнаваемость повысить [/quot]

Я так понимаю, что на этом форуме с моими вопросами у меня и без фотки узнаваемость будет неплохая.

Ципихович Эндрю,

А зачем мне узнаваемость? Я несколько раз обращалась на этот форум, нормальное общение, очень помогают! Причем у многих форумчан ник ну никак не из двух русских слов! А я их уже запомнила!

Shocker.Pro[quot Tatirus] нерадивого студента на..... лекции, куда он не ходил весь семестр, а потом просит, чтобы за него все сделали

Спасибо всем, кто помог нерадивому студенту! На самом деле помогли. Хотя, видимо, задачка была для первой группы детского сада ))

Столкнулась с такой проблемой. Макрос, который скрывает диапазоны на двух листах - Sub Hidden(), написанный в отдельном файле Excel, работате прекрасно, без задумчивости.

Когда я вставляю данный макрос в модель Excel (файл с расчетами, другими макросами), он начинает тормозить: минут 10 думает и необходимых действий не выполняет.

При этом, если убрать вызов макроса Hidden - Private Sub Worksheet_Calculate(), и запустить макрос Hidden вручную (через Сервис - Макрос - Макросы - Выполнить), то Hidden прекрасно работает!

С чем это может быть связано? Если я понятно объяснила :))

Shocker.ProВам же посоветовали перевесить это на Change с небольшой добавкой. Вы это сделали?

У меня критерий меняется по формуле, а не ручками

Deggasad:) пример в студию

Не получается, почему-то, приложить файл :((
Без примера, наверное, сложно обсуждать проблему. Попробую попозже выложить пример.

Deggasad Так тупит?

Да

Shocker.ProTatirus,

Почему - написано наверху страницы.
Положите на любой хостинг и дайте ссылку

Скрыть диапазон 4.xls

Еще обратила внимание на то, что макрос Hidden вызывается, если выполняется макрос, который ссылается на лист, в модуле которого прописан вызов макрос Hidden...