Pytanie : Przodować:  Przez wszystkie mapa seria wszystkie mapa na worksheet

I potrzebować sprawnie przez wszystkie mój mapa (bez) i the mapa seria wartość.  I móc przy the wartość lub xvalues własność the seria.  Co być I źle?

Thanks ekspert! 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Private Okręt podwodny reset_chartseries ()    
    Ciemnawy c Jako ChartObject
    Ciemnawy n Jako Integer
    Ciemnawy cs Jako SeriesCollection

    Dla Rws.ChartObjects c W rws.ChartObjects
        Set c = rws.ChartObjects (c.Name)
            Dla n = c.Chart.SeriesCollection.Count (1) Krok -1
                Ustalony cs = c.Chart.SeriesCollection
                    Debug.Print cs (n). Wartość

'tutaj być dokąd I robić jeżeli oświadczenie
'jeżeli wartość = "[(0)]" wtedy xvalue = " donosić! zwany pasmo "

            Następnie
    Następnie
Końcówka Okręt podwodny

Odpowiedź : Przodować:  Przez wszystkie mapa seria wszystkie mapa na worksheet

Wartość wracać szyk nie przedmiot.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Intymny Okręt podwodny reset_chartseries ()    
    Ciemnawy c Jako ChartObject
    Ciemnawy n Jako Integer
    Ciemnawy cs Jako SeriesCollection
    Ciemnawy varData

    Dla Rws.ChartObjects c W rws.ChartObjects
        Dla c.Chart.SeriesCollection cs w c.Chart.SeriesCollection
           varData = cs. Wartość
           Dla n = lbound (vardata) ubound (vardata)
              jeżeli varData (n) = (0) wtedy
                 'robić whatever
              Kończyć jeżeli
           Następny n
         następny cs
    Następny c
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us