MS Excel

Téma: Přehození barvy písma a pozadí

Zaslal/a GeorgeK 16.12.2015 14:15

Zdravím,
když je pozadí buňky černé - písmo bíle
pozadí jine než černé - písmo černé

Dá se to napsat jinak?
With Cells(2, 2)
If .Interior.Color = vbBlack Then
.Font.Color = vbWhite
ElseIf Not .Interior.Color = vbBlack Then
.Font.Color = vbBlack
End If
End With
Díky

Zaslat odpověď >

Vovka(16.12.2015 15:14)#028727

Např:
with cells(2,2)
select case .interior.color
case vbblack: .font.color = vbwhite
case else: .font.color = vbblack
end select
end withnebo místo celého toho řádku s ElseIf napsat jenom Elsecitovat