Fråga : Excel:  Alla att kretsa till och med kartlägger serier kartlägger allra på en arbetssedel

Jag behöver att vara kompetent att kretsa till och med allt mitt kartlägger (utan att välja dem) och ändrar kartläggaserien värderar.  Jag kan inte verka för att få på värdera eller xvaluesegenskapen av serien.  Vilken förmiddag mig som orätt gör? experter för

Thanks! > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
" codeBody " " class= underreset_chartseries " för Private () Dunkelt c som ChartObject Dunkelt n som heltal Dunkel cs som SeriesCollection För varje c i rws.ChartObjects Uppsättning c = rws.ChartObjects (c.Name) För n = c.Chart.SeriesCollection.Count till 1 kliver -1 Fastställd cs = c.Chart.SeriesCollection Debug.Print-cs (n). Värderar 'är här var jag ska gör om meddelandet 'om värdera = ”[0]” därefter, xvalue = " anmäler! namngett spänna ", Därefter Därefter Avsluta suben
" klar "

Svar : Excel:  Alla att kretsa till och med kartlägger serier kartlägger allra på en arbetssedel

Värderar retur en samling inte en anmärka.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Privata underreset_chartseries ()    
    Dunkelt c som ChartObject
    Dunkelt n som heltal
    Dunkel cs som SeriesCollection
    Dunkel varData

    För varje c i rws.ChartObjects
        För varje cs i c.Chart.SeriesCollection
           varData = cs. Värderar
           För n = lbound (vardata) till ubound (vardataen)
              om varData (n) = 0 därefter
                 'gör, allt vad
              Avsluta om
           Nästa n
         nästa cs
    Nästa c
Avsluta suben
Andra lösningar  
 
programming4us programming4us