Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
скрыть строки по значению в ячейке
 
#1
19.04.2013 13:52:04
Добрый день

Нужна ваша помощь
Нужно чтобы строки спрятались от значения в определенной ячейке. В этой ячейке формула.

Как сделать скрыть строки, если в определенную ячейку вводить значение, я разобрался, спасибо вашему форуму, но вот найти именно то что мне нужно у меня не получилось

Заранее благодарен
 
 
 
#2
19.04.2013 13:54:31
Т.е. Вы хотите чтобы макрос скрывал нужные строки при изменении значения в результате пересчета формулы?
Изменено: LVL - 19.04.2013 13:54:46
 
 
 
#3
19.04.2013 14:02:32
Объясните подробней.
Не понятна суть вопроса, для чего выводить дополнительную ячейку с формулой, если можно, анализировать значение ячейки В6?

Или вам нужно скрывать только абрикосы?
Редко но метко ...
 
 
 
#4
19.04.2013 14:31:32
Я сильно сократил саму таблицу, ради примера

главное значение в ячейке A1, а это значения зависят еще от нескольких ячеек, не только B6
 
 
 
#5
19.04.2013 14:39:41
Цитата
LVL пишет:
Т.е. Вы хотите чтобы макрос скрывал нужные строки при изменении значения в результате пересчета формулы?

именно это и нужно
 
 
 
#6
19.04.2013 14:44:05
На сколько мне известно, отследить изменение значения ячейки при пересчете формулы в ней нельзя.
 
 
 
#7
19.04.2013 14:48:07
Тогда сильно сокращенный макрос  :)
Редко но метко ...
 
 
 
#8
19.04.2013 15:20:50
Огромное Спасибо
все работает
 
 
 
#9
19.04.2013 15:39:01
А вот у меня не будет работать
На фирме не хотят ставить новый оффис (стОит Ексель 2003), боятся штрафов
GIG_ant, пожалуйста, макрос бросьте сюда
Изменено: Геннадий - 19.04.2013 15:39:41
 
 
 
#10
19.04.2013 15:57:17
Геннадий,
Редко но метко ...
 
 
 
#11
19.04.2013 16:13:49
Спасибо!
 
 
 
#12
19.04.2013 17:21:49
Цитата
Геннадий пишет:
На фирме не хотят ставить новый оффис (стОит Ексель 2003), боятся штрафов
Скачайте конвертер - за него не штрафуют ))
 
 
 
#13
22.04.2013 14:05:18
Странно, но теперь не работает "отменить" (ctrl-z) функция после любого ввода данных в любую ячейку, даже на другом листе или книге, если в это же самое время время открыт файл с макросом
Изменено: dat3010 - 22.04.2013 14:14:55
 
 
 
#14
22.04.2013 14:14:00
Юрий М:Скачайте конвертер - за него не штрафуют ))
_____________________________________
Всё ОК. Спасибо!
 
 
 
#15
28.06.2013 14:42:28
Подскажите пжлста код, как скрать строки №2-7 на второй странице, если на первой значение A1=Yes, а если значение A1=No, на второй странице скрать строки №10-15.
 
 
 
#16
28.06.2013 20:22:16
Скрытие (скрАтие)  :)  должно происходить по кнопке или автоматически?
 
 
 
#17
28.06.2013 20:31:37
Вы не сказали, по какому условию отображать. Поэтому попробуйте так (скопируйте в модуль первого листа):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target = "Yes" Then
            Sheets("Лист2").Rows("2:7").EntireRow.Hidden = True
        Else
            Sheets("Лист2").Rows("2:7").EntireRow.Hidden = False
        End If
        If Target = "No" Then
            Sheets("Лист2").Rows("10:15").EntireRow.Hidden = True
        Else
            Sheets("Лист2").Rows("10:15").EntireRow.Hidden = False
        End If
    End If
End Sub
 
 
 
#18
01.07.2013 15:16:55
Юрий М, благодарю, то что требовалось.  :)  

Скажите, пжлста а что в этом коде не так, не хочет работать.

Код
Sub HideMe(A As Long) 'A - номер столбца для проверки 
    Dim i As Long 
    For i = 33 to 42
        If Cells(i, A).Value = 0 Then
            Rows(i).Hidden = True 
        Else 
            Rows(i).Hidden = False 
        End If 
    Next i 
End Sub
Изменено: mapk - 01.07.2013 15:29:14
 
 
 
#19
01.07.2013 22:50:53
А зачем это? (A As Long)
Если хотите указывать не номер, а букву столбца, то пишите в кавычках: If Cells(i, "A")
 
 
 
#20
01.07.2013 23:00:11
Ну можно и так - тогда вызывать придётся другим кодом, указывая столбец:
call  HideMe(4)
Будет по D проверять.
 
 
 
#21
01.07.2013 23:20:28
Ну да - номер, а не букву, да ещё и Long)
 
 
 
#22
02.07.2013 10:55:20
вот что получилось - ничего, как заставить код работать?
прошу помощи
Изменено: mapk - 02.07.2013 10:55:41
 
 
 
#23
02.07.2013 11:55:12
mapk, Вы понимаете, что пишете? Call HideMe(1) - без процедуры. Просто поместите Ваш код (цикл) в событие листа Worksheet_Change.
 
 
 
#24
02.07.2013 12:00:26
Юрий, Вы правы я не понимаю что пишу, поэтому и спрашиваю:

так?

Код
Private Sub Worksheet_Change() 
    Call HideMe(1) 
End Sub
Изменено: mapk - 02.07.2013 12:00:39
 
 
 
#25
02.07.2013 12:09:19
Разобрался:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    For i = 5 To 10
        If Cells(i, 1).Value = 0 Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
End Sub


Благодарю повторно.
 
 
 
#26
02.07.2013 12:11:35
Вот без передачи параметра - сразу в модуле листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
    If Not Intersect(Target, Range("A5:A10")) Is Nothing Then
        For i = 5 To 10
            If Cells(i, 1).Value = 0 Then
                Rows(i).Hidden = True
            Else
                Rows(i).Hidden = False
            End If
        Next i
    End If
End Sub
 
 
 
#27
02.07.2013 13:10:05
Юрий, скажите пожалуйста, как быть в случае, когда значения 1/0 копируються из другого листа.
При этом страница на которой работает код, не обновляется. (только при вводе в ручную)
 
 
 
#28
02.07.2013 13:13:51
Не верю: скопировал ноль с другого листа, вставил - всё сработало.
 
 
 
#29
02.07.2013 13:27:03
Я имел ввиду есть значение переходит из другой страницы, путем:
=Sheet2!A2

Значение в поле проврки 1/0 меняеться, но строка не скрываеться.
 
 
 
#30
02.07.2013 13:35:28
Копирование и присвоение формулой - разные вещи. Если формулы - используйте событие листа Calculate.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх