Čau,
dělám si pro usnadnění práce tabulku, do který zaznamenávám dva stavy - ano nebo ne - a potřebuju poradit.
Vyjádření řeším změnou barvy buňky (zelená nebo červená), jenže to dělám přes panel nástrojů (což s sebou obnáší označení buňky, najetí na panel nástrojů, rozkliknutí barvy pozadí a vybrání barvy. To je dost zdlouhavý.
Proto bych chtěl vytvořit tabulku, ve které by buňka měla dva stavy (zelená a červená), mezi kterými by se přepínalo jedním klikem myši: zkrátka na začátku jsou všechny buňky červené. Kliknu na jednu buňku a ta zezelená. Kliknu na ní znovu a ona zpátky zčervená. A tak pořád dokola.
Víte někdo, jak to udělat? Nevím, jak problém pojmenovat, takže jsem zatím nic kloudnýho nenašel.
Nejradši budu, když to bude v Excelu. Když ale nepůjde jinak, udělám to v HTML.
Díky
--- Doplnění předchozího příspěvku (06 Zář 2014 12:18) ---
Nikdo nic?
Excel: změna barvy buňky jedním klikem
- Darth Vader
- Level 3.5
- Příspěvky: 887
- Registrován: září 11
- Pohlaví:
- Stav:
Offline
Excel: změna barvy buňky jedním klikem
„Vždycky než něco udělám, ptám se sám sebe: Udělal by tohle idiot? A když ano, nedělám to.” -Dwight Schrute
__It's time to #switch!__ |
__It's time to #switch!__ |
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel: změna barvy buňky jedním klikem
Ahoj, musí to být jedním kliknutím?
Pokud ne, použila bych ověření dat a podmíněné formátování.
Pokud ano, budeš potřebovat makro.
Pokud ne, použila bych ověření dat a podmíněné formátování.
Pokud ano, budeš potřebovat makro.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
- Darth Vader
- Level 3.5
- Příspěvky: 887
- Registrován: září 11
- Pohlaví:
- Stav:
Offline
Re: Excel: změna barvy buňky jedním klikem
Díky moc. Takže to jde?
S tím ověřením dat by to mělo fungovat na jakym principu?
S tím ověřením dat by to mělo fungovat na jakym principu?
„Vždycky než něco udělám, ptám se sám sebe: Udělal by tohle idiot? A když ano, nedělám to.” -Dwight Schrute
__It's time to #switch!__ |
__It's time to #switch!__ |
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel: změna barvy buňky jedním klikem
Nastavíš si seznam v ověření dat, potom budeš vybírat v buňce možnost 1 nebo 0 a podle toho se podmíněným formátováním může měnit barva buňky.
V příloze je příklad i s tabulkou, když pak přidáš další řádek, tak se automaticky kopíruje formát dál.
V příloze je příklad i s tabulkou, když pak přidáš další řádek, tak se automaticky kopíruje formát dál.
- Přílohy
-
- výběr s podmíněným formátováním.xlsx
- (8.61 KiB) Staženo 165 x
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
-
- Pohlaví:
Re: Excel: změna barvy buňky jedním klikem
Do budoucna vám dám radu - vykašlete se na rozlišení stavu jen podle barvy a říkám to lidem od rána do večera (filtry Excelu 2003 a starší, barvoslepost, černobílá kopírka, ... vysčítávání čistě dle barvy je snad nejblbější a nejčastější úloha vůbec). Ale když už...
Podmíněný formát s testem na jiných buňkách (ta a ta buňka vlevo vyplněna) - OK, i když platí to, co v předchozím odstavci.
Podmíněný formát spolu s ověřením - technicky OK, pracnost o něco menší než běžně, teoreticky by šlo podpořit makrem na otvírání roletky ověření.
Makro samo o sobě také není 100% řešení - lze realizovat jen na událost SelectionChange a změna by spočívala v překliknutí jinam (tj. opětovné klepnutí na buňku ji nezmění).
Podmíněný formát s testem na jiných buňkách (ta a ta buňka vlevo vyplněna) - OK, i když platí to, co v předchozím odstavci.
Podmíněný formát spolu s ověřením - technicky OK, pracnost o něco menší než běžně, teoreticky by šlo podpořit makrem na otvírání roletky ověření.
Makro samo o sobě také není 100% řešení - lze realizovat jen na událost SelectionChange a změna by spočívala v překliknutí jinam (tj. opětovné klepnutí na buňku ji nezmění).
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel: změna barvy buňky jedním klikem
Dvě možnosti jak se tomu přiblížit.
1)
Umístit do modulu listu
2)
Umístit do modulu listu
1)
Umístit do modulu listu
Kód: Vybrat vše
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 6
ElseIf Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = 3
ElseIf Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 6
End If
Range(ActiveCell.Address).Offset(0, 1).Select
End If
End Sub
2)
Umístit do modulu listu
Kód: Vybrat vše
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Worksheet_SelectionChange Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 6
ElseIf Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = 3
ElseIf Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 6
End If
End Sub
-
- Pohlaví:
Re: Excel: změna barvy buňky jedním klikem
cmuch: Jukněte se na konstrukce Select..Case a With...End With
Jinak ten úskok offsetem - no je to takový nepěkná věc no, ale jak jsem psal, ono to vyřešit inteligentně nejde.
Jinak ten úskok offsetem - no je to takový nepěkná věc no, ale jak jsem psal, ono to vyřešit inteligentně nejde.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel: změna barvy buňky jedním klikem
To vím jak se používá, ale mě to přišlo pro toto lepší
Náprava k dvojce
Náprava k dvojce
Kód: Vybrat vše
With Target.Interior
Select Case .ColorIndex
Case xlNone: .ColorIndex = 6
Case 6: .ColorIndex = 3
Case 3: .ColorIndex = 6
End Select
End With
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2091
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 1
- 639
-
od ITCrowd
Zobrazit poslední příspěvek
01 úno 2024 08:20
-
-
Problém s videem (rozsypané barvy) Příloha(y)
od doudinin » 28 srp 2023 17:03 » v Multimédia (filmy, hudba, CDs/DVDs) - 6
- 1942
-
od doudinin
Zobrazit poslední příspěvek
28 srp 2023 20:37
-
-
- 3
- 1551
-
od Alferi
Zobrazit poslední příspěvek
07 říj 2023 22:08
-
- 0
- 1750
-
od DanteJo94
Zobrazit poslední příspěvek
14 srp 2023 10:26
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti