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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Excelde koşullu resim renklendirme - Yazar: kadirdursun - 16/10/2016, 17:35
Task