gibt es die Möglichkeit, aus 2 Farbwerten die mitte zu errechnen und wenn ja wie?
also f1=5296274 und f2=65535
Ergebnis ist dann irgendetwas zwischen gelb und grün...
danke.
C | D | E | F | G | H | I | J | K | L | M | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
6 |
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
7 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
8 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
9 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
10 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
11 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
12 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
13 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
14 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
15 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
16 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
17 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
18 |
Sub Farbe_mischen()
Dim F1 As Long, F2 As Long
Dim Rot1 As Long, Gruen1 As Long, Blau1 As Long
Dim Rot2 As Long, Gruen2 As Long, Blau2 As Long
Dim RotM As Long, GruenM As Long, BlauM As Long
On Error Resume Next
F1 = InputBox("Farbe1", "Mischen", 5296274)
F2 = InputBox("Farbe2", "Mischen", 65535)
Range("F1").Interior.Color = F1
Range("F2").Interior.Color = F2
Rot1 = F1 Mod 256
F1 = (F1 - Rot1) / 256
Gruen1 = F1 Mod 256
F1 = (F1 - Gruen1) / 256
Blau1 = F1 Mod 256
Rot2 = F2 Mod 256
F2 = (F2 - Rot2) / 256
Gruen2 = F1 Mod 256
F2 = (F2 - Gruen2) / 256
Blau2 = F2 Mod 256
RotM = (Rot1 + Rot2) / 2
GruenM = (Gruen1 + Gruen2) / 2
BlauM = (Blau1 + Blau2) / 2
Range("F4").Interior.Color = RGB(RotM, GruenM, BlauM)
MsgBox "RGB (" & RotM & ", " & GruenM & ", " & BlauM & ")" & vbLf & vbLf & _
"= " & RGB(RotM, GruenM, BlauM)
End Sub
Sub M_snb()
x = RGB(12, 230, 140)
y = RGB(120, 130, 40)
sn = Array((x Mod 256 + y Mod 256) \ 2, ((x Mod (256 ^ 2)) \ 256 + (y Mod (256 ^ 2)) \ 256) \ _
2, (x \ (256 ^ 2) + y \ (256 ^ 2)) \ 2)
MsgBox RGB(sn(0), sn(1), sn(2))
End Sub