Skip to main content

AccessTr.neT


Accessten exceldeki grafiğe veri alma ve grafiği formda gösterme

Accessten exceldeki grafiğe veri alma ve grafiği formda gösterme

#13
ş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.
Cevapla
#14
(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.
.rar Progrsm 3.rar (Dosya Boyutu: 3,41 MB | İndirme Sayısı: 1)
Cevapla
#15
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.
Cevapla
#16
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.
Cevapla
#17
(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.
Son Düzenleme: 18/08/2020, 23:02, Düzenleyen: merttr07.
Cevapla
#18
Farklı bir yöntem de ben ekleyeyim.
[Resim: zUaJO2RT.gif]
.rar Userx_Aylık_Raporlama.rar (Dosya Boyutu: 138,13 KB | İndirme Sayısı: 5)
"Dünyayı fazla düşünme."
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task