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?
Excel - KDYŽ "má buňka výplň"...
-
- Level 2
- Příspěvky: 158
- Registrován: srpen 07
- Pohlaví:
- Stav:
Offline
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - KDYŽ "má buňka výplň"...
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.
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
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 16
- 6244
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 6
- 1630
-
od zeus
Zobrazit poslední příspěvek
včera, 17:22
-
-
- 1
- 379
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 1971
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 5
- 2510
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů