AccessTr.neT

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

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.

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.

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.

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.

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

kadirdursun

atoz112

kadirdursun

atoz112

atoz112

kadirdursun