Макрос для автоматического скрытия строк содержащих Н/Д

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для автоматического скрытия строк содержащих Н/Д (Формулы/Formulas)

gsnejniy

Дата: Вторник, 21.07.2015, 15:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 39

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

День добрый, уважаемые Форумчане!

Есть файл (прикрепил) из трех станиц: "Смета", "Калькулятор" и "Справочник". Смысл файла в расчете стоимости изготовления продукции и формирования подробной сметы.
Значения на странице "Смета" подтягиваются с помощью "ВПР" с двух других страниц, а в связи с тем, что некоторые строки на странице "Калькулятор" остаются пустыми, на странице "Смета" данные сроки дублируются со значением "Н/Д".

Нужно написать макрос который бы автоматически скрывал или отображал строки с соответствующими значениями, соответственно скрывал если там "Н/Д" или отображал если строка заполнена.

Помогите Христа ради, Добрые Люди:)
Заранее огромное спасибо)

З. Ы. Если, что не так написал, или не приведи Господь, по невнимательности нарушил какие правила форума, поправьте меня пожалуйста)

К сообщению приложен файл: 6486113.xlsx (25.2 Kb)

Ответить

Karataev

Дата: Вторник, 21.07.2015, 16:16 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

пробуйте. на листе *Смета* в столбцах 8:10 кнопа для запуска макроса.
макрос скрывает строки, в которых есть ошибка "#Н/Д!", и отображает строки, в которых нет этой ошибки.

К сообщению приложен файл: macro.xlsm (36.4 Kb)

Сообщение отредактировал Karataev - Вторник, 21.07.2015, 17:44

Ответить

_Boroda_

Дата: Вторник, 21.07.2015, 16:52 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

С одной кнопочкой, на которой макрос
[vba]

Код

Sub Макрос6()
Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _
Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden
End Sub

[/vba]
И еще скрывает при активации этого листа

К сообщению приложен файл: 6486113_1.xlsm (34.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

gsnejniy

Дата: Вторник, 21.07.2015, 17:28 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 39

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

Огромное спасибо!

Как раз то, что я и хотел сделать.
Не сочтите за наглость, благодарю за то, что сделали и выложили, но не могли бы Вы пошагово объяснить как мне самому сделать такое (какой код, куда и как внести), вариант с одной кнопкой в принципе вполне устроит. И еще, можно ли предусмотреть соответственное изменение порядковых номеров при скрытии строк или это уже нереально?

Заранее спасибо.

Сообщение отредактировал gsnejniy - Вторник, 21.07.2015, 17:29

Ответить

_Boroda_

Дата: Вторник, 21.07.2015, 17:41 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

В файле жмете Альт + F11 - попадаете в VBA. Слева будет окошко Проджектс, в нем ищете свою книгу, топчете Прав Кн Мыши, выбираете Инсерт Модуль. Вставляете в появившееся окно код
[vba]

Код

Sub Макрос6()
Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _
Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden
End Sub

[/vba]
Даблтопчете в Проджекте имя листа Смета и вставляете в появившееся окно код
[vba]

Код

Private Sub Worksheet_Activate()
Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = 1
End Sub

[/vba]
Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6

Ответить

gsnejniy

Дата: Вторник, 21.07.2015, 18:05 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 39

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

Цитата _Boroda_, 21.07.2015 в 17:41, в сообщении № 5

Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6

Спасибо большое, все получилось, кроме последнего пункта, выделяю две ячейки, нажимаю правую клавишу мыши - нет такого пункта. На вкладке разработчик в макросах "Макрос6" есть.