Excel VBA ve Renkler

[osmantelci]

Private Sub RenkPaleti() 
 Dim rng As Range 
 For Each rng In Range("A1:A56") 
  rng.Interior.ColorIndex = rng.Row 
  rng(1, 2) = "Renk Paleti Sıra No: " & rng.Row 
 Next rng 
End Sub 

Private Sub QB_Renkler() 
 Dim rng As Range 
 For Each rng In Range("C1:C15") 
  rng.Interior.Color = QBColor(rng.Row) 
  rng(1, 2) = "Renk Kodu QBColor: " & rng.Row 
 Next rng 
End Sub 

Private Sub Renkler() 
 Dim byt As Byte, Renkler As Variant 
 Renkler = Array(vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite) 
 For byt = 0 To 7 
  Range("F" & byt + 1).Interior.Color = Renkler(byt) 
  Range("F" & byt + 1) = Renkler(byt) 
 Next byt 
End Sub 

Private Sub RGB_Renkler() 
 Dim Kirmizi As Integer, Yesil As Integer, Mavi As Integer 
 Kirmizi = Application.InputBox("Kırmızı renkten: ", , 10, , , , , 1) 
 Yesil = Application.InputBox("Yeşil renkten: ", , 200, , , , , 1) 
 Mavi = Application.InputBox("Mavi renkten: ", , 75, , , , , 1) 
 If Kirmizi > 255 Or Kirmizi < 0 Then Kirmizi = 0 
 If Yesil > 255 Or Yesil < 0 Then Yesil = 0 
 If Mavi > 255 Or Mavi < 0 Then Mavi = 0 
 Range("E1:E10").Interior.Color = RGB(Kirmizi, Yesil, Mavi) 
 Range("E1:E10") = "Kırmızı: " & Kirmizi & "Yeşil: " & Yesil & " Mavi: " & Mavi 
End Sub 

Sub RenkOrnekleri() 
 RenkPaleti 
 QB_Renkler 
 Renkler 
 RGB_Renkler 
 Cells.Columns.AutoFit 
End Sub

 

[abazya]

Bu linkide yabana atmayalım RGB


http://www.excel.web.tr/viewtopic.php?t=12231

 

[osmantelci]

Sayın Abazya demişki; Bu linkide yabana atmayalım RGB

Sitede benzer örnekler mevcut olabilir, ben de farklı bir yöntem veya örnek olabilir maksadı ile bunları hazırladım. Ben bu tarz bir çalışma gördüğümde genelde teşekkür ederek o kişilerin katkılarının sürmesini temenni ediyorum. Niyetim muhalif olmak değil, hep birlikte bir şeyler öğrenmek veya öğretmektir.

 

[abazya]

Sn osmantelci bensize muhalefetlik yapmadımki. Bu başlık altında arayanlar hepsini bulsunlar istedim. Sizi eleştirmek gibi bir niyetim olmadı

Benim söylediğimi

farklı bir yöntem veya örnek olabilir maksadı ile

Sizde ifade etmişsiniz.