SubTotal İşlevinde Bold

Katılım
22 Nisan 2005
Mesajlar
121
Excel Vers. ve Dili
xp
SubTotal Ýşlevinde Bold

Merhaba Arkadaşlar,
Hepimiz excel'in SubTotal (AltToplam) özelliğini
kullanmışızdır.
Ben işim gereği excelin bu özelliğini çok kullanmak
durumundayım. Hemde büyük tablolarda.

Excel'in ilk sürümlerinden bugüne kadar (xp dahil, 2003'ü henüz görme şansım olmadı.) Subtotal konusunda excelin bir eksiği olduğu kanısındayım. Bunu Microsoft'un ABD merkezine ve Microsoft Türkiye'ye yazdım. Açıkçası geri bile dönmediler.

Problem şu: Ã?rneğin Yurt İçi Satışlar ve Yurt Dışı Satışlar'ın Alt Toplamını
Aldırdık diyelim görüntü nasıl oluyor

Yurt İçi Satışlar Toplam 1.000,00
Yurt Dışı Satışlar Toplam 1.000,00
Genel Toplam 2.000,00

görüldüğü gibi rakamlar bold olmuyor.

Oysa toplamların alındığı satırların formatlarını
isteğe bağlı olarak belirleyebilmeliyiz. Font Rengi, Zemin Rengi,
Size, Bold, İtalik, Yazı Tipi... gibi özellikleri seçebilmeliyiz.

Exceldeki Mevcut haliyle çok büyük tablolarda göze hitap
etmiyor. Yazıcı çıktıları hoş olmuyor.
Çok büyük tablolarda bu satırları tek tek seçip format düzeltmekse
çok zor oluyor. Bence bu excelin en büyük eksikliklerinden biri.

Tablomuz dahada karmaşık olabilirdi

.....................Karşıyaka Satışlar Toplam
.....................Konak Satışlar Toplam

..........İzmir Satışlar Toplam

.....................Avrupa Yakası Satışlar Toplam
.....................Anadolu Yakası Satışlar Toplam
.........İstanbul Satışlar Toplam

Yurt İçi Satışlar Toplam

.......................
.......................

Yurt Dışı Satışlar Toplam

Genel Toplam


Böyle bir tabloda rakamların bold olmadığını düşünebiliyormusunuz
Çok kötü duruyor.

Ben bu işi içinde Total/Toplam ifadesi geçen satırları find ile bulup
bold yapan basit bir makro ile yaptırıyorum ama

Bunun daha güzel bir çözümü yokmu? Excel içine bir dll dosyası
filan ilave edip böyle bir özellik katamazmıyız?
Bu konuya microsoft ne zaman el atacak?
Ã?rneğin: SubTotal ekranına bir iki buton ilave edip
bu butonlar ile FormatCell çağrılabilirdi.
(Ekli dosyada bir örnek vermeye çalıştım)

Konuyla ilgilenen arkadaşların elinde hazırlanmış
kodlar varsa bizlerle paylaşabilirlermi?

Herkese Tesekkurler
 
Katılım
8 Haziran 2005
Mesajlar
114
Bunun daha güzel bir çözümü yokmu? Excel içine bir dll dosyası
filan ilave edip böyle bir özellik katamazmıyız?
Dilerseniz Dll dosyasıda hazırlayabilirim. Ancak kodlarını görmeniz mümkün olmaz. Ben size basit bir örnek kod yazayım.

Alt Toplamlar A sütununa göre oluyor.

Alttoplamlarıda kodlar ile halledersek isteğiniz erine gelmiş olur.
Türkçe Sürüm içindir.
Kod:
Sub Renklen()
  'Burada AltTolam Kodları olacak.
  For Each rng In Range("A2:A" & [A65536].End(xlUp).Row + 3)
    If Left(rng, 6) = "Toplam" Then
      rng.Interior.ColorIndex = 35
      rng.Font.Bold = True
    End If
  Next rng
  Columns.AutoFit
End Sub
rng komutu range içine alınarak dilenen sütun kadar satır renklendirilebilir.

Alt Toplam için basit Bir Ã?rnek

Kod:
Range("A3:I" & [A65536].End(xlUp).Row + 1).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 6)
 
Üst