Oprettet ons. d. 23. november 2011 kl. 12:33:22

zjat
zjat (9.231 point. Point ude: 450)

Benytte Y-aksens max værdi i beregning

Hej Alle sammen

Er der nogen måde hvorpå man kan aflæse den Y-værdi, som excel sætter som max på y-aksen? dvs. bruge værdien i en formel i excel.

Problemet er at jeg har en graf, hvor jeg har en søjle, som hele tiden skal fylde hele y-aksen ud. Da Y-aksen svinger i max værdi, er det hele tiden en ny værdi - kan man mon beregne den værdi excel når frem til?

Skrevet ons. d. 23. november 2011 kl. 12:57:35| #1

dkhanknu
dkhanknu (35.505 point)
Det automatiske maksimum for y-aksen (y_maks og y_min begge positive) er første overordnede enhed større end eller lig med værdien returneret af følgende ligning:

y_maks + 0,05 *(y_maks - y_min)

Hans

Skrevet ons. d. 23. november 2011 kl. 13:50:54| #2

zjat
zjat (9.231 point)
Så hvis jeg bruger den formel i excel, burde den give det samme som y-værdiens øverste punkt på aksen?

Smart! hvor finder man dog de guldinformationer?

Ved du tilfældigvis også hvordan man laver 2 x-akser med dato på den ene akse og tidspunkt på den anden akse (tænkte datoen skulle stå i toppen af grafen og tidspunktet i bunden af grafen)

Skrevet ons. d. 23. november 2011 kl. 13:53:36| #3

zjat
zjat (9.231 point)
Dohh...kan jeg jo ikke bare sætte ind - for så hæver y-aksen sig bare yderligere. Hvordan kan man sætte en formel ind i stedet for en konstant værdi for y-max under graf opsætning?

Skrevet ons. d. 23. november 2011 kl. 14:30:56| #4

dkhanknu
dkhanknu (35.505 point)
Du spurgte:

Er der nogen måde hvorpå man kan aflæse den Y-værdi, som excel sætter som max på y-aksen? dvs. bruge værdien i en formel i excel.

Og ja, det er der, nemlig ved hjælp af den nævnte formel.

Hvis det du faktisk mener er, om man kan bruge en formel til at bestemme (ikke aflæse) y_maks så er svaret nej. Men du kan gøre det ved hjælp af følgende, hvor du placerer formlen for ønsket y_min og y_maks i D1 og D2:

Sub SetScale()
Dim WS As Worksheet
Dim Cht As Chart
Set WS = Worksheets("Ark1")
Set Cht = WS.ChartObjects("Diagram 1").Chart
WS.ChartObjects("Diagram 1").Chart.Axes(xlValue).MinimumScale = Range("D1").Value
WS.ChartObjects("Diagram 1").Chart.Axes(xlValue).MaximumScale = Range("D2").Value
End Sub

Skrevet ons. d. 23. november 2011 kl. 14:55:36| #5

zjat
zjat (9.231 point)
Hej Hanknu.

Det var fordi jeg gerne ville undgå VBA.

Men hvis det ikke kan lade sig gøre uden VBA - så smid svar og jeg må benytte VBA formelen :)

Tak for dine hurtige og gode hjælp :)

Skrevet ons. d. 23. november 2011 kl. 15:39:26| #6


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

hjælp til at lave et træningsprogram

Oprettet den 26. maj 2012 kl. 20.44
janskov giver 30 point for svar | Giv et svar »

Datavalidering med anden workbook som referance

Oprettet den 26. maj 2012 kl. 09.05
KenneyD71 giver 60 point for svar | Giv et svar »

Søgeformel i Excel

Oprettet den 25. maj 2012 kl. 23.28
Torben1970 giver 60 point for svar | Giv et svar »



   




Tips & Tricks fra PC World

Teaser billede

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.


Anmeldelser fra PC World

Teaser billede

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Sådan siger du farvel til Facebook

Læs her, hvordan du dropper Facebook og i stedet anvender nogle brugervenlige alternativer, så du stadig kan være social på nettet.


Nyheder fra Computerworld

Teaser billede

Galleri: De fedeste håndholdte gennem 40 år

Her har du de mest banebrydende håndholdte computere gennem alle tider.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger