Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скрытие строк с помощью элемента активХ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк с помощью элемента активХ (Формулы/Formulas)
Скрытие строк с помощью элемента активХ
zuzikmba Дата: Пятница, 20.06.2014, 07:09 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Доброе утро!

Прошу помочь с макросом зашитым в элемент АктивХ, файл с поддержкой макросов не загрузился(((

Макрос:

[vba]
Код
Private Sub Отчет_Click()

'Приведение отчета к нормальному виду

If Range("A5") = "Да" Then Rows("20:25").Select
Selection.EntireRow.Hidden = True
If Range("A5") = "Нет" Then Rows("20:25").Select
Selection.EntireRow.Hidden = False

If Range("A6") = "Да" Then Rows("11:17").Select
Selection.EntireRow.Hidden = True
If Range("A6") = "Нет" Then Rows("11:17").Select
Selection.EntireRow.Hidden = False

End Sub
[/vba]
К сообщению приложен файл: example1.xlsx (13.4 Kb)
 
Ответить
СообщениеДоброе утро!

Прошу помочь с макросом зашитым в элемент АктивХ, файл с поддержкой макросов не загрузился(((

Макрос:

[vba]
Код
Private Sub Отчет_Click()

'Приведение отчета к нормальному виду

If Range("A5") = "Да" Then Rows("20:25").Select
Selection.EntireRow.Hidden = True
If Range("A5") = "Нет" Then Rows("20:25").Select
Selection.EntireRow.Hidden = False

If Range("A6") = "Да" Then Rows("11:17").Select
Selection.EntireRow.Hidden = True
If Range("A6") = "Нет" Then Rows("11:17").Select
Selection.EntireRow.Hidden = False

End Sub
[/vba]

Автор - zuzikmba
Дата добавления - 20.06.2014 в 07:09
Pelena Дата: Пятница, 20.06.2014, 08:34 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Попробуйте так
[vba]
Код
Private Sub Отчет_Click()

'Приведение отчета к нормальному виду

If Range("A5") = "Да" Then Rows("20:25").EntireRow.Hidden = True
If Range("A5") = "Нет" Then Rows("20:25").EntireRow.Hidden = False

If Range("A6") = "Да" Then Rows("11:17").EntireRow.Hidden = True
If Range("A6") = "Нет" Then Rows("11:17").EntireRow.Hidden = False

End Sub
[/vba]
И в свойствах кнопки задайте ей имя Отчет


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Попробуйте так
[vba]
Код
Private Sub Отчет_Click()

'Приведение отчета к нормальному виду

If Range("A5") = "Да" Then Rows("20:25").EntireRow.Hidden = True
If Range("A5") = "Нет" Then Rows("20:25").EntireRow.Hidden = False

If Range("A6") = "Да" Then Rows("11:17").EntireRow.Hidden = True
If Range("A6") = "Нет" Then Rows("11:17").EntireRow.Hidden = False

End Sub
[/vba]
И в свойствах кнопки задайте ей имя Отчет

Автор - Pelena
Дата добавления - 20.06.2014 в 08:34
zuzikmba Дата: Пятница, 20.06.2014, 08:55 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Спасибо!
все вышло!
 
Ответить
СообщениеСпасибо!
все вышло!

Автор - zuzikmba
Дата добавления - 20.06.2014 в 08:55
Alex_ST Дата: Пятница, 20.06.2014, 11:34 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
Ну, по-хорошему-то в ячейки А5 и А6 хорошо бы добавить проверку данных с выбором из списка Да;Нет чтобы ничего другого туда не вводили.
Тогда и код станет намного компактнее:
[vba]
Код
Private Sub Отчет_Click()
    Rows("20:25").EntireRow.Hidden = Range("A5") = "Да"
    Rows("11:17").EntireRow.Hidden = Range("A6") = "Да"
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеНу, по-хорошему-то в ячейки А5 и А6 хорошо бы добавить проверку данных с выбором из списка Да;Нет чтобы ничего другого туда не вводили.
Тогда и код станет намного компактнее:
[vba]
Код
Private Sub Отчет_Click()
    Rows("20:25").EntireRow.Hidden = Range("A5") = "Да"
    Rows("11:17").EntireRow.Hidden = Range("A6") = "Да"
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 20.06.2014 в 11:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк с помощью элемента активХ (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!