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

Вход

Регистрация

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

 

= Мир MS Excel/При помощи макросом, скрыть-отобразить группу строк - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » При помощи макросом, скрыть-отобразить группу строк (Формулы/Formulas)
При помощи макросом, скрыть-отобразить группу строк
Enix Дата: Среда, 31.10.2018, 06:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Как решит задачу с ячейками Если в ячейки B1 значения 1 то ячейки 27 и 41 открывается (+), если ячейки B1 значения 0 то ячейки 27 и 41 закрывается (-) и так далее
К сообщению приложен файл: -75-3-.xlsm(15.2 Kb)
 
Ответить
СообщениеКак решит задачу с ячейками Если в ячейки B1 значения 1 то ячейки 27 и 41 открывается (+), если ячейки B1 значения 0 то ячейки 27 и 41 закрывается (-) и так далее

Автор - Enix
Дата добавления - 31.10.2018 в 06:16
amfor Дата: Среда, 31.10.2018, 10:04 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 169
Репутация: 49 ±
Замечаний: 0% ±

Excel 2016
И Вам добрый день. Так?
К сообщению приложен файл: 7146571.xlsm(18.3 Kb)


Семь бед - один RESET.
 
Ответить
СообщениеИ Вам добрый день. Так?

Автор - amfor
Дата добавления - 31.10.2018 в 10:04
Enix Дата: Воскресенье, 04.11.2018, 17:43 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
amfor Да, можно ли упростить задачу если А1 0-30 кроме 1, макросе If Cells(1, 1) = 0 и до If Cells(1, 1) = 30 , кроме цифры 1 разгруппировался

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 2 To 26
If Cells(1, 1) = 0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
 
Ответить
Сообщениеamfor Да, можно ли упростить задачу если А1 0-30 кроме 1, макросе If Cells(1, 1) = 0 и до If Cells(1, 1) = 30 , кроме цифры 1 разгруппировался

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 2 To 26
If Cells(1, 1) = 0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If

Автор - Enix
Дата добавления - 04.11.2018 в 17:43
StoTisteg Дата: Воскресенье, 04.11.2018, 19:49 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1054
Репутация: 89 ±
Замечаний: 0% ±

Excel 2010
А зачем спрашивать, если можно просто запустить код и убедиться, что он абсолютно не рабочий?


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеА зачем спрашивать, если можно просто запустить код и убедиться, что он абсолютно не рабочий?

Автор - StoTisteg
Дата добавления - 04.11.2018 в 19:49
Pelena Дата: Воскресенье, 04.11.2018, 20:45 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 13225
Репутация: 2909 ±
Замечаний: ±

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


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

Автор - Pelena
Дата добавления - 04.11.2018 в 20:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » При помощи макросом, скрыть-отобразить группу строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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