Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma (/konu-grafik-secimi-ile-grafik-getirme-ve-tablolari-ayirma.html) Sayfalar:
1
2
|
Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - merttr07 - 19/08/2020 İ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. RE: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - berduş - 19/08/2020 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 RE: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - merttr07 - 19/08/2020 (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ürDenedim olmadı ne yazık ki Sorunu buldum bir yerde .AddItem atlamışım. RE: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - merttr07 - 19/08/2020 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 RE: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - berduş - 19/08/2020 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 RE: Grafik Seçimi İle Grafik Getirme Ve Tabloları Ayırma - merttr07 - 19/08/2020 (19/08/2020, 14:16)berduş yazdı: yeni konu açıp dosyanızın son halini ekleyerek sormanız daha uygun olurGrafikleri Excel gelen verilerden seçince garfikler gözükmeye başladı sorun yok şuan. |