Hallo strekt allen zich,
I am één of andere code proberen ertoe te brengen VBA om reeks programmatically bij te werken in grafieken (er zijn heel wat om te doen) uit.
However, het wordt geplakt op wat (hebbend geen effect). />My de code
Option Explicit
Sub ChartDataFixup ()
Dim MySht als Worksheet
Dim MyCht als ChartObject
Dim MySeries als Series
op Fout hervat Next
voor Elke MySht in ThisWorkbook.Worksheets
indien Verlaten (MySht.Name, 3) = „Cht“ Then
Debug.Print „++++++ "
Debug.Print MySht.Name
voor Elke MyCht in MySht.ChartObjects
voor Elke MySeries in MyCht.Chart.SeriesCollection
Debug.Print „VÓÓR: “ & Vervangen MySeries.Name & „„& MySeries.Formula
MySeries.Formula = (MySeries.Formula, „$42,“, „$999,“)
Debug.Print „NA: “ & Zijn MySeries.Name & „„& de output/>
The van het Eind van MySeries.Formula
Next
Next
van If
Next
Debug.Print „++++++ "
End Sub
++++++
Cht - Opbrengst - Month
BEFORE: Een =SERIES (Gegevens! $E$5, „SPS Projection.xls“! Chart_Period, Gegevens! $E$7: $E$999, 1)
AFTER: Een =SERIES (Gegevens! $E$5, „SPS Projection.xls“! Chart_Period, Gegevens! $E$7: $E$999, 1)
BEFORE: B =SERIES (Gegevens! $F$5, „SPS Projection.xls“! Chart_Period, Gegevens! $F$7: $F$999, 2)
AFTER: B =SERIES (Gegevens! $F$5, „SPS Projection.xls“! Chart_Period, Gegevens! $F$7: $F$999, 2)
BEFORE: C =SERIES (Gegevens! $G$5, „SPS Projection.xls“! Chart_Period, Gegevens! $G$7: $G$999, 3)
AFTER: C =SERIES (Gegevens! $G$5, „SPS Projection.xls“! Chart_Period, Gegevens! $G$7: $G$999, 3)
BEFORE: D =SERIES (Gegevens! $H$5, „SPS Projection.xls“! Chart_Period, Gegevens! $H$7: $H$999, 4)
AFTER: D =SERIES (Gegevens! $H$5, „SPS Projection.xls“! Chart_Period, Gegevens! $H$7: $H$999, 4)
BEFORE: E =SERIES (Gegevens! $I$5, „SPS Projection.xls“! Chart_Period, Gegevens! $I$7: $I$999, 5)
AFTER: E =SERIES (Gegevens! $I$5, „SPS Projection.xls“! Chart_Period, Gegevens! $I$7: $I$999, 5)
BEFORE: F =SERIES (Gegevens! $J$5, „SPS Projection.xls“! Chart_Period, Gegevens! $J$7: $J$999, 6)
AFTER: F =SERIES (Gegevens! $J$5, „SPS Projection.xls“! Chart_Period, Gegevens! $J$7: $J$999, 6)
BEFORE: G =SERIES (Gegevens! $K$5, „SPS Projection.xls“! Chart_Period, Gegevens! $K$7: $K$999, 7)
AFTER: G =SERIES (Gegevens! $K$5, „SPS Projection.xls“! Chart_Period, Gegevens! $K$7: $K$999, 7)
BEFORE: Totaal (RHS) =SERIES (Gegevens! $N$5, Gegevens! $N$7: $N$999, 8)
AFTER: Totaal (RHS) =SERIES (Gegevens! $N$5, Gegevens! $N$7: $N$999, 8)
++++++
Cht - BrutoWinst Month
BEFORE: Een =SERIES (Gegevens! $A5, „SPS Projection.xls“! Chart_Period, Gegevens! $A7: $A999,1)
AFTER: Een =SERIES (Gegevens! $A5, „SPS Projection.xls“! Chart_Period, Gegevens! $A7: $A999,1)
BEFORE: B =SERIES (Gegevens! $AD$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AD$7: $AD$999,2)
AFTER: B =SERIES (Gegevens! $AD$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AD$7: $AD$999,2)
BEFORE: C =SERIES (Gegevens! $AE$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AE$7: $AE$999,3)
AFTER: C =SERIES (Gegevens! $AE$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AE$7: $AE$999,3)
BEFORE: D =SERIES (Gegevens! $AF$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AF$7: $AF$999,4)
AFTER: D =SERIES (Gegevens! $AF$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AF$7: $AF$999,4)
BEFORE: E =SERIES (Gegevens! $AG$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AG$7: $AG$999,5)
AFTER: E =SERIES (Gegevens! $AG$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AG$7: $AG$999,5)
BEFORE: Totaal (RHS) =SERIES (Gegevens! $AL$5, Gegevens! $AL$7: $AL$999,6)
AFTER: Totaal (RHS) =SERIES (Gegevens! $AL$5, Gegevens! $AL$7: $AL$999,6)
BEFORE: F =SERIES (Gegevens! $AH$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AH$7: $AH$999,7)
AFTER: F =SERIES (Gegevens! $AH$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AH$7: $AH$999,7)
BEFORE: G =SERIES (Gegevens! $AI$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AI$7: $AI$999,8)
AFTER: G =SERIES (Gegevens! $AI$5, „SPS Projection.xls“! Chart_Period, Gegevens! $AI$7: $AI$999,8)
++++++
Cht - GP% - Month
BEFORE: Een =SERIES (Gegevens! $BA$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BA$7: $BA$42, 1)
AFTER: Een =SERIES (Gegevens! $BA$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BA$7: $BA$42, 1)
BEFORE: B =SERIES (Gegevens! $BB$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BB$7: $BB$42, 2)
AFTER: B =SERIES (Gegevens! $BB$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BB$7: $BB$42, 2)
BEFORE: D =SERIES (Gegevens! $BD$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BD$7: $BD$42, 3)
AFTER: D =SERIES (Gegevens! $BD$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BD$7: $BD$42, 3)
BEFORE: E =SERIES (Gegevens! $BE$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BE$7: $BE$42, 4)
AFTER: E =SERIES (Gegevens! $BE$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BE$7: $BE$42, 4)
BEFORE: F =SERIES (Gegevens! $BF$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BF$7: $BF$42, 5)
AFTER: F =SERIES (Gegevens! $BF$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BF$7: $BF$42, 5)
BEFORE: G =SERIES (Gegevens! $BG$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BG$7: $BG$42, 6)
AFTER: G =SERIES (Gegevens! $BG$5, „SPS Projection.xls“! Chart_Period, Gegevens! $BG$7: $BG$42, 6)
++++++
As u kunt zien, heeft de code (vorige looppas) de eerste twee grafieken bevestigd, maar op derde chart.
What ben hier missen ontbroken I die?
Thanks,
Alan.
|
