Jde to i bez cyklu:
Sub Vyfarbenie2()
Adresa = Array("A3", "B5", "C1")
Range(Join(Adresa, ",")).Interior.ColorIndex = 3
End Sub
Jde to i bez cyklu:
Sub Vyfarbenie2()
Adresa = Array("A3", "B5", "C1")
Range(Join(Adresa, ",")).Interior.ColorIndex = 3
End Sub