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

Příspěvky uživatele

Function RSearch(str As String, find As String)
RSearch = InStrRev(str, find)
End Function

Function TSK()
TSK = Application.ActivePrinter
End Function

Function Tiskarna()
Tiskarna = (Right(TSK(), Len(TSK()) - RSearch(TSK, "\")))
End Function

Samozřejmě lze sloučit do jediné funkce

Já bych to viděl na to, že "ubyly" dva listy na začátku (i kdyby byly jen přesunuty). Tím se vše posunulo.

Asi problém vyšší verze. Moje odladěno na E2007.
(RAR neotevřu, zatím nevím proč.)

Když už jsem to ráno přislíbil - v příloze.
Je to v rychlosti, programátoři se můžou na úpravě kódu vyřádit

Večer se na to podívám.
Bude se muset asi zadat "natvrdo" v makru.

Jak se to má chovat v případě rozdělení (např.E4..G4)

myslel jsem další komentář:
"marjankaj DĚKUJI za nápad nicmene mi to nefunguje, ale koukam ze stejne vyuzivast pomocny sloupec E. Potreboval bych to bez pomocneho sloupce poze z dat ve sloupci H."

souhlasím.
Navíc ještě k prvnímu příspěvku uvedl, že by chtěl bez pomocného sloupce E, ale dále to neřešil - vlastně od té doby nereagoval.
Takže bude asi nejlepší počkat na reakci.

Tak to už jsem se ztratil.
Šlo by nahrát PrintScreen (jako uvedl Imh0tep) před a po akci - co se očekává?

Tak jak je od začátku nastaveno
Podmíněné formátování se zobrazí pouze pokud není buňka prázdná!!!
Pokud je požadavek text v první buňce, ostatní prázdné a formát ve všech, pak asi pouze makrem natvrdo barvu pozadí. /Orámování jsem se nevěnoval./

Tohle by mohlo vyhovovat.

Problém je, že podmíněné formátování testuje, zda je buňka prázdná.
Po rozdělení má text jen první buňka, ostatní jsou prázdné a proto bez zvýraznění.

Doplnit např.
Selection.UnMerge
hodnota = Selection(1).Value
For i = 2 To Selection.Count
Selection(i).Value = hodnota
Next

Bez pomocného sloupce/řádku či buněk jen megavzorcem.
V E2007 je dlouhý, ve vyšší verzi je kratší, ale nemám možnost odladit.
V příloze jednotlivé kroky.

(Poslední řádek - odstranění mezer zprava je z internetu od elninoslov)

v UDF vrací i delší řetězec
nepočítá při testu s mezerou mezi položkami

Else
tmpLen = tmpLen + Len(Cell) + 1

A do funkce 3.parametr .. délka+1 tj 51

Function FileExists(full_path As String)

full_path - obsahuje skutečně celou cestu s úplným názvem souboru?

For Each Cell In Rng

fileName = Cell & "*"
file = Dir(fileName)

If file = "" Then
Cell.Font.Color = vbRed
Else
Cell.Font.Color = vbGreen
End If
Next Cell

=KDYŽ(COUNTIF(F6:J6;"YES")=0;"C";KDYŽ(NEBO(F6="YES";H6="YES");"A";"B"))

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse