• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Farebné (grafické) zvýraznenie buniek

Zaslal/a vbnk 23.9.2013 18:15

Prosím o pomoc (pre Excel 2007 a vyššie):

1.) Potreboval by som farebne zvýrazniť v priloženej tabuľke v časti "Grafické rozdelenie úloh" jednotlivé mená podľa farby zo stĺpca "B" (farby môžu byť aj automaticky generované), t.j. podfarbiť tou istou farbou to isté meno - hneď ako meno zapíšem, aby sa dané políčko rovnako podfarbilo (tak ako je to ukázané na vzorke s menom "Karlík C.";
Tých mien bude max. 150.

2.) V časti "Počet pridelených úloh" by som potreboval základnú štatistiku... a hneď ako meno zapíšem, aby sa to aj prejavilo v štatistike...

Vopred ďakujem za pomoc!

Příloha: 15389_ulohy_2013.zip (10kB, staženo 28x)

Zaslat odpověď >

---

Strana:  1 2   další »

cmuch(23.9.2013 18:45)#015391

ad1 )
Použij makro (třeba),
vlož do modulu listu.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRowName As Byte
Dim cell As Range
Dim FindName As Range

LastRowName = Cells(Rows.Count, "B").End(xlUp).Row

For Each cell In Range("P6:AA" & LastRowName)

If IsEmpty(cell) Then
GoTo dalsi
End If

Set FindName = Range("B6:B" & LastRowName).Find(What:=cell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

cell.Interior.Color = FindName.Interior.Color

dalsi:
Next
End Sub
ad 2)
použij fci Countifcitovat

Opičák(23.9.2013 20:48)#015396

Zde trochu jiné řešení, pouze krátké makro a pdmíněný formát, zbytek fcí excelu.
Proč ?
Je to jen můj názor (takto bych to řešil já), ale při použití 150 řádků bude celá stránka barevná jak selská truhla a barvy budou v podstatě velmi podobné a tudíž stejně nepřehledné. Tady najedeš kurzorem na řádek se jménem, či úkolem a v tabulce se zvýrazní konkretní jméno.

Příloha: 15396_ulohy_2013-pf.zip (15kB, staženo 28x)

citovat

Opičák(23.9.2013 20:53)#015397

takto možná přehlednější

Příloha: 15397_ulohy_2013-pf2.zip (15kB, staženo 27x)

citovat

vbnk(23.9.2013 20:56)#015398

Na upresnenie:
Tých 150 mien je predpokladané maximum, v priemere to bude počet cca 40-50 mien.citovat

vbnk(23.9.2013 21:15)#015399

Funguje to takmer perfektne! Testujem, prispôsobujem si to... Avšak - maličká chybička: Keď pridám meno alebo nie je zapísané meno totožné presne s menom v stĺpci "B", vypíše mi ERROR (viď obr.).

Příloha: 15399_chyba1.jpg (13kB, staženo 31x)

citovat

Opičák(23.9.2013 21:18)#015400

plus výpočty úloh

i tak si myslím, že odlišit 40 barev pouhým pohledem muže být matoucí. Pokud by se jednalo o 5 barev, tak snad, ale jak jsem psal, rozhodnutí je na tobě.
Vyčkej, jistě se objeví další náměty a nápady.

Příloha: 15400_ulohy_2013-pf3.zip (17kB, staženo 26x)

citovat

cmuch(24.9.2013 6:21)#015402

Tady je oprava.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRowName As Byte
Dim cell As Range
Dim FindName As Range

LastRowName = Cells(Rows.Count, "B").End(xlUp).Row

For Each cell In Range("P6:AA" & LastRowName)

If Not IsEmpty(cell) Then

Set FindName = Range("B6:B" & LastRowName).Find(What:=cell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

On Error Resume Next
cell.Interior.Color = FindName.Interior.Color
On Error GoTo 0

End If
Next
End Sub


Jinak bych na to zadávání jmen použil seznam (data - ověření dat - seznam)citovat

vbnk(24.9.2013 14:53)#015414

Na hárku2 som podmienil výbery mena iba zo zoznamu..., prosím, otestuje niekto vyššie uvedený kód VBA (či to funguje ako by malo) - mne sa vypisuje chyba č. 91.

Poprosil by som ešte na hárku1 - ak by sa dalo v časti "Grafické rozdelenie úloh" urobiť ešte to, aby ak sa postavím na niektoré meno (ak vyberiem konkrétne políčko s menom), aby toto meno sa vyfarbilo v celom poli (P6:AA23) - aby ho bolo vizuálne vidno, kde všade sa nachádza (stačila by aj jedna spoločná farba pre takýto výber) ... a v hornej časti aby mi vypísalo, koľko je takto vyfarbených políčok.
Vopred vďaka za pomoc! (Ďakujem!)

Příloha: 15414_ul_2013.zip (17kB, staženo 26x)

citovat

Opičák(24.9.2013 17:10)#015417

Poprosil by som ešte na hárku1 - ak by sa dalo v časti "Grafické rozdelenie úloh" urobiť ešte to, aby ak sa postavím na niektoré meno (ak vyberiem konkrétne políčko s menom), aby toto meno sa vyfarbilo v celom poli (P6:AA23)

toto máte hotové v mém posledním příspěvku.

....v horní části aby vypísalo v příloze

Příloha: 15417_ulohy_2013-pf4.zip (17kB, staženo 28x)

citovat

cmuch(24.9.2013 18:49)#015420

Mě to žádnou chybu nevyhazuje když ten kod vlozim do modulu harku2.
Do přílohy jste ten kod nedal, takze nevim.

Ted zalezi na Vas co vlastne od toho chcete.
Bud tim Opicakovzm resenim nebo mym a nebo to chcete zkombinovat?
Ptate se na obe reseni.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse