MS Excel

Dobrý den,
prosim, neznate někdo jak v podminenem formatovani nastavit to abych když mam duplicitu ale vice věci se mi kazda oblast duplicity zabarvila jinou barvou?
PŘ:
Sloupec A
Jana
Jana
Petr
Petr
Petr
Petr
Tom
Tom
Atd.a je potřeba aby se jany zbarvili jednou barvou Petrove další, a Tomove taky. Je to možný? Děkuji

Zaslat odpověď >

Strana: 1 2 další »

veny(22.4.2016 12:19)#031204

pokud můžou být zabarveny všechny stejné položky tak stačí naformátovat podle vzorce
A1="Jana"
a určit výplň takhle pro všechna jména

pokud by se měly zabarvit jen duplicity tak je to obdobné a použil jsem sloupec B jako pomocný viz příloha

Příloha: zip

31204_podm_form.zip (8kB, staženo 26x)

citovat

Jana89(22.4.2016 15:51)#031212

Dekuji za napad ale ja tech radku mam desitky nekdy stovky nemuzu kazdou věc zapisovat zvlast.. myslela jsem ze by to slo nejak najednou... ale asi necitovat

veny(22.4.2016 17:10)#031213

na to by bylo asi lepší určit jedinečnost a ošetřit to nějak v kódu
a na to jsou tu jiní experti

citovat

marjankaj(22.4.2016 18:57)#031214

No možno takto. Ale ak tých mien bude priveľa, tak asi nejako makrom. Len tie farby priradiť automaticky asi bude trochu problém.

Příloha: zip

31214_mena.zip (8kB, staženo 25x)

citovat

AL(22.4.2016 22:30)#031216

Na marjankajovo riešenie som sa nepozeral. Cez VBA nejako takto. Vyber si myškou oblasť, v ktorej chceš vyznačiť duplicity (predpokladám, že sa jedná o jeden stĺpec) a spusti kód. Pokiaľ farbičky nevyhovujú, tak spusti kód znovu.Sub ColorDups()
Dim myRng As Range, cell As Range
Set myRng = Selection
myRng.Interior.Pattern = xlNone 'vymaze farby
For Each cell In myRng.Cells
If WorksheetFunction.CountIf(myRng, cell) > 1 Then ' existuju duplicity
If WorksheetFunction.Match(cell, myRng, 0) = cell.Row - myRng.Cells(1, 1).Row + 1 Then 'prvy vyskyt duplicity
cell.Interior.Color = RGB(WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255))
Else: cell.Interior.Color = myRng.Cells(WorksheetFunction.Match(cell, myRng, 0), 1).Interior.Color
End If
End If
Next cell
End SubNejedná sa síce o podmienené formátovanie ale účel by to plniť mohlo. Je tam malá pravdepodobnosť, že sa farby budú opakovať, ale taká situácia nastať môže. Dá sa to ošetriť, ale už sa mi nechce, úlohu som bral ako malú rozcvičku.citovat

AL(22.4.2016 23:13)#031217

Tak som si pohral ešte s tým vytvorením unikátnych farieb, takto by to už malo byť o.k.:Sub ColorDupsModified()
Const j = 50 'pocet farieb - predpokladam max 50 roznych farebnych oddtienov
Dim clrArr(1 To j) as Long, i As Byte, k As Byte, clrVal As Long, clrValOccupied As Boolean, myRng As Range, cell As Range

'vytvorenie unikatnej kolekcie farieb
For k = 1 To j
clrValOccupied = False
clrVal = RGB(WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255))
For i = 1 To k
If clrArr(i) = clrVal Then
clrValOccupied = True
Exit For
End If
Next i
If clrValOccupied = False Then
clrArr(k) = clrVal
Else: k = k - 1
End If
Next k

Set myRng = Selection
myRng.Interior.Pattern = xlNone 'vymaze farby
k = 0
For Each cell In myRng.Cells
If WorksheetFunction.CountIf(myRng, cell) > 1 Then ' existuju duplicity
If WorksheetFunction.Match(cell, myRng, 0) = cell.Row - myRng.Cells(1, 1).Row + 1 Then 'prvy vyskyt duplicity
k = k + 1
cell.Interior.Color = clrArr(k)
Else: cell.Interior.Color = myRng.Cells(WorksheetFunction.Match(cell, myRng, 0), 1).Interior.Color
End If
End If
Next cell
End Subcitovat

AL(22.4.2016 23:45)#031218

@marjankaj: chválimcitovat

Merlin99(23.4.2016 12:57)#031224

Super priklad
kolikrat sem to taky resil dost nesikovne
marjankaj : pekny reseni pouziju
AL: chtel jsme zkusit ty makra ale kdyz vlozim program do listu nic to nedela co delam spatne? pro jakej sloupec to bere ty barvy? DíK MOCcitovat

marjankaj(23.4.2016 13:37)#031226

Merlin99 napsal/a:

Super priklad
kolikrat sem to taky resil dost nesikovne
marjankaj : pekny reseni pouziju
AL: chtel jsme zkusit ty makra ale kdyz vlozim program do listu nic to nedela co delam spatne? pro jakej sloupec to bere ty barvy? DíK MOC

Veď čítaj to poriadne. Vyber myškou oblasť.citovat

Merlin99(23.4.2016 18:37)#031230

Nojo díky jsem nepozornej. Funguje supercitovat

Strana: 1 2 další »

Téma: Podmíněné formátování Duplicita

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje