Příspěvky uživatele

Nedostatky z bodu 1 a 2 byly opraveny.
Co se týče sloupce, tak nestačí změnít pouze .range("H:H"), tato metoda vrací pouze počet neprzádných buněk v tomto sloupci, je třeba také v kodu změnit podmínky, kde se objevuje: Cells(radek, 1)

Cells(radek, sloupec) je odkaz na buňku na příslušném řádku a sloupci. U tebe by jsi musel tedy změnit .Range("H:H") a potom Cells(radek, 8)

Ještě jednou ten samý soubor, pouze je VBA kód doplněn o komentáře, kde popisuju co kod dělá. Snad to pomůže pro pochopení.

Ah, safra... nějaká chyba v uložení sešitu. Teď už by to snad mělo být ok

Nepodařilo se mi vyvolat chybu, kterou popisuješ. Time Picker mi vždy zůstane stejně velký i na stejném místě sešitu. Jestli to dobře chápu, tak někdy, když znovu otevřeš sešit, tak se ti změni velikost a pozice?
Pokud ano, tak podobný problém jsem řešil a stále řeším, zatím však bez úspěchu. Mám obdobný problém s grafama. Jednou za čas, při spuštění sešitu, se grafy zvětší/zmenší a o určitou délku se posunou. Je to velmi nepříjemné, ale zatím jsem nepřišel na to, proč se tak děje

Ahoj, snad bude řešení dostačující

Jasně... Tuto věc jsem jíž jednou řešil, nechal jsem nad tím několik týdnú pátrání, pár stovek za chytré knížky a nedopátral jsem se ničeho.

Excel jako takový není určen pro programování a práci na síti. Pro práci, kdy uživatelé doplňují nějaké údaje a ty se hned někde aktualizují jsou jiné nástroje, které jsou schopny pracovat na pozadí s vlákny a tyto změny si mohou ohlídat. Excel tuto možnost nemá, nebo aspoň jsem jí nenašel, ani o ní nikdo nevěděl nebo nepsal.

Stál tu však úkol jak to vyřešit v zaměstání. Udělal jsem to, že pro každého uživatele jsem vytvořil jeho samostatnou tabulku. Do této tabulku zapisuje každý své data a navzájem si nepřekáží. Pak je vytvořená jedna tabulka, která stahuje data z těchto x tabulek a vytváří jeden seznam s kterým jednou za čas potřebuju pracovat a vytvářet nějaký výstupy.

Nevím, zda u tvého problému je možné podobné řešení, ale nic lepšího jsem na excelu nevymyslel

V práci máme taky spoustu kolegů a tyto problémy naštěstí zmizely, když se zavedla síť a sešit leží stále na stejném místě a kdo chce má na něj přístup.

K tvému problému mě nic nenapadá. Nesetkal jsem se s tím, že by to jednou fungovalo a jednou ne. Jediný problém, které mě asi tak v rychlosti napadá je jak jsi napsal: Zakázaná všechny makra (třeba po nějaké aktualizaci), zda jsou všechny excely kompatibilní a poslední možnost je ta, že při ukládání excel nabízí několik formátů jak soubor uložit. Nemohlo se stát, že se kolega spletl a třeba uložil sešit bez podpory maker, nebo nějaký jiný "pofidérní" formát?

Vůbec bych nechtěl podceňovat tvé kolegy, chraň bůh, ale občas se to může stát

Přeci jenom jsme lidi a i mistr tesař se někdy splete

Ahoj,
můžeš lépe popsat konflikt, ke kterému dochází?

*.rar si v kanclu neotevřu, ale z chyby to vypadá, že jsi zapoměl něco nadefinovat. Pokud máš nový excel 2007, tak ten už nenahrazuje nedefinované proměné typem variant, ale hlásí právě tuto chybu. Jukni, zda ti někde nechybí nějaké definice proměné nebo objektu.

Ach tááák, takže return ve VBA není, ale dělá se to pomocí funkce.
Vynikajíc Poki, opět děkuji

Což do proměné, nerad bych vytvářel globální proměnou jenom kvůli také krávovině. Jen jsem chtěl, zda VBA má možnost, jak z procedůry navrátít nějakou hodnotu. Ať už typu Boolean, integer nebo jakou koliv proměnou.
Jestli ale ani Poki neví, tak to vypadá, že to bude Excelu chybět

Jako příklad je procedůra s heslem. Vytvořím si procedůru s parametre string a je to..

Sub ZkouskaHesla (password as string)
if password = "mojeheslo" then
return true
else
return false
end if
end sub

Kde koliv když potřebuju vstup ověřit heslem můžu volat tuto procedur jako například:

...
If ZkouskaHesla(vstupoduzivatele) = true then
...

U hesla je to jednoduché, ale mám tu trochu větši procedůru, kterou se mi nechce vkládat na několik míst kódu. Rád bych jenom jednu s tím, že jí budo volat a potřebuju jenom, aby mi nějakou hodnotu vrátila.

Ahoj,
nějak se nemůžu dopátrat toho, jak se ve VBA zapisuje return hodnoty v procedůře. Jestli to teda VBA vůbec umí. VB.net má klasickou funkci return proměné v procedůře.
Př:

If O = 1 then
return False
Else
return true
End if

Tento zápis je použitelný u VB.net, ale Excel mi to nějak nebere. Je tam na to ve VBA jiný trik, nebo to vůbec neumí?

Nakonec se mi to povedlo vyřešit.
Pro odemknutí jsem však musel použít formu:
ActiveSheet.unprotect password = "mojeheslo"

Stejně tak pro uzamčení.
Když si dám makro:
ActiveSheet.protect ("mojeheslo")
Druhé napíšu jako:
ActiveSheet.unprotect password = "mojeheslo"
Tak mi metoda vrátí error, že je chybně napsané heslo.
Nevím proč, ale nějak mi to tady válčí.

Zdravím všechn,
právě tu řeším problém s umazknutí a odemknutí listu. Zjistil jsem totiž, že fungují dvě cesty, jak toho docílit.
1. ActiveSheet.protect password:= "mojeheslo"
ActiveSheet.Unprotect password:= "mojehslo"

Ta druhá je velmi podobná, jen má jinou formu zadání hesla:

2. ActiveSheet.Protect ("mojeheslo")
ActiveSheet.Unprotect ("mojeheslo")

Nevím proč, ale nějak jsem se do toho zamotal. Ikdyž všude používám stejné heslo, najednou mi to heslo nebere. V počátcích jsem měl problém s tím, že jsem jednou použíl formu pro odemknutí 1 a někdy 2 a stejně tak i při zamnkutí.
Usoudil jsem, že by to mohl být problém a tak jsem všude předělal hesla na jednu formu, ale excel stále hlasí chybné heslo. Jsem si naprosto jist, že jsem jiné heslo nepoužil a stejně tak je všude v makru zapsané jedno a to samé heslo.
Nemáte s tím někjaké zkušenosti, proč by to mohlo zlobit? Děkuji za případné rady..

Zdravím všechny Exceláře

Už tu nějakou hodinku programuju jednu tabulku a samosebou jsem si jí neuložil, ted se mi povedlo jednu ze spuštěných procedůr zacyklovat a excel nereaguje, protože to tam háže dokola MsgBox.

Je nějaká cesta, jak makro odcyklit a pokračovat v práci? Když dám Ctrl + Alt + Delete, tak ztratím veškerou editaci kódu a to se mi vůbec nechce

Je třeba nějaká klávesová zkratka, na kterou VBA editor zareaguje i přes vyskočený MsgBox a ukončí práci maker?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje