Příspěvky uživatele

1.) Nejsou tam žádná data v zadaném rozmezí.
2.) Změnila se struktura zdrojových dat. Podívej se na formátování buněk, zda je formátováno jako datum.

Případně vlož přílohu.
P.

Nahrál jsi soubor bez maker (xlsx).
P.

1.) Vlož přílohu s daty.
2.) Popiš základní postup, jak bys počítal na papíře.
P.

Tak určitě to jde, v Excelu jde skoro všechno.
Řešení mě napadá, odměně bych se nebránil ;-). Napiš, jak bys ocenil...
P.

Například nějak takto:
Sub Tisknout_list()

Application.ScreenUpdating = False

Sheets("List1").Range("$C$12:$C$38").AutoFilter Field:=1, Criteria1:="<>"
Sheets("List1").PrintOut
Sheets("List1").Range("$C$12").AutoFilter

Application.ScreenUpdating = True

End SubP.

Moje řešení ;-).
P.

Př.:
=SUMA(NEPŘÍMÝ.ODKAZ(ODKAZ(1;SLOUPEC()-1;4;1;)&":"&ODKAZ(ŘÁDEK();SLOUPEC()-1;4;1;)))

Vyzkoušej událost sešitu BeforePrint, ukládá se do ThisWorkbook.
P.

Př.:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Sheets("List1").Range("$C$12:$C$38").AutoFilter Field:=1, Criteria1:="<>"

End Sub

Máš tam napevno dané "A1", takže tak jak děláš tu druhou část odkazu, tak udělej i tu první, a máš hotovo.
P.

Nabízím další možné řešení.
Udělej si vedle současné tabulky tabulku jinou (se stejným rozložením), přičemž si zde natáhni ten vzorec, který máš v podmíněném formátování. Budeš tak mít vlastně kompletní matici PRAVDA x NEPRAVDA pro všechny buňky tabulky. No a potom už stačí jenom ta správná podmínka ve funkci KDYŽ.
P.

Př.:
=KDYŽ(COUNTIFS(AI13:BM37;PRAVDA)>0;"Konflikt směn";"")

Je to tvůj domácí úkol, takže nechci poslat řešení přímo ;-). Pouze nasměruji k jednomu možnému řešení přes klasické excelové funkce (pojmenovaná oblast v mém řešení potřeba není).

Zamysli se nad kombinací těchto funkcí:
SUMA, NEPŘÍMÝ.ODKAZ, ODKAZ, SLOUPEC, ŘÁDEK.
P.

Přidej si do jednoho z oněch grafů další řadu.

Postup:
1.) Kliknout na graf.
2.) Karta Návrh / Vybrat data
3.) Tlačítko Přidat
P.

@marficek119: Radši to vysvětlím za tebe :-D. Jak jsem psal, podmíněné formátování = formátování (ohraničení, výplň apod.), tedy nikoliv zobrazování textu. Proto je tam nutné využít klasické vzorce.

@eLCHa: Zadání je výše. Pokud ho dobře chápu, tak chce, aby pokud bude v daném řádku (nebo oblasti, to nepíše) splněna alespoň jedna podmínka, kterou jsi na začátku vlákna definoval, se vypsala ona chybová hláška do buňky.

P.

Ano, přesně tak. Je to ColorIndex.
P.

Odkaz:
http://www.excelsupersite.com/wp-content/uploads/2016/08/colorindex.png

Nenapadá mě žádná "jednoduchá" podmínka, takže nabízím řešení s vlastní funkcí, která bude již pracovat s výsledkem podmíněného formátování (s barvou buňky) - první parametr je oblast buněk, druhý parametr je ColorIndex (číslo barvy). Funkce bude vracet hodnotu PRAVDA, pokud nalezne alespoň jednu buňku v dané oblasti s požadovanou barvou.

Vlastní funkce (vložit do Modulu):
Function Test_barvy_v_oblasti(oblast As Range, cislo_barvy As Integer) As Boolean
Dim bunka As Range

Test_barvy_v_oblasti = False

For Each bunka In oblast
If Cells(bunka.Row, bunka.Column).Interior.ColorIndex = cislo_barvy Then
Test_barvy_v_oblasti = True
Exit Function
End If
Next bunka

End Function
Ukázka funkce v sešitu (pro červenou barvu = 3):
=Test_barvy_v_oblasti(D13:AH13;3)
Jako podmínka ve zmiňované funkci KDYŽ:
=KDYŽ(Test_barvy_v_oblasti(D13:AH13;3);"Konflikt směn";"")
Jenom je třeba upozornit na to, že funkce je závislá na přepočtu listu, který se ovšem nespouští při pouhé změně barvy buňky. V tvém případě se ale bude měnit i obsah buňky, takže by mělo fungovat správně.
P.

To už není o podmíněném formátování. K tomuto lze využít funkci KDYŽ.
P.

Př.:
=KDYŽ("podminka";"Konflikt směn";"")

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje