Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 11:36:28

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Автоматическое скрытие строк с нулевыми значениями
Страниц: [1]   Вниз
Печать
Автор Тема: Автоматическое скрытие строк с нулевыми значениями  (Прочитано 4796 раз)
0 Пользователей и 1 Гость смотрят эту тему.
alenafol
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 4


Просмотр профиля E-mail
« : 11.05.2020, 17:37:12 »

Добрый день
Помогите пожалуйста справится с задачей, на просторах интернета нашла что справится с моей задачей поможет только макрос, я лютый чайник в этом.
есть книга для расчета каркасного дома, хочу сделать отдельны лист для клиента, прописать туда все возможные варианты, а когда производится расчет для него, отображались строки только строки допустим с цифрой 1 (в отдельном столбце) через формулу ЕСЛИ, соответственно скрывались с цифрой 0  полученную так же через эту же формулу. Как с кнопкой это делать, я нашла, мне нужно что бы скрывалось и отображалось автоматически, данные в ручную в этот лист вносится не будут.

Возможно ли вообще это? Заранее спасибо за ответ  Целующий
« Последнее редактирование: 11.05.2020, 20:47:24 от vikttur » Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #1 : 11.05.2020, 20:43:42 »

Как с кнопкой это делать, я нашла
Где же пример с найденным?
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

alenafol
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 4


Просмотр профиля E-mail
« Ответ #2 : 11.05.2020, 22:43:29 »

Вот
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #3 : 11.05.2020, 23:20:33 »

Вот,
на выбор...
Код: (vb)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Const txt = "наименование"
    Call ПоискСтрокПоУсловию(txt, True)
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const txt = "наименование"
    Call ПоискСтрокПоУсловию(txt, True)
End Sub

Private Sub Workbook_Open()
    Const txt = "наименование"
    Call ПоискСтрокПоУсловию(txt, True)
End Sub
« Последнее редактирование: 11.05.2020, 23:22:20 от boa » Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #4 : 11.05.2020, 23:31:55 »

Можно с вопросом
Код: (vb)
    Dim txt$: txt = VBA.InputBox("Чё же хайднуть?", , "наименование")
    Call ПоискСтрокПоУсловию(txt, True)
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

alenafol
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 4


Просмотр профиля E-mail
« Ответ #5 : 11.05.2020, 23:47:10 »

грешно смеятся над незнающими людьми
для меня это китайская грамота Обеспокоенный
мне бы скопировать, всавить и что бы работало Улыбка Улыбка Улыбка
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #6 : 12.05.2020, 07:45:55 »

Так я не нашел
отображались строки только строки допустим с цифрой 1 (в отдельном столбце)
столбца с цифрой 1
адаптировал то, что у вас было.

Код "Private Sub Workbook_..." копируется и вставляется в модуль книги
Open - событие, которое выполняется при открытии книги
BeforeClose - при закрытии
и BeforeSave - при сохранении
Выберите нужное
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #7 : 12.05.2020, 10:12:14 »

Зачем константа?
Код: (vb)
    Call ПоискСтрокПоУсловию("наименование", True) 
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #8 : 12.05.2020, 11:59:46 »

На сайте давным-давно есть код: Как удалить строки по условию?
Любой из кодов можно переделать на скрытие строк, а не на удаление - в конце статьи написано как именно это сделать.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
alenafol
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 4


Просмотр профиля E-mail
« Ответ #9 : 12.05.2020, 20:12:26 »

Простите за неграмотность в этом вопросе, но мне нужно именно автоматическое скрытие и раскрытие строк при изменении значения в столбце, т.е. при изменении данных, формулами изменяются значения и лишние строики убираются. именно автоматически, не при закрытии, открытии и т.д., если это не возможно, то скажите, если можно помогите пожалуйста.
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #10 : 12.05.2020, 20:39:13 »

В модуль листа вставьте код
Код: (vb)
Private Sub Worksheet_Calculate()
    Call ПоискСтрокПоУсловию(0, True)
End Sub
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru