Excelde koşullu resim renklendirme

16/10/2016, 17:35

kadirdursun

Arkadaşlar Merhaba;

Aşağıdaki konuyu inceliyordum. Excelde haritaları girilen değere göre renklendirmiş. Nasıl olduğunu anlamadım. Her bir ilçe resmini nasıl renklendiriyor?



https://accesstr.net/konu-harita-renklen...celer.html



sanırım kod bu

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim i As Integer
   Dim shp As Shape
   
   With Sheets("İlceler")
       
       For i = 1 To 18
           
           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 4: oRnk.RGB = RGB(.Range("G6"), .Range("H6"), .Range("I6"))
               Case 5: oRnk.RGB = RGB(.Range("G7"), .Range("H7"), .Range("I7"))
               Case 6: oRnk.RGB = RGB(.Range("G8"), .Range("H8"), .Range("I8"))
               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
16/10/2016, 17:59

atoz112

Sayın kadirdursun,

Bahsettiğiniz talebinize yönelik olarak;
İlk etapta bir paylaşım olması amacı ile,kendi adıma tahminimce,uygulama içerisine daha önceden hazırlanmış (çizilmiş) şekiller dahil edilmiş ve bu şekillerin renk kodları (RGB) üzerinde mevcut olan veya belirlenen renk kodlarının aktarılması neticesinde bu sonuçların elde edildiğini düşünüyorum.

SHAPES ifadesi şekil ekleme anlamında kullanılmaktadır.

Elbette ki,konu sahibi,bu sorunuza denk geldiklerinde veya harici katılımcılar tarafından daha farklı bilgilendirmeleri edinmeniz de muhtemel.

Bilginize…iyi çalışmalar,saygılar.
16/10/2016, 18:12

kadirdursun

Açıklamalar için teşekkür ederim. Yinede D1937 arasındaki değerlerin değişmesi ile B19:B37 arasında yazan ilçelere ait harita parçalarının renklerinin nasıl değiştiğini anlamadım.
17/10/2016, 15:41

atoz112

Sayın kadirdursun,

Alıntı:ilçelere ait harita parçalarının renklerinin nasıl değiştiğini anlamadım.

İfadenize yönelik olarak;
Ayrıntılı inceleme imkanım olmadı fakat ilgili uygulama üzerinden kısa süreli bir inceleme ile yorumlamak üzere aşağıdaki açıklamaların yapılması uygun görülmüştür.

1)
Öncelikle,
ŞEKİL EKLE seçimi ile bir şekil oluşturulmakta ve aşağıdaki resimde olduğu gibi,NOKTA DÜZENLE seçimi ile harita benzeri ilçenin görseli oluşturulmakta.






2)
Worksheet_Change olay yordamında,eğer sayfa üzerinde herhangi bir değer değişimi söz konusu olursa,hemen akabinde bu değişimin harita görseline yansıması için,ilgili şeklin daha önceden belirlenmiş olan RGB renk kod değerleri üzerinden değiştirilmesi ve yeni renk görseli halini alması sağlanmaktadır.

ÖRNEK
a) İlgili ilçe şekillerinden herhangi birini (Örneğin, MAÇKA  adlı şekli) seçiniz ve yeni bir Excel uygulaması oluşturup bu yeni uygulamadaki sayfaya (SAYFA1) dahil ediniz.

b) Kod sayfasına geçip,SAYFA1 adlı sayfanın üzerine gelip Worksheet_Change olay yordamı içerisine

Sayfa1.Shapes("MAÇKA").Fill.ForeColor.RGB = RGB(220, 195, 40)

Kod satırını ekleyiniz.RGB(220, 195, 40) satırında yer alan bu SAYI değerlerini istediğiniz gibi değiştirebilirsiniz.

c) Sayfanın herhangi bir hücresine herhangi bir değer yazıp ENTER’a basınız.ilgili şeklin rengi değişecektir.

Bilginize…iyi çalışmalar,saygılar.
17/10/2016, 15:47

atoz112

sayın kadirdursun,

EK'te;
konunuzun 4.mesajında yapılan açıklamalara yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
19/10/2016, 11:44

kadirdursun

İlginiz için teşekkür ederim. Bu bilgi çok işime yarayacak.