Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

merttr07
merttr07
Excel Cevaplanmış Soruları
6
563

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

Çözüldü #1
merttr07
Aktif Üye
merttr07
Bul
Aktif Üye
Adı Soyadı: me.... se....
Yaşı: 28
Konum: İzmir
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 12/05/2022,23:03
Yorumları: 234
Konuları: 29
Kayıt Tarihi: 17/08/2020
Teşekkür Puanı: 3
Mesleğiniz: büro personeli
İ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
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:34
Yorumları: 8.156
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 994
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
merttr07
Aktif Üye
merttr07
Bul
Aktif Üye
Adı Soyadı: me.... se....
Yaşı: 28
Konum: İzmir
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 12/05/2022,23:03
Yorumları: 234
Konuları: 29
Kayıt Tarihi: 17/08/2020
Teşekkür Puanı: 3
Mesleğiniz: büro personeli
(19/08/2020, 13:35)berduş yazdı: 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
merttr07
Aktif Üye
merttr07
Bul
Aktif Üye
Adı Soyadı: me.... se....
Yaşı: 28
Konum: İzmir
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 12/05/2022,23:03
Yorumları: 234
Konuları: 29
Kayıt Tarihi: 17/08/2020
Teşekkür Puanı: 3
Mesleğiniz: büro personeli
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
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:34
Yorumları: 8.156
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 994
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
merttr07
Aktif Üye
merttr07
Bul
Aktif Üye
Adı Soyadı: me.... se....
Yaşı: 28
Konum: İzmir
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 12/05/2022,23:03
Yorumları: 234
Konuları: 29
Kayıt Tarihi: 17/08/2020
Teşekkür Puanı: 3
Mesleğiniz: büro personeli
(19/08/2020, 14:16)berduş yazdı: 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
Task