Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Grafik Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Grafik Soruları Grafik uygulamaları ile ilgili sorularınızı bu başlığa yöneltebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-12-2008, 20:36   #1
sedatakbaba
 
Giriş: 03/08/2007
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
2007
Post Veriye göre harita renklendirme

Merhaba. İstediğim şey ekteki excel dosyasında, ikinci sayfadaki c sütununa 1, 2 ve 3 rakamlarından herhangi biri duruma göre yazılacak. Örneğin aksaraya 1 yazıldığında birinci sayfadaki haritada aksaray ili mavi, 2 yazıldığında yeşil, 3 yazıldığında sarı olmalı. Bunu yapabilir miyim? Yardımlarınız için şimdiden teşekkürler...
Eklenmiş Dosyalar
Dosya Türü: zip excel harita.zip (60.6 KB, 1283 Görüntülenme)
sedatakbaba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 20:46   #2
S.Yiğit
Destek Ekibi
 
S.Yiğit kullanıcısının avatarı
 
Giriş: 01/07/2008
Şehir: İstanbul / Tuzla
Mesaj: 1,503
Excel Vers. ve Dili:
2010 TR
Varsayılan

Alıntı:
sedatakbaba tarafından gönderildi Mesajı Görüntüle
Merhaba. İstediğim şey ekteki excel dosyasında, ikinci sayfadaki c sütununa 1, 2 ve 3 rakamlarından herhangi biri duruma göre yazılacak. Örneğin aksaraya 1 yazıldığında birinci sayfadaki haritada aksaray ili mavi, 2 yazıldığında yeşil, 3 yazıldığında sarı olmalı. Bunu yapabilir miyim? Yardımlarınız için şimdiden teşekkürler...
Arkadaşım aynı konuyu 1,5 saat arayla açman konuya hemen cevap alabileceğin anlamına gelmez.. İstediğin şey mümkünse olumlu yada olumsuz mutlaka cevap alırsın..
__________________
2010
S.Yiğit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 22:52   #3
sedatakbaba
 
Giriş: 03/08/2007
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan

Kusura bakma ilkini göremediğim için, hatalı giriş yaptığımı düşünmüştüm de.
sedatakbaba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-12-2008, 02:01   #4
Ferhat Pazarçevirdi
 
Ferhat Pazarçevirdi kullanıcısının avatarı
 
Giriş: 15/06/2006
Şehir: İzmir
Mesaj: 3,723
Excel Vers. ve Dili:
Excel 2003, 2007, 2010 (TR)
Varsayılan

Ekteki dosyayı inceleyiniz.

Kodlama yapılmadan önce;

1. Haritada, serbest form çizimlerinin herbirine şehir isimleri verilmiştir.
2. İstanbul ve Çanakkale iki parçalı çizim oluşturduğundan bunlar gruplandırılarak tek bir nesne haline getirilmiştir.
3. "İller" adlı sheetteki şehir isimlerinde görünen boşluklar temizlenmiştir.
4. İller tablosuna, RGB renk kodlarını ifade edecek şekilde; parametreler yerleştirilmiştir. Siz bu RGB değerleri ile oynayarak daha farklı renkelendirmeler de yapabilirsiniz.

İller tablosunda değişim olduğunda; aşağıdaki kod tetiklenmektedir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim shp As Shape
    Dim oRnk As ColorFormat
    
    On Error Resume Next
    
    If Not Intersect(Target, Range("C1:C81")) Is Nothing Then
        
        Set shp = Sheets("Harita").Shapes(Trim(Target.Offset(0, -1).Text))
        Set oRnk = shp.Fill.ForeColor
        
        Select Case Target
            Case 1: oRnk.RGB = RGB(Range("G3"), Range("H3"), Range("I3"))
            Case 2: oRnk.RGB = RGB(Range("G4"), Range("H4"), Range("I4"))
            Case 3: oRnk.RGB = RGB(Range("G5"), Range("H5"), Range("I5"))
            Case Else: oRnk.RGB = RGB(Range("G2"), Range("H2"), Range("I2"))
        End Select
    
    End If
    
    Set shp = Nothing
    Set oRnk = Nothing
