Manuel beregning og grafisk afbildning

Calculate

Den manuelle beregning må ikke slås fra!!!

Men hvis jeg kan begrænse Calculate til kun at omfatte værdier fra a1:a3 så er det ok. Grunden til denne begrænsning er at der i nogle af regnearkets øvrige celler fremkommer værdier ved hjælp af slump-funktionen,- disse værdier må ikke ændres.

Sheets("Ark1").Range("A1:A3").Calculate

Kan ikke få denne til at virke

Ret evt. Ark1 til det aktuelle

har du flere projektmapper åbne, skal projektnavnet med i formel
fx.
Workbooks("dit navn").Sheets("Ark1").Range("A1:A3").Calculate

Mit ark hedder Subtraktion
Sheets("Subtraktion").Range("A1:A3").Calculate virker første gang denne bliver aktiveret, men ikke når der sker en ændring i cellerne a1:a3 og koden aktiveres igen.

kan du ikke paste hele/eller en del af koden her

Den fylder nok lidt meget, men kan jeg sende dig arket på mail?

check lige om Calculate linien kommer EFTER linierne som påvirker A1:A3

ellers send til
pm@madsen.tdcadsl.dk

Tilføj linie 2, så tror jeg den virker

Sheets("Subtraktion").Range("i57:i59").Calculate
Sheets("Subtraktion").ChartObjects("Diagram 4").Application.Calculate

MANGE TAK det virker rigtig godt.
Kan jeg tillade mig at stille spørgsmål om hvordan det ville se ud hvis jeg skulle have det til at slå igennem i samme projektmappe i alle ark stadig med kildedata fra ("i57:i59").

Hovsa!
Sheets("Subtraktion").Range("i57:i59").Calculate
Sheets("Subtraktion").ChartObjects("Diagram 4").Application.Calculate
... ændrer opgaverne, når koden aktiveres.
f.eks 7 - 4 = 3 ... herefter ektiveres koden og slump er blevet aktiveret og der står måske 8 - 2 = 3 (facit bibeholdes fra før)....- ikke så smart!

ser lige om det kan undgåes

kunne ikke lige få den til at undgå genberegning, i stedet opdateres
kildedata, som samtidig opdaterer grafen,- det ser ud til at virke.

Sheets("Subtraktion").Range("i57:i59").Calculate
ActiveSheet.ChartObjects("Diagram 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Subtraktion").Range("B57:B59,I57:I59"), PlotBy:=xlColumns
Range("I60").Select

Hvis du gør sådan her sker der ingen rekalkulation.

Sub test()

    Dim Var1, Var2, Var3
    Dim ws As Worksheet
    Set ws = Sheets("Subtraktion")
    With ws
        Var1 = .Range("i57")
        Var2 = .Range("i58")
        Var3 = .Range("i59")
        .ChartObjects(1).Chart.SeriesCollection(1).Formula = _
            "=SERIES(,{1,2,3},{" & Var1 & "," & Var2 & "," & Var3 & "},1)"
    End With
End Sub

Til Kommentar: excelent
08/08-2006 22:22:43
SÅDAN!
Så ser det hele ud til at virke efter hensigten. MANGE TAK!
Kan jeg tillade mig at stille spørgsmål om hvordan det ville se ud hvis jeg skulle have det til at slå igennem i samme projektmappe i alle ark stadig med kildedata fra ("i57:i59").

kikker på det

hvis du får fejl i første linie, skal x dimmes - Dim x
Substraktion (2) arket bliver ikke påvirket (gik ud fra det er en kopi)

x = ActiveSheet.Name
Application.ScreenUpdating = False
Sheets("Subtraktion").Range("i57:i59").Calculate
ActiveSheet.ChartObjects("Diagram 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Subtraktion").Range("B57:B59,I57:I59"), PlotBy:=xlColumns
Range("I60").Select: Sheets("Addition").Range("i57:i59").Calculate
Sheets("Addition").ChartObjects("Diagram 5").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Addition").Range("B57:B59,I57:I59"), PlotBy:=xlColumns
Range("I60").Select: Sheets("Multiplikation").Range("i57:i59").Calculate
Sheets("Multiplikation").ChartObjects("Diagram 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Multiplikation").Range("B57:B59,I57:I59"), PlotBy:=xlColumns
Range("I60").Select: Sheets("Division").Range("i57:i59").Calculate
Sheets("Division").ChartObjects("Diagram 4").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Division").Range("B57:B59,I57:I59"), PlotBy:=xlColumns
Range("I60").Select: Sheets(x).Select: Range("I60").Select
Application.ScreenUpdating = True

RIGTIG, RIGTIG FLOT stykke arbejde. Jeg er meget glad for de flotte løsninger. TAK!!!! Lægger du et svar..

ok velbekom