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

Вход

Регистрация

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

 

= Мир MS Excel/Исключение данных из даграммы по цвету - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Исключение данных из даграммы по цвету (Формулы/Formulas)
Исключение данных из даграммы по цвету
User799 Дата: Вторник, 22.02.2022, 13:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, друзья и коллеги!

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

Если получить желаемое предложенным способом невозможно, то может быть подсобите предложениями как решить данную задачу другим способом, при условии, что данные из таблицы исключать нельзя (только менять форматирование)?
К сообщению приложен файл: 9582962.xls (46.5 Kb)


Сообщение отредактировал User799 - Вторник, 22.02.2022, 13:01
 
Ответить
СообщениеДобрый день, друзья и коллеги!

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

Если получить желаемое предложенным способом невозможно, то может быть подсобите предложениями как решить данную задачу другим способом, при условии, что данные из таблицы исключать нельзя (только менять форматирование)?

Автор - User799
Дата добавления - 22.02.2022 в 13:00
NikitaDvorets Дата: Вторник, 22.02.2022, 14:34 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 557
Репутация: 126 ±
Замечаний: 0% ±

Excel 2019
Добрый день!
Ответ тоже необычный - если данные из исходной таблицы исключать нельзя, то может быть это можно сделать из её копии?
Диаграммы выделены цветом.
К сообщению приложен файл: 6415390.xls (59.5 Kb)
 
Ответить
СообщениеДобрый день!
Ответ тоже необычный - если данные из исходной таблицы исключать нельзя, то может быть это можно сделать из её копии?
Диаграммы выделены цветом.

Автор - NikitaDvorets
Дата добавления - 22.02.2022 в 14:34
User799 Дата: Вторник, 22.02.2022, 14:46 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
NikitaDvorets, спасибо за идею. До такого решения я конечно догадался и сам :)
Оно не подходит по причине существенного увеличения объема данных и необходимости ведения двойного учета. В примере область с исходными данными состоит из 2 строк и 4 столбцов, фактически же это могут быть куда более значительные диапазоны. Поэтому нужно более изящное решение, чем создание копии таблицы и ручная отчистка части ячеек.
 
Ответить
СообщениеNikitaDvorets, спасибо за идею. До такого решения я конечно догадался и сам :)
Оно не подходит по причине существенного увеличения объема данных и необходимости ведения двойного учета. В примере область с исходными данными состоит из 2 строк и 4 столбцов, фактически же это могут быть куда более значительные диапазоны. Поэтому нужно более изящное решение, чем создание копии таблицы и ручная отчистка части ячеек.

Автор - User799
Дата добавления - 22.02.2022 в 14:46
Nic70y Дата: Вторник, 22.02.2022, 16:32 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_400()
    For Each c In Range("b3:e4")
        If c.Font.Color = 255 Then
            c.Value = c.Text
        Else
            c.Value = --c
        End If
    Next
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_400()
    For Each c In Range("b3:e4")
        If c.Font.Color = 255 Then
            c.Value = c.Text
        Else
            c.Value = --c
        End If
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 22.02.2022 в 16:32
User799 Дата: Вторник, 22.02.2022, 17:43 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, спасибо.
А можно ли чуть обобщить условия в макросе? Я, к сожалению, не владею VBA, поэтому не понимаю некоторых вещей. Попробовал использовать Ваш код, расширив диапазон исходных данных до "b5:m88", так он стал ругаться на строку
Код
c.Value = --c

Насколько понял, это связано с нарушением условия по нахождению диаграммы. Поэтому хочу уточнить, можно ли задать условие так, чтобы оно действовало на все диаграммы в документе, не зависимо от их расположения?
 
Ответить
СообщениеNic70y, спасибо.
А можно ли чуть обобщить условия в макросе? Я, к сожалению, не владею VBA, поэтому не понимаю некоторых вещей. Попробовал использовать Ваш код, расширив диапазон исходных данных до "b5:m88", так он стал ругаться на строку
Код
c.Value = --c

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

Автор - User799
Дата добавления - 22.02.2022 в 17:43
Nic70y Дата: Четверг, 24.02.2022, 07:32 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
User799, проблема в том, наверное, что оригинал отличается от примера чем-то кардинальным.


ЮMoney 41001841029809
 
Ответить
СообщениеUser799, проблема в том, наверное, что оригинал отличается от примера чем-то кардинальным.

Автор - Nic70y
Дата добавления - 24.02.2022 в 07:32
User799 Дата: Четверг, 24.02.2022, 11:30 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, отличия только в объеме исходных данных, количестве диаграмм и листов документа.
 
Ответить
СообщениеNic70y, отличия только в объеме исходных данных, количестве диаграмм и листов документа.

Автор - User799
Дата добавления - 24.02.2022 в 11:30
Nic70y Дата: Четверг, 24.02.2022, 11:33 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
User799, раз есть ошибка, значит есть отличия.
вы можете оригинал выложить?


ЮMoney 41001841029809
 
Ответить
СообщениеUser799, раз есть ошибка, значит есть отличия.
вы можете оригинал выложить?

Автор - Nic70y
Дата добавления - 24.02.2022 в 11:33
User799 Дата: Четверг, 24.02.2022, 11:47 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, выкладываю. Только лишние листы убрал, чтобы уложиться в 500 кб.
К сообщению приложен файл: 2883667.xlsx (145.3 Kb)
 
Ответить
СообщениеNic70y, выкладываю. Только лишние листы убрал, чтобы уложиться в 500 кб.

Автор - User799
Дата добавления - 24.02.2022 в 11:47
Nic70y Дата: Четверг, 24.02.2022, 12:49 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
у меня работает нормально,
но с учетом, что у вас имеются формулы,
немного переделал макрос.
К сообщению приложен файл: 2883667.xlsm (56.3 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениеу меня работает нормально,
но с учетом, что у вас имеются формулы,
немного переделал макрос.

Автор - Nic70y
Дата добавления - 24.02.2022 в 12:49
User799 Дата: Четверг, 24.02.2022, 13:19 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, теперь заработал. Жаль, конечно, что задача оказалась решаема только с помощью макроса (я думал, может есть какая-нибудь неизвестная мне формула), но благодарю за помощь!
 
Ответить
СообщениеNic70y, теперь заработал. Жаль, конечно, что задача оказалась решаема только с помощью макроса (я думал, может есть какая-нибудь неизвестная мне формула), но благодарю за помощь!

Автор - User799
Дата добавления - 24.02.2022 в 13:19
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Исключение данных из даграммы по цвету (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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