anton44
Verenigingslid
- Lid geworden
- 20 mei 2005
- Berichten
- 1.597
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Alleen met VBA helaas.
Sub Macro3H()
10
15 Application.ScreenUpdating = False
20
25 With Sheets("Energie")
30 Tempname1 = Range("BU4") 'Op werkblad "Energie" cel BU4 staat de max waarde voor kWh (bv 600)
35 Tempname2 = Range("BU5") 'Op werkblad "Energie" cel BU5 staat de max waarde voor % (bv .21)
40 End With
45
50 Sheets("Real_progn").Select 'tabblad van de grafiek
55 ActiveChart.ChartArea.Select
60 ActiveChart.Axes(xlValue).Select
65 With Sheets("Energie")
70 ActiveChart.Axes(xlValue).MaximumScale = Range("Tempname1")
75 'ActiveChart.Axes(xlValue).MaximumScale = 600
80 ActiveChart.Axes(xlValue, xlSecondary).Select
85 'ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 0.21
90 ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Range("Tempname2")
95 Sheets("Energie").Select
100
110 Application.ScreenUpdating = True
115
End Sub
70 ActiveChart.Axes(xlValue).MaximumScale = Range("BU4")
70 ActiveChart.Axes(xlValue).MaximumScale = Range(Tempname1)
25 With Sheets("Energie")
30 Tempname1 = .Range("BU4") 'Op werkblad "Energie" cel BU4 staat de max waarde voor kWh (bv 600)
35 Tempname2 = .Range("BU5") 'Op werkblad "Energie" cel BU5 staat de max waarde voor % (bv .21)
40 End With
70 ActiveChart.Axes(xlValue).MaximumScale = Range("Tempname1").Value
70 ActiveChart.Axes(xlValue).MaximumScale = Tempname1
25 With Sheets("Energie")
30 Tempname1 = .Range("Tempname1") 'Op werkblad "Energie" cel BU4 staat de max waarde voor kWh (bv 600)
35 Tempname2 = .Range("Tempname2") 'Op werkblad "Energie" cel BU5 staat de max waarde voor % (bv .21)
40 End With
Een waarde uit een cel in een variabele zetten in VBA:
is NIET hetzelfde als een waarde uit een bereiknaam halen:Code:25 With Sheets("Energie") 30 Tempname1 = .Range("BU4") 'Op werkblad "Energie" cel BU4 staat de max waarde voor kWh (bv 600) 35 Tempname2 = .Range("BU5") 'Op werkblad "Energie" cel BU5 staat de max waarde voor % (bv .21) 40 End With
Om statement op rij 70 te laten werken moet je:Code:70 ActiveChart.Axes(xlValue).MaximumScale = Range("Tempname1").Value
OF het statement aanpassen naar:
OF de cel BU4 de naam "TempName1" geven in Excel (die cel selecteren, op de tab Formules de knop Naam definieren indrukken en een nieuwe naam maken die naar die cel verwijst). Dit laatste heeft overigens de voorkeur.Code:70 ActiveChart.Axes(xlValue).MaximumScale = Tempname1
Als je de waarde uit Tempname1 vervolgens vaker nodig hebt dan 1 keer in je code, verander dan regels 25-40 in:
Code:25 With Sheets("Energie") 30 Tempname1 = .Range("Tempname1") 'Op werkblad "Energie" cel BU4 staat de max waarde voor kWh (bv 600) 35 Tempname2 = .Range("Tempname2") 'Op werkblad "Energie" cel BU5 staat de max waarde voor % (bv .21) 40 End With
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.