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

Вход

Регистрация

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

 

= Мир MS Excel/Если цвет надписи красный то круг на диаграмме красный - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если цвет надписи красный то круг на диаграмме красный (Макросы/Sub)
Если цвет надписи красный то круг на диаграмме красный
azartan Дата: Вторник, 12.04.2016, 21:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите, пожалуйста с макросом

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

Данных много, поэтому выискивать на диаграмме соответствующую точку и раскрашивать ручную не получится

Пример прикрепила (Маша написана красным и соответствующий ей элемент на диаграмме должен раскрасится в красный)

Спасибо!
К сообщению приложен файл: 2429152.xlsx(14Kb)
 
Ответить
СообщениеПомогите, пожалуйста с макросом

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

Данных много, поэтому выискивать на диаграмме соответствующую точку и раскрашивать ручную не получится

Пример прикрепила (Маша написана красным и соответствующий ей элемент на диаграмме должен раскрасится в красный)

Спасибо!

Автор - azartan
Дата добавления - 12.04.2016 в 21:33
_Boroda_ Дата: Вторник, 12.04.2016, 21:57 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9381
Репутация: 3951 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Если бы Вы объяснили принцип покраски Маши, то, возможно, мы бы придумали вариант и без макроса.
А так - вот такой вариант
[vba]
Код
Sub Макрос3()
    a_ = Selection.Address
    r_ = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To r_
        If Range("A" & i).Font.ColorIndex = 3 Then
            ActiveSheet.ChartObjects("Диаграмма 1").Activate
            ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(91, 155, 213)
            ActiveChart.SeriesCollection(1).Points(i - 1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            Exit For
        End If
    Next i
    Range(a_).Select
End Sub
[/vba]
К сообщению приложен файл: 2429152_1.xlsm(22Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли бы Вы объяснили принцип покраски Маши, то, возможно, мы бы придумали вариант и без макроса.
А так - вот такой вариант
[vba]
Код
Sub Макрос3()
    a_ = Selection.Address
    r_ = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To r_
        If Range("A" & i).Font.ColorIndex = 3 Then
            ActiveSheet.ChartObjects("Диаграмма 1").Activate
            ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(91, 155, 213)
            ActiveChart.SeriesCollection(1).Points(i - 1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            Exit For
        End If
    Next i
    Range(a_).Select
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 12.04.2016 в 21:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если цвет надписи красный то круг на диаграмме красный (Макросы/Sub)
Страница 1 из 11
Поиск:

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