Příspěvky uživatele
< návrat zpět
Zkus toto
Sub Zamykani()
Dim bunka As Range
Dim oblast As Range
Set oblast = Range("A1:B2")
ActiveSheet.Unprotect Password:="000"
oblast.Locked = True
For Each bunka In oblast
If bunka.DisplayFormat.Interior.Color = RGB(51, 204, 51) Then bunka.Locked = False
Next bunka
ActiveSheet.Protect Password:="000"
End Sub
Ke kódu Pearsona - tohle bylo psáno pro 2003 a asi starší. Od verze 2007 to funguje jen náhodou, i když pominu problémy s lokální syntaxí vzorců.
Ten odkaz nikdy moc nefungoval
(Formula v podmíněném formátu je lokální - nutno převést, aktivních podmínek může být více + skládání výsledného vzhledu, ..., už si nevzpomínám co ještě)
Zkus vlastnost DisplayFormat
(nelze ji použít ve funkci)
Například si všimni, jak se jmenuje list, který skrýváš.
Opravdu je to Harok?
Přečti si znova na co jsi se ptal.
Pokud je poslední upřesnění opravdu to co potřebuješ. tak si na to napiš vzorec.
Vzorec (v C2)
=KDYŽ(A(C$3<0;B$4>0;POČET2(D$3:$Z$3)=0);$A$2;"")
Dělá zhruba totéž co Hav-Ranovo.
Pokud by se měly testovat jen čísla, stačí funkce POČET.
Funkce COUNTBLANK nepočítá prázdné buňky, ale buňky jejichž hodnota = ""
tj. prázdné, ale i např. se vzorcem =když(něco;"";"").
Něco jsem zkoušel, nevím jestli to najdu.
Mělo by být ale možné nadefinovat kopii tiskárny s předdefinovaným oboustranným tiskem. Volba tisku by pak znamenala volbu tiskárny.
@marjankaj
Na pozici účetního bych Vás tedy s logárkem nebral. 
@vovka.h
S typem currency to nešlo?
Vybrat, záložka domů, skupina úpravy, nástroj vyplnit (malá šipka dolů), řady...
=SUMA(List1:List12!G20)
Vzorec nebere listy podle jména, ale podle pozice, tj sečte všechny listy mezi List1 a List12, včetně uvedených.
To, že tazatelé dávají stejné dotazy na různá fóra je běžné, ale sprostota tohoto tazatele je výjimečná.
Pokud je jeho kontakt správný, tak se divím, že tak "jednoduchý" dotaz psal na více fór a nezeptal se "doma".
@vovka.h
Pomocné sloupce nejsou tabu, někdy jsou výhodné. Záleží na konkrétní úloze.
V tomto konkrétním případě pomocný sloupec nahrazuje normální funkci kontingenční tabulky.
Kde je hranice, kdy je jeden vzorec už nesrozumitelný?
Pokud použiji extrémní příklad, tak pro někoho je možná vzorec
=(A1+B1)*C1
extrémně složitý a rozložil by to do snadnějších operací
D1: =A1 + B1
E1: D1*C1
Podle mne, kromě vlastní úlohy, hraje roli i schopnost autora a požadavky a schopnosti uživatele.
Odborník má obvykle větší volnost při volbě řešení.
AL napsal/a:
StrComp nie je stopercentný, ale ani triedenie na liste nefunguje vždy korektne. Príklady, kedy to nezafunguje presne ani v jednom z uvedených prípadov, sú napr. dvojice slov:
môj - mojmír
můj - muller
Excel dodržuje doporučení pro abecední třídění (pokud mi to nesedlo, zpravidla jsem něco přehlédl):
http://prirucka.ujc.cas.cz/?id=900
Totéž řeší ČSN 97 6030 (nevím jestli je poslední)
Uvedené příklady odpovídají tomuto doporučení:
? strcomp("môj", "mojmír", vbBinaryCompare)
1
? strcomp("môj", "mojmír", vbTextCompare)
-1
? strcomp("můj", "muller", vbBinaryCompare)
1
? strcomp("můj", "muller", vbTextCompare)
-1
Pokud jsou slova stejná, nastoupí řazení podle diakritiky:
? strcomp("muj", "můj", vbTextCompare)
-1
Problémem může být konvence o velkých znacích:
? strcomp("muller", "Muller", vbTextCompare)
0
? strcomp("muller", "Muller", vbBinaryCompare)
1
Tj. při shodě můžeme pořadí upřesnit binárně nebo jinak.
AL napsal/a:
neporadí si to pravdepodobne vždy ani s dvojicou znakov c a h, napr v slove viachlavý sa nejedná o ch, ale o c a h..
Toto ale vyžaduje slovník. Slovenský excel nemám, v češtině mne slovo s c-h nenapadlo.
Předpokládám, že i slovenština má podobné doporučení. Výsledek ale závisí na jazyce.
Ve vba: format(now,"mmmm")
belko napsal/a:
Keď použijem KJ aj tak tam treba pomocný stĺpec B.
Do KT dejte datum (sloupec A) a v KT použijte seskupování podle měsíců.
=IF(B2>C2;MIN(B2-C2;D2);0)
nebo
=MAX(MIN(B2-C2;D2);0)
Uživatelské menu
\nFormulář 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