Avatar billede Mathias- Nybegynder
22. december 2011 - 22:26 Der er 17 kommentarer og
1 løsning

Opdater når celler redigeres

Jeg har en userform med en graf i.

koden ser sådan ud:
Dim ChartNum As Integer

Private Sub UserForm_Initialize()
    ChartNum = 1
    UpdateChart
End Sub

Private Sub PreviousButton_Click()
    If ChartNum = 1 Then ChartNum = 3 Else ChartNum = ChartNum - 1
    UpdateChart
End Sub

Private Sub NextButton_Click()
    If ChartNum = 3 Then ChartNum = 1 Else ChartNum = ChartNum + 1
    UpdateChart
End Sub

Private Sub CloseButton_Click()
    Unload Me
End Sub

Private Sub UpdateChart()


    Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 300
    CurrentChart.Parent.Height = 150

'  Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export FileName:=Fname, FilterName:="GIF"

'  Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub

Jeg vil gerne have, at når man redigerer i området A1:D10, så afspilles "UpdateChart" i userformen.
Dvs. altså sige, at grafen skal opdatere når data ændres.

Hvordan gøres dette? :)
Avatar billede Ialocin Novice
22. december 2011 - 23:19 #1
Hej Mathias

Hvad med følgende kode i arkets change hændelse ...
Kode aktiveres når der sker ændringer i det ønskede område.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Variant

    'set isect = det ønskede område
    Set isect = Application.Intersect(Target, Range("A1:D10"))
   
    'hvis ændringen sker i det valgte område
    If Not isect Is Nothing Then
   
        'kald proceduren UpdateChart
        UpdateChart
       
    End If

End Sub


Med venlig hilsen, Nicolai
Avatar billede Mathias- Nybegynder
22. december 2011 - 23:22 #2
debug ved: Private Sub Worksheet_Change(ByVal Target As Range)
Avatar billede Ialocin Novice
22. december 2011 - 23:24 #3
Hej Mathias

Og nu når vi er i gang :o)

Hvis du har fået det "rigtige" svar angående billeder på en Userform ?? ... Lukker du så ikke følgende spørgsmål:

http://www.eksperten.dk/spm/952643

Med venlig hilsen, Nicolai
Avatar billede Ialocin Novice
22. december 2011 - 23:26 #4
Hej Mathias

Hvor ligger din UpdateChart procedure ?

I et moduel, på Userformen eller på arket ?

Med venlig hilsen, Nicolai
Avatar billede Mathias- Nybegynder
22. december 2011 - 23:31 #5
Så er det andet spørgsmål kukket, havde helt glemt det.

Min UpdateChart ligger på i forms, under userfor1
Avatar billede Mathias- Nybegynder
22. december 2011 - 23:32 #6
hov, ligger i userform1, under forms :)
Avatar billede Ialocin Novice
22. december 2011 - 23:36 #7
Tak for lukningen :o)

.....

Jeg har lige lavet et test ark, hvor min updatechart ligger under arket ... og her er der ingen fejl ?
Avatar billede Mathias- Nybegynder
22. december 2011 - 23:37 #8
prøve lige at send det til mig :)

info@kostberegner.dk
Avatar billede Ialocin Novice
22. december 2011 - 23:38 #9
Hej Igen

Hvis jeg placerer min UpdateChart under min form, så debugger den også !!

Med venlig hilsen, Nicolai
Avatar billede Mathias- Nybegynder
22. december 2011 - 23:43 #10
fik du den ikke lige til at virke?
Avatar billede Ialocin Novice
22. december 2011 - 23:48 #11
Hej Mathias

Delvis :o)
Det rigtigste er at oprette Updatechart proceduren i et modul, så alle objekter i workbooken kan tilgå den.

Det har jeg lavet i det ark, som jeg poster til dig om 30 sekunder :o)

Med venlig hilsen, Nicolai
Avatar billede Mathias- Nybegynder
23. december 2011 - 00:12 #12
Jeg kan se på dit ark at det virker!! :D

Jeg har bare lidt problemer med at kæde det sammen med mit eget..

Jeg har sendt en mail til dig :)
Avatar billede Ialocin Novice
23. december 2011 - 00:13 #13
Kigger på den :o)
Avatar billede Mathias- Nybegynder
23. december 2011 - 00:41 #14
mange tak :)
Avatar billede Ialocin Novice
23. december 2011 - 01:00 #15
Hej Mathias

Så tror jeg, at den er der ?

Der er en mail på vej :o)

Med venlig hilsen, Nicolai
Avatar billede Ialocin Novice
23. december 2011 - 01:15 #16
Hej Mathias

Min dyne kalder på mig ... så vi kan kigge videre i morgen = senere i dag ;o) ... hvis det bliver nødvendig.

Go´ nat, Nicolai
Avatar billede Mathias- Nybegynder
23. december 2011 - 01:40 #17
Glimrende, tak! - smid et svar, så du kan få hvad velfortjent er. ;)

Vh
Mathias
Avatar billede Ialocin Novice
23. december 2011 - 10:11 #18
Hej Mathias

Godt det fungerer efter hensigten.
Hermed mit svar :o)

Glædelig jul og godt nytår,
Nicolai
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester