Søg
Avatar billede kabbak Professor
19. januar 2015 - 15:17 Der er 5 kommentarer og
1 løsning

Skift af dataområde på mange diagrammer

Hej
Jeg har en Excel mappe med mange diagrammer på flere ark.
De får alle data fra forskellige kolonner i et stort data ark, eneste kolonne som går igen, det er kolonne A.
Da diagrammerne blev lavet, var der kun data til række 433, nu vil brugerne gerne se flere data, så nu skal de gå til række 865.

Jeg ville gerne kunne bruge en makro, som gik ind og rette tallet 433 til 865.

så f.eks.
ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A433,K1:N433")
blev til

ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A865,K1:N865")
Avatar billede supertekst Ekspert
19. januar 2015 - 15:30 #1
Hej Kabbak

Vil det sige, at det er et antal formler, der skal rettes i - eller?
Avatar billede kabbak Professor
19. januar 2015 - 15:36 #2
Ja, den skal rette i hvert diagram, på der range, der står i ActiveChart.SetSourceData Source.

Jeg ved nemmelig ikke om man kan søge og erstatte deri, jeg kan sagtens programmere loopet igennem chars
Avatar billede supertekst Ekspert
19. januar 2015 - 16:17 #3
Ja - udfordringen ligger i at kunne aflæse datasource pr. diagram
Avatar billede supertekst Ekspert
19. januar 2015 - 18:23 #4
Måske via Chart.SeriesCollection.Count & Chart.SeriesCollection(x).Formula, der opsplittes iflg. "!"

kan der opbygges en Datasource, der kan tilpasses med det nye rækkenr og derved tildeles.
Avatar billede kabbak Professor
20. januar 2015 - 10:30 #5
Løsningen blev


Public Sub test2()
For Each ch In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(ch.Name).Activate
ch.Activate
For X = 1 To 10
On Error Resume Next
ActiveChart.SeriesCollection(X).Formula = Replace(ActiveChart.SeriesCollection(X).Formula, 433, 865)
Next
Next
End Sub


Læg et svar
Avatar billede supertekst Ekspert
20. januar 2015 - 12:17 #6
Fint og et svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »