AccessTr.neT

Tam Versiyon: Accessten exceldeki grafiğe veri alma ve grafiği formda gösterme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9
şimdilik şöyle olsun siz accessteki 3 tabloda olan verileri excelde oluşturacağınız 3 sayfaya kopyalayın
grafiklerinizi de bu sayfalara göre yeniden oluşturup dosyanızı tekrar ekleyin
bu aşamada benim yapacağım şey grafik formunu açtığınızda seçiminize göre Excel sayfalarını boşaltıp sadece ihtiyacınız olan aya ait verileri eklemek istenirse de exceli kapatırken bu verileri silmek olabilir.
bu arada Excel user form doğrudan grafikleri desteklemiyormuş galiba dolaylı yollardan grafiği resme çevirip resmi userforma ekliyorlarmış.
şu an için başka bir yöntem bulamadım.
(18/08/2020, 16:20)berduş yazdı: [ -> ]şimdilik şöyle olsun siz accessteki 3 tabloda olan verileri excelde oluşturacağınız 3 sayfaya kopyalayın
grafiklerinizi de bu sayfalara göre yeniden oluşturup dosyanızı tekrar ekleyin
bu aşamada benim yapacağım şey grafik formunu açtığınızda seçiminize göre Excel sayfalarını boşaltıp sadece ihtiyacınız olan aya ait verileri eklemek istenirse de exceli kapatırken bu verileri silmek olabilir.
bu arada Excel user form doğrudan grafikleri desteklemiyormuş galiba dolaylı yollardan grafiği resme çevirip resmi userforma ekliyorlarmış.
şu an için başka bir yöntem bulamadım.
yılıda ekleyelim sizin dediğiniz gibi
Bir sürü kod buldum ama uyarlayamadım. Bir türlü muhakkak oluyor ama işte sonuç alamıyoruz.
Excel sayfasindaki Ilk 3 grafiği düzenledim sonuçları düzgün gösteriyor ama grafik formundaki tablo göstermeyi ve grafiği henüz halledemedim.
(18/08/2020, 22:56)berduş yazdı: [ -> ]Excel sayfasindaki Ilk 3 grafiği düzenledim sonuçları düzgün gösteriyor ama grafik formundaki tablo göstermeyi ve grafiği henüz halledemedim.
Sen harikasın ya gerçekten yıllarıda eklemeliyiz haklısın.Yıl seçeneğide olmalı



Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B4"), PlotBy:= _
    xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
ActiveChart.HasTitle = False

Sen harikasın ya gerçekten yıllarıda eklemeliyiz haklısın.Yıl seçeneğide olmalı

Kod:
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B4"), PlotBy:= _
    xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
ActiveChart.HasTitle = False
Grafik için kod belki işine yarar.Ayrıca Aylık Veri indirme de genel toplonun hepsini aylık indirmemiz gerekiyor. Ona da yıl eklemeliyiz.
Farklı bir yöntem de ben ekleyeyim.
[Resim: zUaJO2RT.gif]
Sayfalar: 1 2 3 4 5 6 7 8 9