Здравствуйте! Помогите, пожалуйста, с задачей: скрыть диапазон строк на одном листе, если в конкретной ячейке на другом листе стоит 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]

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