Cuestión : Cartas de Excel - Programmatically que pone al día gamas de la serie

Hola todos,

I que intenta conseguir código de algún VBA programmatically para poner al día gamas de la serie en cartas (hay porciones de ellas a hacer). el

However, está consiguiendo se pegó en alguno (no teniendo ningún efecto). el código del

My es como sigue:

Dim MySht del

Option Explicit

Sub ChartDataFixup () como Worksheet
Dim MyCht como ChartObject
Dim MySeries como Series

en el curriculum vitae Next

del error para cada MySht en el
de ThisWorkbook.Worksheets
si está ido (MySht.Name, 3) =
Debug.Print “++++++ "
de “Cht” Then
del
Debug.Print MySht.Name
para cada MyCht en el
de MySht.ChartObjects
para cada MySeries en el
Debug.Print de MyCht.Chart.SeriesCollection
“ANTES: ” Y MySeries.Name y ““y el
de MySeries.Formula
MySeries.Formula = substituyen (MySeries.Formula, “$42,”, “$999,
Debug.Print del ")
“DESPUÉS: ” Y MySeries.Name y ““y salida del

End Sub


The del
Next

Debug.Print “++++++ " de If
del final del
del
Next
del
Next
de MySeries.Formula
en la ventana inmediata es como esto (he pegado solamente los primeros tres, pero hay docenas):

++++++
Cht - rédito - Month
BEFORE: ¡Un =SERIES (datos! ¡$E$5, “SPS Projection.xls”! ¡Chart_Period, datos! $E$7: $E$999, 1)
AFTER: ¡Un =SERIES (datos! ¡$E$5, “SPS Projection.xls”! ¡Chart_Period, datos! $E$7: $E$999, 1)
BEFORE: ¡=SERIES de B (datos! ¡$F$5, “SPS Projection.xls”! ¡Chart_Period, datos! $F$7: $F$999, 2)
AFTER: ¡=SERIES de B (datos! ¡$F$5, “SPS Projection.xls”! ¡Chart_Period, datos! $F$7: $F$999, 2)
BEFORE: ¡=SERIES de C (datos! ¡$G$5, “SPS Projection.xls”! ¡Chart_Period, datos! $G$7: $G$999, 3)
AFTER: ¡=SERIES de C (datos! ¡$G$5, “SPS Projection.xls”! ¡Chart_Period, datos! $G$7: $G$999, 3)
BEFORE: ¡=SERIES de D (datos! ¡$H$5, “SPS Projection.xls”! ¡Chart_Period, datos! $H$7: $H$999, 4)
AFTER: ¡=SERIES de D (datos! ¡$H$5, “SPS Projection.xls”! ¡Chart_Period, datos! $H$7: $H$999, 4)
BEFORE: ¡=SERIES de E (datos! ¡$I$5, “SPS Projection.xls”! ¡Chart_Period, datos! $I$7: $I$999, 5)
AFTER: ¡=SERIES de E (datos! ¡$I$5, “SPS Projection.xls”! ¡Chart_Period, datos! $I$7: $I$999, 5)
BEFORE: ¡=SERIES de F (datos! ¡$J$5, “SPS Projection.xls”! ¡Chart_Period, datos! $J$7: $J$999, 6)
AFTER: ¡=SERIES de F (datos! ¡$J$5, “SPS Projection.xls”! ¡Chart_Period, datos! $J$7: $J$999, 6)
BEFORE: ¡=SERIES de G (datos! ¡$K$5, “SPS Projection.xls”! ¡Chart_Period, datos! $K$7: $K$999, 7)
AFTER: ¡=SERIES de G (datos! ¡$K$5, “SPS Projection.xls”! ¡Chart_Period, datos! $K$7: $K$999, 7)
BEFORE: ¡=SERIES del total (lado derecho) (datos! ¡$N$5, datos! $N$7: $N$999, 8)
AFTER: ¡=SERIES del total (lado derecho) (datos! ¡$N$5, datos! $N$7: $N$999, 8)
++++++
Cht - beneficio bruto Month
BEFORE: ¡Un =SERIES (datos! ¡$A5, “SPS Projection.xls”! ¡Chart_Period, datos! $A7:
AFTER de $A999,1): ¡Un =SERIES (datos! ¡$A5, “SPS Projection.xls”! ¡Chart_Period, datos! $A7:
BEFORE de $A999,1): ¡=SERIES de B (datos! ¡$AD$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AD$7:
AFTER de $AD$999,2): ¡=SERIES de B (datos! ¡$AD$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AD$7:
BEFORE de $AD$999,2): ¡=SERIES de C (datos! ¡$AE$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AE$7:
AFTER de $AE$999,3): ¡=SERIES de C (datos! ¡$AE$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AE$7:
BEFORE de $AE$999,3): ¡=SERIES de D (datos! ¡$AF$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AF$7:
AFTER de $AF$999,4): ¡=SERIES de D (datos! ¡$AF$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AF$7:
BEFORE de $AF$999,4): ¡=SERIES de E (datos! ¡$AG$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AG$7:
AFTER de $AG$999,5): ¡=SERIES de E (datos! ¡$AG$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AG$7:
BEFORE de $AG$999,5): ¡=SERIES del total (lado derecho) (datos! ¡$AL$5, datos! $AL$7:
AFTER de $AL$999,6): ¡=SERIES del total (lado derecho) (datos! ¡$AL$5, datos! $AL$7:
BEFORE de $AL$999,6): ¡=SERIES de F (datos! ¡$AH$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AH$7:
AFTER de $AH$999,7): ¡=SERIES de F (datos! ¡$AH$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AH$7:
BEFORE de $AH$999,7): ¡=SERIES de G (datos! ¡$AI$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AI$7:
AFTER de $AI$999,8): ¡=SERIES de G (datos! ¡$AI$5, “SPS Projection.xls”! ¡Chart_Period, datos! $AI$7:
++++++
Cht - el GP% de $AI$999,8) - Month
BEFORE: ¡Un =SERIES (datos! ¡$BA$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BA$7: $BA$42, 1)
AFTER: ¡Un =SERIES (datos! ¡$BA$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BA$7: $BA$42, 1)
BEFORE: ¡=SERIES de B (datos! ¡$BB$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BB$7: $BB$42, 2)
AFTER: ¡=SERIES de B (datos! ¡$BB$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BB$7: $BB$42, 2)
BEFORE: ¡=SERIES de D (datos! ¡$BD$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BD$7: $BD$42, 3)
AFTER: ¡=SERIES de D (datos! ¡$BD$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BD$7: $BD$42, 3)
BEFORE: ¡=SERIES de E (datos! ¡$BE$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BE$7: $BE$42, 4)
AFTER: ¡=SERIES de E (datos! ¡$BE$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BE$7: $BE$42, 4)
BEFORE: ¡=SERIES de F (datos! ¡$BF$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BF$7: $BF$42, 5)
AFTER: ¡=SERIES de F (datos! ¡$BF$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BF$7: $BF$42, 5)
BEFORE: ¡=SERIES de G (datos! ¡$BG$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BG$7: $BG$42, 6)
AFTER: ¡=SERIES de G (datos! ¡$BG$5, “SPS Projection.xls”! ¡Chart_Period, datos! $BG$7: ¿$BG$42, 6)
++++++


As que usted puede ver, funcionamiento (anterior) del código ha fijado las primeras dos cartas, pero ha fallado en el tercer chart.

What son yo que faltaba aquí?

Thanks,

Alan.
class= del

Respuesta : Cartas de Excel - Programmatically que pone al día gamas de la serie

Esto trabaja para mí, usar la notación del estilo R1C1. Darle un intento por favor:-)


                    Debug.Print “ANTES: ” Y MySeries.Name y ““y MySeries.FormulaR1C1
                    MySeries.FormulaR1C1 = substituyen (MySeries.FormulaR1C1, “R42C”, “R99C”)
                    Debug.Print “DESPUÉS: ” Y MySeries.Name y ““y MySeries.FormulaR1C1
Otras soluciones  
 
programming4us programming4us