Søg
Avatar billede Chewie Novice
17. oktober 2002 - 11:04 Der er 14 kommentarer og
1 løsning

Alternativknap vs. Diagram ((makro))

Hej Exp´er

Ved hjælp af tre alternativeKnapper, kan jeg skifte mellem hvilke oplysninger min graf skal vise.

Det virker perfekt med denne makro:
--------------------------------
Sub TelefonDiagram()

    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A7:A8,E7:E8"), _
        PlotBy:=xlColumns
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A7:A9,E7:E9"), _
        PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select
   
End Sub
Sub VilHa()

    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A11:A13,E11:E13" _
        ), PlotBy:=xlColumns
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A11:A12,E11:E12" _
        ), PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select
   
End Sub
Sub Opklad()

    ActiveSheet.ChartObjects("Diagram 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Statistik").Range("A14:A16,E14:E16" _
        ), PlotBy:=xlColumns
    ActiveWindow.Visible = False
    Windows("Statistik.xls").Activate
    Range("H1").Select

End Sub
-----------------------------------

Men nu kommer problemmet så, når jeg deler min fil så den kan bruges af flere samtidig får jeg denne fejlmeddelse ........ Hvorfor ??
Avatar billede Chewie Novice
17. oktober 2002 - 11:05 #1
http://www.dinos.dk/index.php?op=10&act=bdfag&spm=271337
Avatar billede Chewie Novice
18. oktober 2002 - 10:22 #2
hmmm.... er det sort snak eller hvad ?? jeg kan evt. sende arket hvis i ikke forstår problematikken !!
Avatar billede Slettet bruger
18. oktober 2002 - 20:48 #3
Du må gerne sende det til mig.
tc@elvis.dk
Avatar billede Chewie Novice
19. oktober 2002 - 10:39 #4
Blackadder >> jeg er taget på weekend .... så det bliver først mandag

Go´weekend
Avatar billede Chewie Novice
21. oktober 2002 - 09:04 #5
sendt til blackadder !!
Avatar billede bak Forsker
21. oktober 2002 - 09:24 #6
Chewie -> har du også beskyttet arket ??
Avatar billede Chewie Novice
21. oktober 2002 - 09:25 #7
bak >> Nej
Avatar billede bak Forsker
21. oktober 2002 - 09:56 #8
Ok chewie, jeg får også samme fejl, kigger lige lidt på det..
Avatar billede Chewie Novice
21. oktober 2002 - 10:10 #9
Venter spændt :o)
Avatar billede bak Forsker
21. oktober 2002 - 10:39 #10
Jeg har desværre ikke lige tid til at lave det fuldstændig men du kan få et løsningsforslag.
1. navngiv dataområderne
2. byg grafen med disse navne
3. lav makroerne så de kun ændrer størrelserne på de navne du har oprettet

I eksemplet er brugt navnene data1 for værdierne og data2 for x-aksen

Sub macro10()
ActiveWorkbook.Names("Data2").RefersTo = Range("a1:a10")
ActiveWorkbook.Names("Data1").RefersTo = Range("e1:e10")
End Sub

Sub macro11()
ActiveWorkbook.Names("Data2").RefersTo = Range("a1:a6")
ActiveWorkbook.Names("Data1").RefersTo = Range("e1:e6")
End Sub


Dette er afprøvet på en delt mappe og virker.
Avatar billede bak Forsker
21. oktober 2002 - 11:00 #11
Sub TelefonDiagram()
ActiveWorkbook.Names("Data2").RefersTo = Range("a7:a9")
ActiveWorkbook.Names("Data1").RefersTo = Range("e7:e9")
End Sub

Sub VilHa()
ActiveWorkbook.Names("Data2").RefersTo = Range("a11:a12")
ActiveWorkbook.Names("Data1").RefersTo = Range("e11:e12")
End Sub

Sub Opklad()
ActiveWorkbook.Names("Data2").RefersTo = Range("a14:a16")
ActiveWorkbook.Names("Data1").RefersTo = Range("e14:e16")
End Sub
Avatar billede Chewie Novice
21. oktober 2002 - 11:39 #12
Ser godt ud .... jeg prøver lige at koble det ind i mit ark
Avatar billede Chewie Novice
21. oktober 2002 - 12:13 #13
Super godt finger arbejde ..... det virker helt perfekt

Tak for hjælpen ((svar?))
Avatar billede bak Forsker
21. oktober 2002 - 12:15 #14
Ok, godt du kunne bruge det...
Avatar billede Chewie Novice
21. oktober 2002 - 12:16 #15
:o)
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
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I går 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
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 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »