Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excelde koşullu resim renklendirme

kadirdursun
kadirdursun
Access Cevaplanmış Soruları
5
2272

Excelde koşullu resim renklendirme

#1
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 29/06/2024,16:26
Yorumları: 1.300
Konuları: 107
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
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
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 29/06/2024,16:26
Yorumları: 1.300
Konuları: 107
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
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
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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

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
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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ı: 12)
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
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 29/06/2024,16:26
Yorumları: 1.300
Konuları: 107
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
İ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
Task