VBA：带有“选择案例”的着色表系列

Question

我对VBA来说还很陌生，因此对此有所帮助。 :) 正如问题标题所示，我试图为图表中的每个意向赋予不同的颜色。到目前为止，我所获得的效果很好，但局限性很小。该系列的名称有时会更改，因此我不想每次都更改代码，而是希望excel将该名称直接从单元格中删除。例如，该值不是手工编写“ dormakaba”，而是写在工作表单元格“ A2”中。 如果有人有解决方案，那将是很好。

Bus().Stop

Answer 1

在代码中用Range("A2")更改“ dormakaba”：

Select Case LCase$(.SeriesCollection(iSrs).Name)

Case LCase$(Range("A2"))    '******CHANGE HERE******
    .SeriesCollection(iSrs).Format.Fill.ForeColor.RGB = RGB(255, 130, 171)
    .SeriesCollection(iSrs).Format.Line.Visible = True
    .SeriesCollection(iSrs).Format.Line.Visible = False

在避免这种情况时，LCase$(Range("A2"))会更好。