• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

RGB Onaltılık kodu yazılarak rengi çağırma

  • Konbuyu başlatan Konbuyu başlatan ATEMİ
  • Başlangıç tarihi Başlangıç tarihi
A

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
462
Excel Vers. ve Dili
Office 2021 Türkçe
Merhabalar;
Herhangi bir hücreye (A1) RGB onaltılık kodu (#696969) yazıldığında hemen yanındaki hücrenin (B1) bu kodun rengi ile boyanması sağlanabilir mi?
Teşekkür ederim
 
Merhaba Tevfik Bey,
İdris beyin sayfasını inceledim bu konularda çok başarılı harika işler başarmış.
koşullara göre yapılmış renklendirmelerin RGB renk kodlarını bulmak için yapılmış bir çalışması var
ben RGB renk kodunu yazarak rengin gelmesini istiyorum
 
ATEMİ' Alıntı:
Merhaba Tevfik Bey,
İdris beyin sayfasını inceledim bu konularda çok başarılı harika işler başarmış.
koşullara göre yapılmış renklendirmelerin RGB renk kodlarını bulmak için yapılmış bir çalışması var
ben RGB renk kodunu yazarak rengin gelmesini istiyorum
Genişletmek için tıkla ...

Bu şekilde bir kod olabilir.

Kod: 
Sub Hucrerenk()
    Range("A1").Interior.Color = RGB(256, 0, 0)
    Range("A2").Interior.Color = RGB(0, 0, 256)
End Sub

.
 
A sütununa yazılan hex codunu çevirir.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub
 
Sayın veyselemre kodu yapıştırdım fakat bir farklılık yok eksik bir şey yapmış olabilir miyim
 
Olabilirsiniz, alttaki sayfa isminin üzerinde sağ tıklayıp kodu görüntüle yapıp çıkan kod bölümüne yapıştırın. Ya da dosyanızı ekleyin.
 
İdris SERDAR' Alıntı:
Bu şekilde bir kod olabilir.

Kod: 
Sub Hucrerenk()
    Range("A1").Interior.Color = RGB(256, 0, 0)
    Range("A2").Interior.Color = RGB(0, 0, 256)
End Sub

.
Genişletmek için tıkla ...
Üstadım öncelikle sayfanızdan çok etkilendim elinize emeğinize sağlık tebrik ederim.
cevabınızla ilgili olarak sanırım ben bir hata yapıyorum kodu yapıştırdım ancak sonuç alamıyorum
veyselemre' Alıntı:
Olabilirsiniz, alttaki sayfa isminin üzerinde sağ tıklayıp kodu görüntüle yapıp çıkan kod bölümüne yapıştırın. Ya da dosyanızı ekleyin.
Genişletmek için tıkla ...
Üstadım tam istediğim gibi oldu ilginiz için teşekkür ediyorum
 
veyselemre' Alıntı:
A sütununa yazılan hex codunu çevirir.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub
Genişletmek için tıkla ...
Sayın veyselemre renk ile birlikte gelen "RGB(105,105,105)" kodun gelmeden sadece ilgili rengin gelmesini sağlayabilir misiniz
 
.Value = "RGB(" & R & "," & G & "," & b & ")"
silin
 
veyselemre' Alıntı:
A sütununa yazılan hex codunu çevirir.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub
Genişletmek için tıkla ...
Üstadım çok oluyor ama bir sorum daha olacak A sütununa değil de B sütununa kodu yazsam C sütununda renk çıksa
 
Rich (BB code): 
If .Column <> 2 Or .Count > 1 Then Exit Sub
 
veyselemre' Alıntı:
Rich (BB code): 
If .Column <> 2 Or .Count > 1 Then Exit Sub
Genişletmek için tıkla ...
Veysel bey her soruya hızlı ve tatmin edici cevaplar vermeniz daha çok soru sormaya itiyor rahatsız olursanız söyleyin lütfen
Hexadecimal kodu yerine B sütununda kendi belirlediğimiz renk kodlarına ait renklerin aynı şekilde çağırılması söz konusu olur mu
 
? mesala ne yazılı b sütununda hangi formatta?
 
Çalışma üzerinde ekte gönderiyorum
B sütunu demiştim ekteki dosyada bu E sütunu olmuş oldu
 

Ekli dosyalar

Excelde böyle bir renk tanımlama sistemi yok. 0-55 arası colorIndex le kullanabileceğiniz, ön tanımlı renkler var. Color (double) tanımlı sistem var. RGB komutuyla doubla çevrilerek color komutu kullanılabiliyor. Ayrıca color ile kullanılan (vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite, vbYellow) gibi sabit tanımlı renkler var. Sizin e sütunundaki 999 gibi bir hazır tanımlı renk sistemi yok. Bunların RGB veya doubla standart bir çevrimi varsa o başka benim bilgim yok.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst