基于轴文本的颜色条，而不是数据点值 - EXCEL VBA

Question

下面的代码根据数据点标签值更改了条形颜色，但我有几个具有相同值的点，我只希望带有文本的颜色为彩色。如何根据轴文本修改代码颜色？

renderQuote(quote, i) {
    return (
        <Text key={i} style={styles.container, styles.quote}>
            {quote.quotation}
        </Text>
    );
}

// On JSX

{ quotes.quotesArray.filter((quote) => !quote.isRead).map((quote, i) => this.renderQuote(quote, i) }

例如，在下面的图片中，除了＆＃34; bK EMEA ce＆＃34;是彩色的，因为这些条具有与bk emea ce相同的数据点值。我只想要bk emea ce红色

Answer 1

想出来。

交换

If Format(x1, "0.00%") = s.Points(iPoint).DataLabel.Text Then

的

If ws2.Cells(icounter, 2) = s.XValues(iPoint) Then