- Katılım
- 16 Aralık 2005
- Mesajlar
- 130
Kod:
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