всем доброго времени суток
у меня есть 6 диаграмм, диаграмма появляется по очереди, в зависимости от фильтра в ComboBox (ActiveX control).
использую следующий код:
код эффективно не работает
название меняется, но диаграммы не меняются
если 2 диаграммы, код работает хорошо, а если много то нет
как оптимизировать данный код?
буду благодарен, если есть какие-то идеи
заранее спасибо
у меня есть 6 диаграмм, диаграмма появляется по очереди, в зависимости от фильтра в ComboBox (ActiveX control).
использую следующий код:
Код |
---|
Private Sub ComboBox10_Click() If ComboBox10.Value = "NR from Nov-13" Then ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = False Else ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = True End If If ComboBox10.Value = "NR from Dec-13" Then ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = False Else ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = True End If If ComboBox10.Value = "NR from Jan-14" Then ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = False Else ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = True End If If ComboBox10.Value = "NR from Feb-14" Then ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = False Else ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = True End If If ComboBox10.Value = "NR from Mar-14" Then ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = False Else ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = True End If If ComboBox10.Value = "NR from Apr-14" Then ActiveSheet.ChartObjects("Chart 2").Visible = False ActiveSheet.ChartObjects("Chart 3").Visible = False ActiveSheet.ChartObjects("Chart 4").Visible = False ActiveSheet.ChartObjects("Chart 5").Visible = False ActiveSheet.ChartObjects("Chart 6").Visible = False ActiveSheet.ChartObjects("Chart 7").Visible = True Else ActiveSheet.ChartObjects("Chart 2").Visible = True ActiveSheet.ChartObjects("Chart 3").Visible = True ActiveSheet.ChartObjects("Chart 4").Visible = True ActiveSheet.ChartObjects("Chart 5").Visible = True ActiveSheet.ChartObjects("Chart 6").Visible = True ActiveSheet.ChartObjects("Chart 7").Visible = False End If End Sub |
название меняется, но диаграммы не меняются
если 2 диаграммы, код работает хорошо, а если много то нет
как оптимизировать данный код?
буду благодарен, если есть какие-то идеи
заранее спасибо