Hoe wijzigt u de minimum- of maximumwaarde van een grafiekas met behulp van een formule in Excel?

Als u de minimumwaarde/Maximale waarde van de grafiekas wilt wijzigen met formules in een Spreidingsgrafiek in Excel, kunt u als volgt te werk gaan:

Stap 1: Selecteer uw brongegevens en voeg een spreidingsgrafiek toe door op het tabblad Invoegen – Spreidingsdiagram (X, Y) en Bubbelgrafiek(of)Spreidingsdiagram) op Spreidingsdiagram te klikken onder Invoegen.

Stap 2: Zoek een Leeg bereik naast Brongegevens, bijvoorbeeld bereik E1:G4, en voeg titels toe zoals op de onderstaande schermafbeelding wordt weergegeven:

Stap 3: Bepaal de Minimale waarde en Maximale waarde voor de X-as en de Y-as met behulp van formules:

(1) Maximale waarde op de X-as: Voer in cel F2 de formule =ROUNDUP(MAX(A2:A18)+2;0) in en druk op de Enter-toets;
(2) Minimale waarde op de X-as: Voer in cel F3 de formule =ROUNDDOWN(MIN(A2:A18)-1;0) in en druk op de Enter-toets.
(3) Schaaldeel op de X-as: Typ in cel F4 1 of een andere gewenste schaaldeelwaarde;
(4) Maximale waarde op de Y-as: Voer in cel G2 de formule =ROUNDUP(MAX(B2:B18)+20;0) in en druk op de Enter-toets;
(5) Minimale waarde op de Y-as: Voer in cel G3 de formule =ROUNDDOWN(MIN(B2:B18)-10;0) in en druk op de Enter-toets;
(6) Schaaldeel op de Y-as: Typ in cel G4 10 of een andere gewenste schaaldeelwaarde.

Opmerking: In de bovenstaande formules is A2:A18 de kolom Prijs waarop u de schaal van de x-as baseert en B2:B18 de kolom Gewicht voor de schaal van de y-as. U kunt de maximale of minimale waarde aanpassen door de getallen in de formules naar wens te wijzigen.

Stap 4: Selecteer de spreidingsgrafiek, klik met de rechtermuisknop op de huidige werkbladnaam in de tabbladbalk en kies Code weergeven in het contextmenu.

Stap 5: Kopieer en plak in het venster Microsoft Visual Basic for Applications dat nu wordt geopend, de volgende code:

VBA: Minimumwaarde/Maximale waarde van grafiekas wijzigen met formules

Sub ScaleAxes()
With Application.ActiveChart.Axes(xlCategory, xlPrimary)
.MinimumScale = ActiveSheet.Range("F3").Value
.MaximumScale = ActiveSheet.Range("F2").Value
.MajorUnit = ActiveSheet.Range("F4").Value
End With
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = ActiveSheet.Range("G3").Value
.MaximumScale = ActiveSheet.Range("G2").Value
.MajorUnit = ActiveSheet.Range("G4").Value
End With
End Sub

Opmerking: F3 is de minimale waarde op de X-as, F2 de maximale waarde op de X-as, F4 de schaaldeelwaarde op de X-as, G3 de minimale waarde op de Y-as, G2 de maximale waarde op de Y-as en G4 de schaaldeelwaarde op de Y-as. U kunt al deze waarden naar wens aanpassen.

Stap 6: Voer deze VBA uit door op de knop Uitvoeren te klikken of op de toets F5 te drukken.

Vervolgens ziet u dat de minimale en maximale waarden van zowel de X-as als de Y-as tegelijkertijd zijn aangepast in de geselecteerde spreidingsgrafiek.

Selecteer eenvoudig de maximumwaarde/Minimale waarde in elke rij/kolom of Beperkt bereik in Excel

Met Selecteer Max/Min cellen van Kutools voor Excel selecteert u eenvoudig de grootste of kleinste waarden – of de grootste en kleinste formulewaarden – uit een opgegeven bereik in Excel.