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

Вход

Регистрация

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

 

= Мир MS Excel/Отображение скрытие конкретных строк с учетом значения в яч. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение скрытие конкретных строк с учетом значения в яч. (Макросы/Sub)
Отображение скрытие конкретных строк с учетом значения в яч.
heaven33rus Дата: Суббота, 08.07.2017, 15:56 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Нужен макрос, который делал следующее:

Если в ячейке D1 значение 1, строка 10 скрывается, если 0 соответственно отображается
Нужно чтобы на листе было три условия.
вот еще 2.
Если в ячейке D2 значение 1, строка 11 скрывается, если 0 соответственно отображается
Если в ячейке D3 значение 1, строка 12 скрывается, если 0 соответственно отображается

на данном листе уже есть макросы:


Сообщение отредактировал heaven33rus - Суббота, 08.07.2017, 15:57
 
Ответить
СообщениеНужен макрос, который делал следующее:

Если в ячейке D1 значение 1, строка 10 скрывается, если 0 соответственно отображается
Нужно чтобы на листе было три условия.
вот еще 2.
Если в ячейке D2 значение 1, строка 11 скрывается, если 0 соответственно отображается
Если в ячейке D3 значение 1, строка 12 скрывается, если 0 соответственно отображается

на данном листе уже есть макросы:

Автор - heaven33rus
Дата добавления - 08.07.2017 в 15:56
KuklP Дата: Суббота, 08.07.2017, 17:01 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2293
Репутация: 474 ±
Замечаний: 0% ±

2003-2010
Поскольку примера согласно Правил нет и Вы не указали как меняются значения в d1:d3 то переделывать не буду.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Intersect(Target, Range("c27,d1:d3")) Is Nothing Then Exit Sub
    Application.EnableEvents = 0
    [c27] = IIf([c27] = "", "Укажите присоединяемую мощность в кВт", [c27])
    For i = 1 To 3
        Rows(i + 9).Hidden = Cells(i, 4).Value
    Next
    Application.EnableEvents = 1
End Sub
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПоскольку примера согласно Правил нет и Вы не указали как меняются значения в d1:d3 то переделывать не буду.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Intersect(Target, Range("c27,d1:d3")) Is Nothing Then Exit Sub
    Application.EnableEvents = 0
    [c27] = IIf([c27] = "", "Укажите присоединяемую мощность в кВт", [c27])
    For i = 1 To 3
        Rows(i + 9).Hidden = Cells(i, 4).Value
    Next
    Application.EnableEvents = 1
End Sub
[/vba]

Автор - KuklP
Дата добавления - 08.07.2017 в 17:01
heaven33rus Дата: Суббота, 08.07.2017, 17:24 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Виноват, спасибо.
 
Ответить
СообщениеВиноват, спасибо.

Автор - heaven33rus
Дата добавления - 08.07.2017 в 17:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение скрытие конкретных строк с учетом значения в яч. (Макросы/Sub)
Страница 1 из 11
Поиск:

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