Priložený súbor obsahuje makro s týmto kódom:
Sub Vyfarbenie()
Adresa = Array("A3", "B5", "C1")
For i = 0 To UBound(Adresa)
Range(Adresa(i)).Interior.ColorIndex = 3
Next i
End Sub
Uvedený príklad Ti vyfarbí Bunky A3, B5, C1 červeným podkladom spustením makra "Vyfarbenie"Teraz je otázka, ako dostať zoznam z Wordu do formy Array("A3", "B5", "C1")
Ani to nie je problém. Ak poskytneš zoznam všetkých buniek, tak Ti to do tej formy hodím. Prípadne si to v kóde prepíš sám ale pozor na preklepy!
Kód je prístupný v editore VBA cez kartu Vývojár