Profosyonel Excel çözümleri ile A&R Yazılım artık hizmetinizde……
Şirket hayatında işlerinizi kolaylaştımak amacı ile Excel’de ;
konularında hizmet veren A&R Yazılım, hizmetinizde.
Excelde üst kısmı sabit tutup alt tarafa kaydırma işlemi (Freeze Panel)
Bu örnek sayfa üzerindeki button;
Yeni bir sayfa tanımlar,
İsmini bulunduğu sayfa isimini yedek olarak alır,
Eğer aynı isimli benzer bir sayfa varsa siler
Button’un bulunduğu sayfayı komple kopyalarak, yeni oluşturulan sayfaya, pastespecial/values olarak yapıştırır.
Örnek excel bu linkten ulaşabilirsiniz. Link
Selamlar,
İş yoğunluğu nedeni ile uzun süredir ilgilenemiyordum site ile. Geçenlerde bir müdür yardımcı arkadaşımızın ricası üzerine personel devam-devamsızlıkları ile ilgili bir çalışma yaptım. Onu paylaşmak istedim. Umarım diğer öğretmen arkadaşlar içinde yararlı bir çalışma olmuştur.
Exceli buradan indirebilirsiniz. İlk sayfada nasıl kullanması gerektiğine dair bir kaç kelam sarfettim.
Devam-Devamsızlık Çizelgesi
Excel’de tarih ile ilgili işlemler yapmadan önce tarih bilgisinin nasıl tutulduğunu anlamak gerekir. Excel’de tarih bilgisi; gün bazlı olarak 1900 yılının 1 Ocak gününden itibaren geçen gün olarak tutulur.
Araçlar menüsü altındaki “Seçenekler”den bu referans tarihini isterseniz 1904 olarak değiştirebilirsiniz.
Hemen bir ufak deneme ile tarih sistemimizin ne olduğunu öğrenelim. Bir hücre seçip içine “01.01.1900” yazalım sonrada [...]
VBA kullanarak karışık tablolarınızda ağaç yapısı kullanarakaynı formlarda olduğu gibi güzel bir görsellik yakalayabilirsiniz. Bunun için WorkSheet özelliğinden Worksheet_FollowHyperlink Event’ını kullanacağız. Şöyleki ‘+’ ve ‘-’ olarak ağaç tuşlarımızı aynı sayfa içine birer link olarak atayacağız. Sonra Worksheet_FollowHyperlink Event’e ile hangi linke basıldığına bakarak istenen satırları gizleyerek yada göstererek amacımıza ulaşmış olacağız.
‘+’ linkine basılınca
Burada iyi planlanması [...]
Bar grafiklerinizde her veri için ayrı bir renk tanımlaması yapabilirsiniz. Ağaşıdaki örnekte, grafiğin ilk serisi için her sutun için isme bağlı bir renk tanımı vardır. İsim ActiveChart.SeriesCollection(1).XValues()(i) kodu ile belirlenip, buna uygun rengi bulan findrenk gibi bir fonksiyona bağlanmıştır.
For i = 1 To ActiveChart.SeriesCollection(1).Points.count
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection
.Border.Weight = xlThin
.Border.LineStyle = xlNone
.Shadow = False
.InvertIfNegative = False
.Interior.ColorIndex = findrenk(ActiveChart.SeriesCollection(1).XValues()(i))
.Interior.Pattern [...]
Şimdi Makro kullanarak Chart (grafik) oluşturmak düzenlemekle ilgili bir kaç örnek gösterelim
Öncelikle bir graik oluşturarak onu isteğimiz sayfa içine koyalım.
Dim chartd As Excel.Chart
Dim WS As Worksheet
Set WS = Sheets(”Tablolar”)
Charts.Add
Set chartd = ActiveChart
chartd.Name = “Grafik”
chartd.Location xlLocationAsObject, WS.Name
Daha sonra grafik için veri kaynağı belirtelim;
Dim alan as range
Set alan =WS.Range(”A1:B13″)
chartd.SetSourceData Source:=WS.Range(alan)
Grafik türünü, verilerin satıra nı yoksa sütuna mı [...]
Birkaç tip daha verelim.
* Çok satırlı yada sütunlu pivotlarda alt toplamlar 12 öğeli bir dizi olarak ifade edilebilir. Örneğin bütün alttoplamları kaldırmak istediğimizde;
PT.PivotFields(”Yıl”).Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
* Satır ya da sütun değelerinden sadece istediğimiz değerin aktif olması için;
Dim PI As PivotItem
For Each PI In PT.PivotFields(”Yıl”).PivotItems
If PI.Name [...]
Öncelikle Pivot Cache tanımlayıp, onun üzerinden Pivot tablomuzu oluşturuyoruz.
ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=sayfa”!R1C1:R20C20″).CreatePivotTable TableDestination:= _”‘[" & ThisWorkbook.Name & "]Temp’!R10C15″, _
TableName:=”Özet Tablo 1″, _
DefaultVersion:=xlPivotTableVersion1
Daha sonra isimlerdirme yaparak uzun kodları kısaltıyoruz
Dim PT As PivotTable
Set PT = Sheets(”Temp”).PivotTables(”Özet Tablo 1″)
Şimidi sırayla pivot tablomuza pagefield, rowfield ve columnfield atayalım.
With PT.PivotFields(”Bolge”)
.Orientation = xlPageField
.Position = 1
End With
PT.PivotFields(”Bolge”).CurrentPage = “Ankara”
With PT.PivotFields(“Yıl”)
.Orientation = xlRowField
.Position = [...]