Если цвет надписи красный то круг на диаграмме красный

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если цвет надписи красный то круг на диаграмме красный (Макросы/Sub)

azartan

Дата: Вторник, 12.04.2016, 21:33 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

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

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

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

Спасибо!

К сообщению приложен файл: 2429152.xlsx (13.7 Kb)

Ответить

_Boroda_

Дата: Вторник, 12.04.2016, 21:57 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 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 (21.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Страница 1 из 1
1