Excelde koşullu resim renklendirme

Excelde koşullu resim renklendirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excelde koşullu resim renklendirme (/konu-excelde-kosullu-resim-renklendirme.html)

Excelde koşullu resim renklendirme - kadirdursun - 16/10/2016

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-renklendirme-yapamiyorum-ilceler.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

Cvp: Excelde koşullu resim renklendirme - atoz112 - 16/10/2016

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.

Cvp: Excelde koşullu resim renklendirme - kadirdursun - 16/10/2016

Açıklamalar için teşekkür ederim. Yinede D19 Lol

37 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.

Cvp: Excelde koşullu resim renklendirme - atoz112 - 17/10/2016

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.

[Resim: do.php?imgf=147670865903461.jpg]

[Resim: do.php?imgf=147670865903461.jpg]

[Resim: do.php?imgf=147670865911182.jpg]

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.

Cvp: Excelde koşullu resim renklendirme - atoz112 - 17/10/2016

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.

Cvp: Excelde koşullu resim renklendirme - kadirdursun - 19/10/2016

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