Skip to main content

AccessTr.neT


Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma

Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma

Çözüldü #1
İyi günler iyi çalışmalar.
21 adet grafiği Vba tek imga üzerinden kullanıcı hangi grafiği görmek istiyor ise o grafiği seçerek görmesini sağlamak için gerekli kodlar. Uğraştığım kod hata veriyor. Kod aşağıda bulunmakta. Bu birinci sorunum.
Grafik adlarını listbox getirmeye çalışırken hata alıyorum.
With Me.ListBox3
    .Clear
        .AddItem
        .List(0, 0) = "barajtablo"
        .List(0, 1) = "BARAJ KOTU DEĞİŞİM GRAFİĞİ"
       
        .AddItem
        .List(1, 0) = "barajtablo"
        .List(1, 1) = "BARAJ HACMİ DEĞİŞİM GRAFİĞİ"
       
        .AddItem
        .List(2, 0) = "barajtablo"
        .List(2, 1) = "BARAJ AKTİF DOLULUK ORANI"
   
        .List(3, 0) = "barajtablo"
        .List(3, 1) = "BARAJ YAĞIŞ VE BUHARLAŞMA"
       
        .AddItem
        .List(4, 0) = "kimyasaltablo"
        .List(4, 1) = "FeCl3 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(5, 0) = "kimyasaltablo"
        .List(5, 1) = "Al2(SO4)3 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(6, 0) = "kimyasaltablo"
        .List(6, 1) = "PAC SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(7, 0) = "kimyasaltablo"
        .List(7, 1) = "POLİMER (SU) SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(8, 0) = "kimyasaltablo"
        .List(8, 1) = "KLOR SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(9, 0) = "kimyasaltablo"
        .List(9, 1) = "NaOH SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(10, 0) = "kimyasaltablo"
        .List(10, 1) = "KMnO4 SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(11, 0) = "kimyasaltablo"
        .List(11, 1) = "POLİMER (ÇAMUR) SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(12, 0) = "kimyasaltablo"
        .List(12, 1) = "KİREÇ SARFİYAT GRAFİĞİ"
       
        .AddItem
        .List(13, 0) = "kimyasaltablo"
        .List(13, 1) = "ÇAMUR ÜRETİM GRAFİĞİ"
       
        .AddItem
        .List(14, 0) = "üretimenerji"
        .List(14, 1) = "GİRİŞ DEBİSİ GRAFİĞİ"
       
        .AddItem
        .List(15, 0) = "üretimenerji"
        .List(15, 1) = "ÇIKIŞ DEBİSİ GRAFİĞİ"
       
        .AddItem
        .List(16, 0) = "üretimenerji"
        .List(16, 1) = "SU ALMA YAPISI ELEKTRİK"
       
        .AddItem
        .List(17, 0) = "üretimenerji"
        .List(17, 1) = "ARITMA TESİSİ ELEKTRİK"
       
        .AddItem
        .List(18, 0) = "üretimenerji"
        .List(18, 1) = "ÜRETİM ORTALAMASI GRAFİĞİ"
       
        .AddItem
        .List(19, 0) = "üretimenerji"
        .List(19, 1) = "SU ALMA YAPISI ÜRETİM"
       
        .AddItem
        .List(20, 0) = "üretimenerji"
        .List(20, 1) = "ARITMA TESİSİ ÜRETİM"
        .Value = "barajtablo"
       
     
       
       
    End With
       
       
End Sub


2. Sorunum İse Seçilen tabloların gurup gurup ayrı ayrı görünmesi gerekirken hepsi bir görünüyor. Tablo seçme yerinde seçtiğimiz tablonun sadece görünmesi gerekiyor.
Cevapla
#2
bir önceki konunuzda Yaşadığımız karmaşanın bir sebebi de aynı konu içinde bir kaç farklı şeyi çözmeye çalışmamızdı o nedenle her soru için ayrı konu açmanız daha uygun ölür
ilk sorunuzdaki kodda yeralan .Value = "barajtablo" satırını silip öyle dener misiniz
Cevapla
#3
(19/08/2020 13:35)berduş Adlı Kullanıcıdan Alıntı: bir önceki konunuzda Yaşadığımız karmaşanın bir sebebi de aynı konu içinde bir kaç farklı şeyi çözmeye çalışmamızdı o nedenle her soru için ayrı konu açmanız daha uygun ölür
ilk sorunuzdaki kodda yeralan   .Value = "barajtablo" satırını silip öyle dener misiniz
Denedim olmadı ne yazık ki

Sorunu buldum bir yerde .AddItem atlamışım.
Son Düzenleme: 19/08/2020, 13:41, Düzenleyen: merttr07.
Cevapla
#4
Simdi seçtiği grafiği ne yazık ki imga getirmiyor. Aşağıda grafik kodu.
Dim sTempFile As String
    Dim sChartName As String
    Dim oChart As Chart
   
   
    sTempFile = Environ("temp") & "\temp.gif"
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ KOTU DEĞİŞİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ HACMİ DEĞİŞİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ AKTİF DOLULUK ORANI").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ YAĞIŞ VE BUHARLAŞMA").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("FeCl3 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("Al2(SO4)3 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("PAC SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("POLİMER (SU) SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KLOR SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("NaOH SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KMnO4 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("POLİMER (ÇAMUR) SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KİREÇ SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ÇAMUR ÜRETİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("GİRİŞ DEBİSİ GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ÇIKIŞ DEBİSİ GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("SU ALMA YAPISI ELEKTRİK").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ARITMA TESİSİ ELEKTRİK").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
     
      Set oChart = Worksheets("örnekgrafik").ChartObjects("ÜRETİM ORTALAMASI GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("SU ALMA YAPISI ÜRETİM").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ARITMA TESİSİ ÜRETİM").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
 
    Kill sTempFile
MsgBox "bitti"
End Function
Cevapla
#5
yeni konu açıp dosyanızın son halini ekleyerek sormanız daha uygun olur
Bu arada combobox kodunuzun mantığı hatalı bence veriler seçilen tabloya göre alınıyor dolayısıyla açılır kutunuza da sadece seçilen tablonun verilerine uygun grafikler eklenmeli yada en baştan siz hangi tabloyu seçerseniz seçin bütün tablolardaki ilgili yıl-aya ait veriler Excel sayfalarına otomatik olarak eklenmeli böylece grafiklerin hepsi gösterilebilir
Cevapla
#6
(19/08/2020 14:16)berduş Adlı Kullanıcıdan Alıntı: yeni konu açıp dosyanızın son halini ekleyerek sormanız daha uygun olur
Bu arada combobox kodunuzun mantığı hatalı bence veriler seçilen tabloya göre alınıyor dolayısıyla açılır kutunuza da sadece seçilen tablonun verilerine uygun grafikler eklenmeli yada en baştan siz hangi tabloyu seçerseniz seçin bütün tablolardaki ilgili yıl-aya ait veriler Excel sayfalarına otomatik olarak eklenmeli böylece grafiklerin hepsi gösterilebilir
Grafikleri Excel gelen verilerden seçince garfikler gözükmeye başladı sorun yok şuan.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da