Skip to main content

AccessTr.neT


Excelde koşullu resim renklendirme

Excelde koşullu resim renklendirme

#1
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
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#2
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Açıklamalar için teşekkür ederim. Yinede D19Lol37 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.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#4
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=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

Visual Basic Code
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
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.
.rar SekilRengiDegistir-ATOZ.rar (Dosya Boyutu: 20,39 KB | İndirme Sayısı: 9)
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
İlginiz için teşekkür ederim. Bu bilgi çok işime yarayacak.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da