počet řádků je ruzný a poslední řádek(řádky) je jiný...
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Barva záložky
MS Excel
Téma: Barva záložky 
Zaslal/a GeorgeK 5.4.2017 12:50
Dobrý den
rád bych si ulehčil práci :-)
Dle splnění podmínky v listu se mi zabarvi jeho název (ouško).
Vysvětleno v příloze.
Děkuji
Příloha: 
35934_barva_zalozky.xlsx (13kB, staženo 49x)
35934_barva_zalozky.xlsx (13kB, staženo 49x)Inak povedané, nie je možné spoľahlivo určiť, v ktorom liste sa bude skúmať aká oblasť. Ak by ste mal tie oblasti vždy rovnaké, tak napr.:
Sub Kontrola()
Dim SH As Worksheet, Polozka As Range, Pocet As Byte
For Each SH In Worksheets
With SH
Pocet = 0
For Each Polozka In .Cells(2, 2).Resize(13, 1).Cells
Pocet = Pocet + ((Not IsEmpty(Polozka.Offset(0, 1).MergeArea.Cells(1))) And 1)
Next Polozka
Select Case Pocet
Case 13: .Tab.Color = vbGreen
Case 12: .Tab.Color = vbYellow
Case Else: .Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next SH
Set Polozka = Nothing: Set SH = Nothing
End Sub
Ak tie oblasti rovnaké nemáte, dodajte, čo je smerodajné, pre určenie počtu riadkov. Napr. prvý vzorec v niektorom stĺpci ? Alebo niekde v liste je počet položiek ? ...
Sub Kontrola()
Dim SH As Worksheet, Polozka As Range, Pocet As Byte
For Each SH In Worksheets
With SH
Pocet = 0
For Each Polozka In .Cells(2, 2).Resize(13, 1).Cells
Pocet = Pocet + ((Not IsEmpty(Polozka.Offset(0, 1).MergeArea.Cells(1))) And 1)
Next Polozka
Select Case Pocet
Case 13: .Tab.Color = vbGreen
Case 12: .Tab.Color = vbYellow
Case Else: .Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next SH
Set Polozka = Nothing: Set SH = Nothing
End Sub
Ak tie oblasti rovnaké nemáte, dodajte, čo je smerodajné, pre určenie počtu riadkov. Napr. prvý vzorec v niektorom stĺpci ? Alebo niekde v liste je počet položiek ? ...
díky za reakci, těch řádků nikdy nebude moc. Jednodušší bude je na začátku zadat někam do proměnné (nějaká vyčleněná buNka. bude to vždy stejný sloupec "C". Problém /asi/ budou sloučené buňky..?
Ahoj, trochu sem upravil elninoslovuv kód. Na každém listě se zjišťuje poslední vyplněný řádek ve sloupci B a podle toho se nastavuje kontrolovaná oblast.
Vyzkoušej.
Vyzkoušej.
Příloha: 
35948_barva_zalozky.zip (18kB, staženo 35x)
35948_barva_zalozky.zip (18kB, staženo 35x)To stalker:
Nefunguje. Jak je napsáno v sešitě
pokud je vše v řádku 2-14 (sl.c) splněno bude barva záložky zelená
Nezajímá mě jiný sloupec a nezajímají mne všechny řádky. několik posledních řádků je nedůležitých. Na první záložce zjišťuji pouze řádky 2-14 (tam kde je datum nebo "datum". V buňce např. G1 budu mít poznamenáno že poslední "zajimavý" řádek je 14 a z toho vycházet.
Nefunguje. Jak je napsáno v sešitě
pokud je vše v řádku 2-14 (sl.c) splněno bude barva záložky zelená
Nezajímá mě jiný sloupec a nezajímají mne všechny řádky. několik posledních řádků je nedůležitých. Na první záložce zjišťuji pouze řádky 2-14 (tam kde je datum nebo "datum". V buňce např. G1 budu mít poznamenáno že poslední "zajimavý" řádek je 14 a z toho vycházet.
Predpokladajme, že za splnené pokladáme ak je v stĺpci "splněno" napísané čokoľvek - teda bunka nieje prázdna. Lebo inak, ak by tam mohli byť aj iné texty popísané, ale neznamenali by, že je splnené, tak by zisťovania neznámeho dátumu v neznámom počte ks, neznámeho formátu, neznámo čím oddelených medzi neznámym iným textom, bolo takmer nemožné.
Příloha: 35959_barva_zalozky.zip (17kB, staženo 33x)
35959_barva_zalozky.zip (17kB, staženo 33x)ano, pokud je ve sloupci "splněno" napsáno cokoliv (vetšinou datum) je splněno. Ale elninoslov, nefunguje to. Pokud smažu v List1 datum ve sloučené C3(4,5) mám tedy 1 nesplněný úkol = žlutá záložka. Ale ted je šedá.. :-(
Pokud by tam nebyly sloučené buňky asi bych to zvládnul.. (Not IsEmty A1 * Not IsEmty A2*Not IsEmty A2) se musí rovna 1 a pak je to OK. //ideový navrh :-) //
ALE ty sloučené...
ALE ty sloučené...
Ahá, no jasné už viem. Keď niekedy poobede prídem, tak Vám na to mrknem.
Jednoduchší variant, počíta rozdiel medzi vyplnenými bunkami "por číslo" a "splněno".
Příloha: 35965_barva_zalozky.zip (17kB, staženo 45x)
35965_barva_zalozky.zip (17kB, staženo 45x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články