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

Příspěvky uživatele

Když je elninoslov mimo zkusím to.
Sub SkutecnyDluh()

Dim POLE_X
Dim POLE_V
Dim POLE_P
Dim i As Long

POLE_X = Range("X3:X2000").Value
POLE_V = Range("V3:V2000").Value
POLE_P = Range("P3:P2000").Value

For i = LBound(POLE_X) To UBound(POLE_X)
If POLE_X(i, 1) = "*" Then
POLE_V(i, 1) = POLE_P(i, 1)
End If
Next
Cells(3, 22).Resize(UBound(POLE_V)).Value = POLE_V
End Sub

Např:takto
Ps: bacha na Criteria1 vs Criterial (1 vs L)

Pracoval sem z listem "CETR IN". Popravdě se mi moc nechtělo studovat vzorce ve sloupcích D, J a P tak sem jen upravil tak, aby pokud není vyplněn "Realný příjezd" nevracel hodnotu -42.... . Jelikož jsou sloupce D, J, P textové není možné počítat průměr, proto jsou použity vedlejší sloupce, kde je text převeden na číslo. Podle tohoto sloupce se počítá průměr a slouží i pro podmíněné formátování.

Opět matice
=SUMA(KDYŽ(HODNOTA(A6:A16)<=$E$4*(C6:C16=$F$4);B6:B16))

Maticově
=SUMA(KDYŽ(HODNOTA(A6:A16)<=3;B6:B16))

Vyzkoušej.

Edit: List s číslem v G1=999 musí být opravdu poslední. Pokud by byl na jiném místě, makro se předčasně ukončí a všechny listy, které by byli za ním budou z obarvení vyloučeny.

Něco sem zkusil, a i když to již elninoslov vyřešil dám to sem. Chvilku sem to testoval a vypadá to funkční.

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.

Ale funguje. Kurzor na buňku E1, stiskni klávesu F2 a Enter

Měl si pravdu, je to omezení E2007. Pokud soubor otevřu v E2010 je vše v pořádku.
Když se pokusím v E2007 chybějící vzorce do podmíněného formátování doplnit dostanu hlášku viz obr.

V souboru, na který se odkazuješ jsou pouze dva vzorce v podmíněném formátování viz obr.

Koukni do souboru.

Ukončení zápisu vzorce se neprovádí pouhým zadáním ENTER, ale trojkombinací CTRL+SHIFT+ENTER.

Zadáno maticově? Pokud ano, vlož přílohu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje