Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Grafiek in Excel met instelbare limieten voor Y-as

  1. #1
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Vraag is opgelost

    Grafiek in Excel met instelbare limieten voor Y-as

    Voor verschillende gebruikers van het model is het wenselijk de max. grens voor de beide Y-assen in cellen van het werkblad vast te leggen.
    Zijn daar mogelijkheden toe ?
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  FG-2019-12-04_152121.jpg‎
Bekeken: 11
Grootte:  213,5 KB   Klik op afbeelding voor grotere versie

Naam:  FG-2019-12-04_152006.jpg‎
Bekeken: 9
Grootte:  200,6 KB  
    Laatst aangepast door anton44 : 4 december 2019 om 15:34
    Met dank en vriendelijke groet,
    Ton

  2. #2
    Alleen met VBA helaas.
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  3. #3
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Quote Origineel gepost door jkpieterse Bekijk Bericht
    Alleen met VBA helaas.
    Bedankt voor je reactie. Met VBA ben ik als leek al aan het stoeien. Met de macrorecorder al een stuk verder gekomen, maar mis nog wat details in de code.
    Misschien kun je daarmee verder helpen.
    De bedoeling is dat de waarden in cel BU4 resp BU5 in regel 70 en 90 verwerkt worden

    Vergeef me als daar domme fouten in staan :-(

    Code:
    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
    Met dank en vriendelijke groet,
    Ton

  4. #4
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Afstand tot server
    ±97 km
    Zo wellicht?
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range("BU4")
    Of
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range(Tempname1)
    als BU4 de naam Tempname1 heeft
    Laatst aangepast door Haije : 4 december 2019 om 18:24
    Haije
    ___________________________________________________

  5. #5
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Quote Origineel gepost door Haije Bekijk Bericht
    Zo wellicht?
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range("BU4")
    Of
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range(Tempname1)
    als BU4 de naam Tempname1 heeft
    Bedankt.
    In die richting was ik ook bezig maar krijg op regel 70 een foutmelding.
    Klik op afbeelding voor grotere versie

Naam:  FG-2019-12-04_184325.jpg
Bekeken: 3
Grootte:  144,9 KB
    Klik op afbeelding voor grotere versie

Naam:  FG-2019-12-04_184347.jpg
Bekeken: 4
Grootte:  179,0 KB
    Met dank en vriendelijke groet,
    Ton

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    In een plaatje is het moeilijk om code te plaatsen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Vermoedelijk.
    Code:
    = range("Tempname").value
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  8. #8
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Voorbeeld toegevoegd om zelf te kunnen testen.
    Waarin 3 macro's.
    1. De gewenste macro3 met ophalen van waardes (maar werkt nog niet, ondanks toevoeging .Value)
    2. GraphH en GraphT die wel werken maar met variabele waarden in de code
    Bijgevoegde bestanden Bijgevoegde bestanden
    Met dank en vriendelijke groet,
    Ton

  9. #9
    Een waarde uit een cel in een variabele zetten in VBA:
    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
    is NIET hetzelfde als een waarde uit een bereiknaam halen:
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range("Tempname1").Value
    Om statement op rij 70 te laten werken moet je:

    OF het statement aanpassen naar:
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Tempname1
    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.
    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
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  10. #10
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Quote Origineel gepost door jkpieterse Bekijk Bericht
    Een waarde uit een cel in een variabele zetten in VBA:
    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
    is NIET hetzelfde als een waarde uit een bereiknaam halen:
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Range("Tempname1").Value
    Om statement op rij 70 te laten werken moet je:

    OF het statement aanpassen naar:
    Code:
    70    ActiveChart.Axes(xlValue).MaximumScale = Tempname1
    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.
    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
    Jan Karel, dat was um. Bedankt.

    Nu maar hopen dat geen zwarte piet/roetveegpiet je meeneemt. Je bent en blijft zeer waardevol op dit en andere fora
    Met dank en vriendelijke groet,
    Ton

  11. #11
    Dank!
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren