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

Příspěvky uživatele

Věčný problém přístupu k práci. Místo aby se ta data zadávala rovnou na jeden list, tak se to zadává na x listů a pak se to chce sloučit...

Největší legrace na SQL je to, že tam není co se učit. Hodina samostudia a je to.
easy peasy

@Vovka
Co je zvláštní, ještě jsem nepotkal nikoho, kdo by tuto výbornou schopnost okna Immediate využíval.

http://elcha-en.blogspot.com/2015/01/easy-and-quick-formula-translation.html

@kybernaut.cz
Váš projekt jsem nestudoval, ale zcela jistě lze využít tento postup i v kódu. Pro překlad do angličtiny i zpět. A vždy bude seznam funkcí aktuální.

@lubo
Příklad:
česky: =BETA.INV(E10;C11;C12)
anglicky: =BETA.INV(E10;C11;C12)
jen technická. Ve 2007 tuto funkci nemám, ale tipl bych, že u té anglické verze vzorce nebudou středníky, ale čárky...

U mně ano - už asi 10 let
Jakou máte verzi excelu?

Schopnosti máte a tak si to budete schopen doladit.

Zkuste vrátit .StartUpPosition = 0mám tam 2

@elninoslov
a byl jste tak blízko... ;)

@CmeldaBoris
Záhlaví je skryto, místo toho je lblHeader. Takže teď můžete využít událost lblHeader_Click

Abychom mohli správně odpovědět, bylo by třeba vidět ten kód.

Samozřejmě základem je co nejnižší počet zápisů na list (např. pomocí zmíněného pole). Pokud je nutno zapisovat po jedné buňce (což většinou není) je možné zvážit vypnutí kalkulací. Mno a vypnutí překreslování také dost pomůže.

Ono tady asi těžko radit.
Stejný postoj jsem měl při přechodu z 2003 na 2007. Tam byl ještě důvod, že jsem potřeboval testovat zpětnou kompatibilitu. Vyřešil jsem to virtuálním PC a na něm 2003. Spočátku jsem to využíval, ale teď už vůbec. Jednou jedinkrát jsem měl souběžně 2 verze na 1 PC a už bych do toho nikdy nešel.

Myslím, že problém bude jednodušší. Doplněk nebyl instalován vůbec a byl spouštěn jak standardní soubor.

https://support.office.com/cs-cz/article/Zobrazen%C3%AD-spr%C3%A1va-a-instalace-dopl%C5%88k%C5%AF-v-aplikac%C3%ADch-Microsoft-Office-16278816-1948-4028-91e5-76dca5380f8d?CorrelationId=e255990a-48fc-44a5-817d-271b010b2e89&ui=cs-CZ&rs=cs-CZ&ad=CZ

Zvláštně napsaný doplněk...

Rozhodně bych doporučil všude místo ActiveSheet použít ThisWorkbook.Sheets("pokus1.xlsm"), takže např. místoActiveSheet.Range("a1") = Teplota_CThisWorkbook.Sheets("pokus1.xlsm").Range("a1") = Teplota_CTím by se to mohlo vyřešit a nepotřebujete Workbooks("pokus1.xlsm").Activate

Těžko radit... Zkuste dát místoMsgBox (Teplota_C)
MsgBox ActiveSheet.NameTipl bych, že se to zapisuje, jen aktivní sešit není ten co byste chtěl ;) takže to píše jinam.
To je jediné, co jsem schopen z toho kousku vypozorovat.

a nebo prosté KDYŽ (vybíráte ze dvou možností)

Převeďte tu oblast na tabulku a nepotřebujete žádné tlačítko ani žádný kód. Prostě pravým tlačítkem vložíte řádek nad.

@elninoslov
máte tam activesheets
Kódem bych to neřešil, ale když už, tak bych se vydal asi tímto směrem (než vkládat řádky) With Range(Range("A3"), Columns(3).Rows(Rows.Count).End(xlUp))
.Offset(1, 0).Value = .Value
.Rows(1).ClearContents
End With 'Range(Range("A3"), Columns(3).Rows(Rows.Count).End(xlUp))
A ještě jen tak na okraj - ten vzorec, co máte v D1 - vždy do řádku 3 vkládáte nový - první buňka oblasti se Vám tedy posouvá - takže je vlastně poslední buňkou. Takže stačí=SUMA(C5:INDEX(C:C;3))nebo přesněji=SUMA(INDEX(C:C;3):C5)

Předpokládám, že se to stane v případech, kdy buňku import56!AB7 buď odstraníte (myšleno řádek 7 nebo sloupec AB) nebo do ní vkládáte data pomocí vyjmout+vložit. Pokud je to jinak, napište jak.

Takže máte např. tyto možnosti:
- nejlépe vkládat pomocí kopírovat+vložit (pokud to lze tak jako hodnoty)
- pokud ty řádky musíte odstraňovat (nestačí výmaz obsahu pomocí Delete), budete si muset pomoci funkcí POSUN. Tzn. najít buňku, které nebude odstraněna (např. AB1) a vzorec upravitČÁST(POSUN(import56!AB1;6;0);1;2)

Dříve, než Vám tady Palooo napíše, že to nemá smysl, tak
http://www.excel-easy.com/vba/examples/protect-macro.html

Pokud je to poslední "ještě", tak joIf Not Dir(sAdresar & "\" & V_*_2015_02_S.txt") = vbNullString Then
MsgBox Dir(sAdresar & "\" & V_*_2015_02_S.txt")
End Ifspolehlivé, pokud je ten soubor opravdu jen jeden!!

lajos musí říct, nicméně

"192.168.254.255" + 1
Vám vyjde
"192.168.254.0"
a to podle mne není o 1 větší, ale o 255 menší ;)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse