доработка кода

Guest

Гость

03.10.2009 12:53:48

Добрый день!
Есть следующий код:

Private Sub CommandButton1_Click()
With Worksheets("Лист1")
.Protect Password:="111", userinterfaceonly:=True
Selection.EntireRow.Hidden = True
End With
End Sub

Помогите реализовать следующие возможности:
1. Необходимо, чтобы скрывались не выделенные строки, а все строки ниже выделенной.
2. Код должен работать не на всем листе, а ,например, только на строках 30 - 80

Спасибо!

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 03.10.2009 13:11:33 Private Sub CommandButton1_Click() If ActiveCell.Row <= 80 And ActiveCell.Row >= 30 Then Worksheets("Лист1").Protect Password:="111", userinterfaceonly:=True Range(ActiveCell.Row & ":" & Rows.Count).EntireRow.Hidden = True End If End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 03.10.2009 13:20:20 Попробуйте: x = ActiveCell.Row Range(Rows(x), Rows(x + 30)).Hidden = True Скроет активную и 30 ниже.

Guest Гость	#4 03.10.2009 13:22:00 спасибо, опробую :-)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 03.10.2009 13:22:16 Не - я неправильно понял задачу, а Игорь правильно :-)

Guest

Гость

03.10.2009 14:00:33

вот этот код я опробовал:

Private Sub CommandButton1_Click()
If ActiveCell.Row <= 80 And ActiveCell.Row >= 30 Then
Worksheets("Лист1").Protect Password:="111", userinterfaceonly:=True
Range(ActiveCell.Row & ":" & Rows.Count).EntireRow.Hidden = True
End If
End Sub

Результат:
Код работает, но при этом скрывает все строки, а нужно только по 80-ую

Guest Гость	#7 03.10.2009 14:01:44 да, и еще скрывать нужно начиная со следующей строки, а не с выделенной

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 03.10.2009 14:09:25 Может так: Range(ActiveCell.Row +1 & ":" & 80).EntireRow.Hidden = True

Guest Гость	#9 03.10.2009 18:27:57 Спасибо огромное! Теперь все как надо

Читают тему