End Sub
Her ihtimale karşı; Harita adlı sheet activate edildiğinde; aşağıdaki kodlarla renklendirme, garanti altına alınmaktadır.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Activate()
    Dim i As Integer
    Dim shp As Shape
    
    With Sheets("İller")
        
        For i = 1 To 81
            
            Set shp = Sheets("Harita").Shapes(.Cells(i, 2))
            Set oRnk = shp.Fill.ForeColor
            
            Select Case .Cells(i, 3)
                Case 1: oRnk.RGB = RGB(.Range("G3"), .Range("H3"), .Range("I3"))
                Case 2: oRnk.RGB = RGB(.Range("G4"), .Range("H4"), .Range("I4"))
                Case 3: oRnk.RGB = RGB(.Range("G5"), .Range("H5"), .Range("I5"))
                Case Else: oRnk.RGB = RGB(.Range("G2"), .Range("H2"), .Range("I2"))
            End Select
        
        Next i
    
    End With
    
    Set shp = Nothing
    Set oRnk = Nothing
            
End Sub
Ekteki dosyayı da inceleyiniz.
Eklenmiş Dosyalar
Dosya Türü: xls 60460.xls (157.0 KB, 1804 Görüntülenme)
__________________
Bugün pazar. | Bugün beni ilk defa güneşe çıkardılar. | Ve ömrümde ilk defa gökyüzünün | bu kadar benden uzak | bu kadar mavi | bu kadar geniş olduğuna şaşarak | kımıldamadan durdum. | Sonra saygıyla toprağa oturdum, | dayadım sırtımı duvara. | Bu anda ne düşmek dalgalara, | bu anda ne kavga,ne hürriyet, ne karım. | Toprak, güneş ve ben | Bahtiyarım| NAZIM/1938
www.xlchart.blogspot.com
Ferhat Pazarçevirdi Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-12-2008, 12:34   #5
sedatakbaba
 
Giriş: 03/08/2007
Şehir: istanbul
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan

Müthiş bir çalışma olmuş. Çok çok teşekkür ederim. Emeğine sağlık.

Bu mesaj en son " 21-12-2008 " tarihinde saat 12:42 itibariyle sedatakbaba tarafından düzenlenmiştir....
sedatakbaba Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2008, 08:33   #6
S.Yiğit
Destek Ekibi
 
S.Yiğit kullanıcısının avatarı
 
Giriş: 01/07/2008
Şehir: İstanbul / Tuzla
Mesaj: 1,503
Excel Vers. ve Dili:
2010 TR
Varsayılan

Hocam elinize sağlık, Çok güzel bir çalışma olmuş..
__________________
2010
S.Yiğit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2008, 09:18   #7
Ayhan Ercan
Özel Üye
 
Ayhan Ercan kullanıcısının avatarı
 
Giriş: 10/08/2005
Şehir: Adapazarı
Mesaj: 1,581
Excel Vers. ve Dili:
Excel 2003 - Türkçe
Varsayılan

Sayın Ferhat Hocam, Elinize emeğinize sağlık. Harika bir Çalışma olmuş....
__________________
Sub Bilgi()
MsgBox "Bilgi, Paylaştıkça Çoğalır...."
End Sub
Ayhan Ercan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2008, 10:24   #8
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

Ferhat hocam güzel bir çalışma çok teşekkür ederim.
Renk kodlarını rtırmak istersek ne yapmalı?
Kıbrıs Türk Cumhuriyetini Dahil etmek istersek ne yapmalı gibi iki sorum var? Yani hartiaları nasıl çizeceğiz uyarlayacağız?
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-02-2009, 11:27   #9
ekeles
 
Giriş: 21/02/2009
Mesaj: 1
Excel Vers. ve Dili:
2003 tr
Varsayılan

Süper bir çalışma olmuş. Çok işime yaradı Allah razı olsun.

Sevgili hsayar;
Renk değiştirmek için de 2.sayfadaki renklerin olduğu yere 1-255 arası rakam girmen lazım.
Örneğin 2 seçeneğinin sarı olması için 250 250 100 girmen gerekli. Kısacası ilkokuldaki resim dersini hatırla ve hangi renklerle hangisi ne kadar karışırsa ne renk çıkar düşün ve kendini kasma. Hayata her zaman bir çocuğun gözüyle de bakmak gerekli.
ekeles Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-04-2009, 17:47   #10
qwertylion
Altın Üye
 
Giriş: 12/04/2008
Şehir: ANKARA
Mesaj: 199
Excel Vers. ve Dili:
2003 TÜRKÇE
Varsayılan

süper olmuş hocam haritayı kendi çalışma sayfama nasıl aktarabilirim? yardımcı olursanız sevinirim.
qwertylion Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:18


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden