Excel - KDYŽ "má buňka výplň"...

[Ghostwriter]

Ahoj, řeším teď problém s obarvením buněk a za boha na to nemohu přijít. Používám Excel 1997
Btw "výplni" říkám obarvení/pozadí buňky - nikoliv zda jsou v buňce vyplněna data - jen pro pořádek.
Mám buňky A1-A6. Tyto buňky jsou standardně bez výplně.
Chci nastavit funkci - pokud všechny buňky A1-A6 budou vyplněny buď konkrétní barvou nebo jakoukoliv barvou (to je fuk, co je jednodušší), potom se obarví (vyplní) buňka B1 konkrétní barvou.
Buňky A1-A6 vybarvuje uživatel ručně - pokud je jedna z nich nevybarvená, B1 zůstane taky nevybarvená, snad je to jasné.
Dalo by se to obejít a spočítat zda mají buňky A1-A6 výplň, vyhodit do pomocné buňky součet a pokud souhlasí, podmínečně formátovat B1.
Ale fakt nevim jak sečíst výplně buněk.. Nemáte někdo nápad?

[Reklama]

[cmuch]

Ahoj,
snad jedině pomocí makra hlídat zda buňky nemají výplň a podle toho obarvovat B1.
Bohužel změna se projeví vždy po překliknutí na jinou buňku.

Toto makro vlož do modulu příslušného listu (Alt+F11)

Nevím zda to půjde pod Ex97.

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With ActiveSheet
   If (.Range("A1").Interior.Pattern = xlNone) And _
      (.Range("A2").Interior.Pattern = xlNone) And _
      (.Range("A3").Interior.Pattern = xlNone) And _
      (.Range("A4").Interior.Pattern = xlNone) And _
      (.Range("A5").Interior.Pattern = xlNone) And _
      (.Range("A6").Interior.Pattern = xlNone) _
   Then
    .Range("B1").Interior.ColorIndex = 5
   Else
    .Range("B1").Interior.Pattern = xlNone
   End If
 End With
End Sub