Excel'de formül kullanarak grafik ekseninin minimum ve maksimum değerlerini nasıl değiştirebilirim?

Excel'de bir Dağılım Grafiği içinde formüller kullanarak grafik ekseninin min/Maksimum Değer değerini değiştirmek için aşağıdaki adımları izleyebilirsiniz:

Adım 1: Grafiğinizi seçin ve Ekle > Dağılım (X, Y) ve Balon Grafiği(veya)Dağılım) seçeneğine tıklayarak bir Dağılım Grafiği ekleyin. Bu işlemi Ekle sekmesinde yapın.

Adım 2: Kaynak Veri yanına, örneğin E1:G4 aralığı gibi bir Boş Aralık bulun ve aşağıdaki ekran görüntüsünde gösterildiği gibi başlıklar ekleyin:

Adım 3: X ekseni ve Y ekseni için Minimum Değer ve Maksimum Değer değerlerini aşağıdaki formüllerle belirleyin:

(1) X ekseninde Maksimum Değer: F2 hücresine =ROUNDUP(MAX(A2:A18)+2,0) formülünü girin ve Enter tuşuna basın;
(2) X ekseninde Minimum Değer: F3 hücresine =ROUNDDOWN(MIN(A2:A18)-1,0) formülünü girin ve Enter tuşuna basın.
(3) X ekseninde işaret değeri: F4 hücresine 1 veya ihtiyacınız olan başka bir işaret değerini yazın;
(4) Y ekseninde Maksimum Değer: G2 hücresine =ROUNDUP(MAX(B2:B18)+20,0) formülünü girin ve Enter tuşuna basın;
(5) Y ekseninde Minimum Değer: G3 hücresine =ROUNDDOWN(MIN(B2:B18)-10,0) formülünü girin ve Enter tuşuna basın;
(6) Y ekseninde işaret değeri: G4 hücresine 10 veya ihtiyacınız olan başka bir işaret değerini yazın.

Not: Yukarıdaki formüllerde A2:A18, x ekseni ölçeğini belirlediğiniz Fiyat sütunu; B2:B18 ise y ekseni ölçeğini belirlediğiniz Ağırlık sütunudur. İhtiyaçlarınıza göre bu formüllerdeki hücre aralıklarını değiştirerek Maksimum Değer veya Minimum Değer ayarlarını özelleştirebilirsiniz.

Adım 4: Dağılım Grafiği'ni seçin, Sayfa Sekme Çubuğu’ndaki Geçerli Çalışma Sayfası adına sağ tıklayın ve açılan menüden Kodu Görüntüle seçeneğini seçin.

Adım 5: Açılan Microsoft Visual Basic for Applications penceresine aşağıdaki kodu kopyalayıp yapıştırın:

VBA: Formüllerle grafik ekseninin min/Maksimum Değer değerini değiştirme

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

Not: F3, X eksenindeki minimum değerdir; F2, X eksenindeki maksimum değerdir; F4, X eksenindeki işaret değeridir; G3, Y eksenindeki minimum değerdir; G2, Y eksenindeki maksimum değerdir; G4 ise Y eksenindeki işaret değeridir. Tüm bu değerleri ihtiyacınıza göre özelleştirebilirsiniz.

Adım 6: Bu VBA kodunu çalıştırmak için Çalıştır düğmesine tıklayın veya F5 tuşuna basın.

Daha sonra seçili Dağılım Grafiği içinde X ekseni ve Y ekseni için Minimum Değer ve Maksimum Değer değerlerinin hepsinin aynı anda değiştiğini göreceksiniz.

Excel'de her satır/sütundaki maks/Minimum Değer değerini veya Sınırlı aralık değerini kolayca seçin

Kutools for Excel’in Maksimum/Minimum Hücreleri Seç özelliği, Excel’de bir aralık içinden en büyük veya en küçük değerleri ve hatta en büyük/en küçük formül sonuçlarını kolayca seçmenizi sağlar.