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

Вход

Регистрация

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

 

= Мир MS Excel/скрыть/отобразить строки по значению в ячейке, Не обновляетс - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрыть/отобразить строки по значению в ячейке, Не обновляетс (Макросы/Sub)
скрыть/отобразить строки по значению в ячейке, Не обновляетс
Major_007 Дата: Вторник, 05.02.2019, 18:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день
Нужна ваша помощь
Имеется таблица с 2 листами,при заполнение столбца G на первом листе данные автоматически переносятся на второй лист столбец E, и в дальнейшем уже планируется либо скрыть ячейки с отрицательным числом либо отобразить, если на первом листе значение изменится на положительное. Я не особо силен в макросах но читая ветки смог написать короткий код:

[vba]
Код
Sub Ig()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("E19:E327").Rows
If WorksheetFunction.CountIf(r, ">0") = 0 Then r.EntireRow.Hidden = True
If WorksheetFunction.CountIf(r, "<0") Then r.EntireRow.Hidden = False

Next
Application.ScreenUpdating = True
End
[/vba]

Но столкнулся с проблемой что строки на втором листе не обновляются, т.е. если на первом листе значение ячейки станет положительным, второй лист и соотвественно макрос не обновляет параметры второго листа.
К сообщению приложен файл: Copy-.xlsb(24.7 Kb)


Сообщение отредактировал Major_007 - Среда, 06.02.2019, 07:46
 
Ответить
СообщениеДобрый день
Нужна ваша помощь
Имеется таблица с 2 листами,при заполнение столбца G на первом листе данные автоматически переносятся на второй лист столбец E, и в дальнейшем уже планируется либо скрыть ячейки с отрицательным числом либо отобразить, если на первом листе значение изменится на положительное. Я не особо силен в макросах но читая ветки смог написать короткий код:

[vba]
Код
Sub Ig()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("E19:E327").Rows
If WorksheetFunction.CountIf(r, ">0") = 0 Then r.EntireRow.Hidden = True
If WorksheetFunction.CountIf(r, "<0") Then r.EntireRow.Hidden = False

Next
Application.ScreenUpdating = True
End
[/vba]

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

Автор - Major_007
Дата добавления - 05.02.2019 в 18:39
Major_007 Дата: Вторник, 05.02.2019, 18:50 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Мне подсказали, что следует скорректировать запрос:
[vba]
Код

Sub Ig()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("E19:E327").Rows
If Not IsError(r) Then
Worksheets(1).Rows(r.Row - 13).Hidden = r < 0
Rows(r.Row).Hidden = r < 0
End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Но он почему то показывает ошибку, и так же при смене с отрицательного числа на положительно так второй лист и не обновляется


Сообщение отредактировал Major_007 - Среда, 06.02.2019, 07:45
 
Ответить
СообщениеМне подсказали, что следует скорректировать запрос:
[vba]
Код

Sub Ig()
Dim r As Range
Application.ScreenUpdating = False
For Each r In Range("E19:E327").Rows
If Not IsError(r) Then
Worksheets(1).Rows(r.Row - 13).Hidden = r < 0
Rows(r.Row).Hidden = r < 0
End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Но он почему то показывает ошибку, и так же при смене с отрицательного числа на положительно так второй лист и не обновляется

Автор - Major_007
Дата добавления - 05.02.2019 в 18:50
Pelena Дата: Вторник, 05.02.2019, 19:18 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 14009
Репутация: 3066 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Major_007, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеMajor_007, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 05.02.2019 в 19:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрыть/отобразить строки по значению в ячейке, Не обновляетс (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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