Hücrede Grafik Nasıl Oluşturulur ve Görüntülenir

Bu, bir hücrede çubuk grafiğin nasıl oluşturulacağı ve görüntüleneceği hakkında basit bir eğitimdir; yönetim raporları oluştururken çok iyi çalışan bir teknik.

Adımlar:

1. A sütununa, görüntülemek istediğiniz değerleri girin, yani A1 hücresine 10, A2 hücresine 20 vb.

2. B1 sütununa şu formülü girin: =REPT (“n”, A1). Bu formül, Excel'e " " arasında depolanan değeri A1 hücresindeki sayıya göre tekrarlamasını söyler.

3. Yazı tipini “Wingdings” olarak değiştirin.

4. Lütfen ekteki Excel dosyasındaki örnek 1'e bakın.

5. Çubuk grafiğin uzunluğunu azaltmak isterseniz, yukarıdaki formüldeki “A1”i 10'a veya en mantıklı sayıya bölmeniz yeterlidir. Örnek olarak formül şu şekilde görünecektir =REPT (“n”,A1/10). Ekli Excel dosyasındaki örnek 2'ye bakın.

Unutulmamalıdır ki, yukarıda belirtilen formüldeki “n”yi değiştirerek farklı görseller gösterebilirsiniz. Örneğin, büyük “J” gülen bir yüz gösterecek, büyük “L” ise üzgün bir yüz gösterecektir. Ekli Excel dosyasındaki örnek 3'e bakın.

Negatif Değerlerle Başa Çıkmak

Pozitif değerlerle uğraşırken yukarıdaki formüller iyi çalışır. Bununla birlikte, A sütunundaki değer negatifse, B sütunundaki grafik, bir dizi farklı sembolden oluşan bir dizgeye dönüşecek ve böylece istenen etkiyi kaybedecektir (ekteki elektronik tablodaki örnek 4'e bakın).

Bu sınırlamanın üstesinden gelmenin bir yolu, aşağıdaki gibi bir IF ifadesidir:

=EĞER(A21<0,REPT(“n”,ABS(A21/10)),REPT(“n”,A21/10))

Yukarıdaki formülün açıklaması:

1. Bir çubuk grafikte göstermeye çalıştığınız değerin A21 hücresinde bulunduğunu varsayın. Bu değer de negatiftir.

2. Formül, A21'deki değerin 0'dan küçük, yani negatif olup olmadığını söyleyerek başlar, ardından A21 hücresinde bulunan mutlak değer (ABS) ile “n”yi tekrarlayın ve ardından bu sayıyı 10'a bölün. Mutlak değeri kullanarak Excel'e eksi işareti yok saymasını ve sayıyı pozitif bir değer olarak ele almasını söyleyin.

3. Formülün sonraki kısmı, değer 0'dan büyükse Excel'e ne yapacağını söyler.

4. Lütfen ekteki dosyadaki örnek 4'e bakın.

Yukarıdakilere ilginç eklemeler, grafiğin rengini negatif değerler için kırmızı ve pozitif değerler için mavi olarak değiştirmek için koşullu biçimlendirme kullanmak olacaktır. Hayal gücünüzün size rehberlik etmesine izin verin!

Aşağıdaki öğretici, yukarıdaki tabloda "Trend" sütunu altında görüntülenene benzer bir hücrede nasıl grafik oluşturulacağını açıklayacaktır.

Grafik, “CellChart” adlı bir işlev kullanılarak oluşturulur. Bunu diğer standart işlevler gibi Excel'e girersiniz, yani TOPLA, ORTALAMA veya DÜŞEYARA vb. Bu işleve "Kullanıcı Tanımlı İşlev" denir ve Microsoft Excel'de bulunan standart bir işlev değildir. Kullanıcı tarafından VBA kullanılarak oluşturulmalıdır.

Excel'e girildiğinde, CellChart işlevi şöyle görünür:

CellChart işlevine daha yakından bakıldığında, grafiğin aralığı, işlevin ilk bölümünde, yukarıdaki örnekte C3:F3'te tanımlanmıştır. Daha sonra grafiğin rengi tanımlanır, 203 yukarıdaki örnek kullanılarak.

Şimdi VBA şeyler için

1. Bir sayfa adına sağ tıklayıp “Kodu Görüntüle”yi seçerek veya “ALT, F11”i seçerek VBA proje penceresine girin.

2. Sağ tarafta, proje adınıza sağ tıklayın ve “modül” seçeneğini seçin.

3. Aşağıdaki kodu kopyalayıp az önce oluşturduğunuz yeni modüle yapıştırın:

'Cell Chart Function CellChart(Plots As Range, Color As Long) As String adında yeni bir fonksiyon oluşturur 'Const cMargin = 2 Dim rng As Range, arr() As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape ' Aşağıdaki tablo için kullanılacak grafikleri hesaplar Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count j = 0 ise j = i ElseIf Grafiği(, j) > Grafiği(, i) O zaman j = i End If k = 0 ise k = i ElseIf Grafiği(, k) 
 0 Sonra .Line.ForeColor.RGB = Renk Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete(rngSelect As Range) 'Kodda daha sonra kullanılacak değişkenleri tanımlar Aralık Olarak Karart, Şekil Olarak blnDelete Boole Olarak Her shp İçin rngSelect.Worksheet.Shapes'te blnDelete = False Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect) Eğer rng Değilse .Address = Aralık(shp.TopLeftCell, shp.BottomRightCell).Address O zaman blnDelete = True End If blnDelete O zaman shp.Delete Next End Sub 

4. Kaydet düğmesine tıklayın.

5. VBA proje penceresinden çıkmak ve Excel'e dönmek için “Dosya” menüsünün sağ üst köşesindeki küçük Excel simgesine tıklayın.

6. Yukarıda gösterildiği gibi herhangi bir hücreye CellChart işlevini girin.

7. Yukarıdakilerin çalışan bir örneği için ekteki çalışma kitabına bakın.

Bu hücre içi grafik türü hakkında daha fazla bilgi için lütfen şu adresi ziyaret edin:

Hücre Grafiklerinde