Excel 2010 - Barva buňek podle hodnoty - Makro

Ahoj,

potřeboval bych v Excelu za pomoci Makra nastavit barvu buněk.

Konkrétně když obsahuje buňka hodnutu 1 , aby měla nějakou barvu.

Mám 4 sloupečky, začínající někde v části excelu a potřebuji jejich buňky obarvovat.

Nesmím ale použít podmíněné formátování.
(Nebudu se rozepisovat, proč).

Dokáže mi s tím pomoci nějaká dobrá duše přes makro?

Předmět	Autor	Datum
http://www.excel-easy.com/vba/examples/background- colors.html touchwood 27.02.2015 12:47	touchwood	27.02.2015 12:47
Něco jako tohle: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Bunka As Range Di… poslední Siki83 27.02.2015 16:20	Siki83	27.02.2015 16:20

http://www.excel-easy.com/vba/examples/background- colors.html

Něco jako tohle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bunka As Range
Dim Oblast As Range
Set Oblast = Range("A1:B10")
 For Each Bunka In Oblast
    If Bunka.Value = 1 Then
        Bunka.Interior.ColorIndex = 4
    Else
        Bunka.Interior.ColorIndex = xlNone
    End If
 Next Bunka
End Sub

Rozsah buněk si nastav podle svého.

Zpět do poradny Odpovědět na původní otázku Nahoru