Print side | Luk vindue

Ændre data i diagram med VBA

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=62
Udskrevet den: 21.Nov.2024 kl. 17:13


Emne: Ændre data i diagram med VBA
Besked fra: andreas
Emne: Ændre data i diagram med VBA
Posteringsdato: 22.Aug.2010 kl. 14:34
Hej jeg er ny i VB og prøver at få et XY-diagram til at opdaterer sig automatisk:
 
Jeg har optaget en macro som start:
 
Jeg kan bare ikke finde hvorfor at den første kode virker og den nedenunder ikke gør.
Jeg vil have at den selv finder bunden af kollonen når den skal ændre dataerne i Diagram 12
 
Sub Makro5()
'
' Makro5 Makro
    ActiveSheet.ChartObjects("Diagram 12").Activate
    ActiveChart.SeriesCollection(1).Name = "='Ark1'!$e$1"
     ActiveChart.SeriesCollection(1).XValues = _
       Worksheets("ark1").Range("a1").End(xlDown)
End Sub

Sub Makro5()
'
' Makro5 Makro
    ActiveSheet.ChartObjects("Diagram 12").Activate
    ActiveChart.SeriesCollection(1).Name = "='Ark1'!$e$1"
     ActiveChart.SeriesCollection(1).XValues = _
       Worksheets("ark1").Range("a1:a2")
End Sub
 
 
Håber i kan hjælpe mig
 
 


Svar:
Besked fra: Allan
Posteringsdato: 22.Aug.2010 kl. 18:22
Hej Andreas,
 
Du er nødt til at forklare Excel hvilket område den skal kigge i.
Den nemmeste og mest forklarende måde at vise det på er denne:
 
Sub Test()
 
Dim area As String
Range("a1").End(xlDown).Select
Area = "'Ark1'!$A$1:$A$" & Selection.Row
    ActiveSheet.ChartObjects("Diagram 12").Activate
    ActiveChart.SeriesCollection(1).Name = "='Ark1'!$e$1"
    ActiveChart.SeriesCollection(1).XValues = Area
End Sub
 
Area laver først omådet, og senere i koden kan du så bruge 'area' til at hele tiden vende tilbage til dette.
Mange vil måske kalde dette for en 'cowboy metode' men den virker og er meget simpel.
 
//Allan

Besked fra: andreas
Posteringsdato: 23.Aug.2010 kl. 10:53
Tak Allan. Nu virker det!!!
 
Jeg fik det også til at virke ved at bruge funktionen Difinerer Navn.
 
 

Besked fra: Allan
Posteringsdato: 23.Aug.2010 kl. 13:00
Super, velbekomme og tak for din tilbagemelding Smile
 
Definer navn er også en rigtig god mulighed, den giver faktisk mulighed for at opdatere og tilføje rækker til et diagram automatisk helt uden VBA.
Mere om det en anden gang, det var godt at du kunne bruge det.
 
//Allan


Print side | Luk vindue