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

Příspěvky uživatele

Ano, výsledek je stejný, jako příloha = žádný

Bez přílohy to asi nikdo nepochopí.

Taky postačuje (a je jednodušší) použít vzoreček od eLCHa, dát ho "někam" (zde Cells(1,2)) a pak jen krátké makro, když bys to chtěl do MSGBOXU

Private Sub CommandButton1_Click()
MsgBox "poslední číslo je " & Cells(1, 2)
End sub

Pokud by to mělo fungovat na tlačítko, tak třeba takto:
Private Sub CommandButton1_Click()
While Cells(1 + lin, 1) <> 0
lin = lin + 1
Wend
MsgBox "poslední číslo je " & Cells(lin, 1)
End Sub

@eLCHa
Já to tušil, zase "Select" zkusím se polepšit (hodně polepšit), ale moc děkuji.

důležitý je formát:
[h]:mm:ss .... sčítá hodiny
hh:mm:ss .... sčítá jen do 24 hodin, takže třeba 30 hodin bude zobrazeno jako 6:00:00

třeba takto,
pokud by to mělo být automaticky, tak makro umístit do Thisworkbook.Open

Sub radek20()
n = 0
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 21 To lastRow Step 20
Rows(radek + n & ":" & radek + n).Insert Shift:=xlDown
n = n + 1
Next
End Sub

možná takto, nevím jak je to s nadpisy

zkus tohle:
Sub radek20()
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 1 To lastRow Step 20
Rows(radek & ":" & radek).Insert Shift:=xlDown
Next
End Sub
poslední řádek zjišťuje podle sloupce A, pokud potřebujete jinak - změňte

Asi tomu nerozumím, ale mě se propojené sešity aktualizují automaticky i bez maker.

? dvě možnosti

zkus tohle

@marjankaj

domnívám se, že v tomto případě je VBA rychlejší a to ne z toho důvodu, že by byl rychlejší než fce excelu, ale proto, že na listu jsou jen čísla bez vzorců a nic se nepřepočítává. Pouze se doplní do prázdných buněk, ale nenásleduje žádný výpočet. Zkusil jsem i fce a 200tisíc řádků a nedočkal se výsledku. Tedy nečekal jsem, protože mi to tu psalo, že jedou 4 procesory a skutečně se to vleklo. Při použití VBA, kdy se zapisuje do prázdného listu je to otázkou okamžiku.

nejprve vyháže nuly a pak seřadí
edti:
nevím jaký máš pc, ale zkoušel jsem i 200 tisíc řádků a bubble metodou to netrvá ani 0,5 sec.

Ještě mě napadá jiná možnost. Tato řešení zatím počítala i s nulovými hodnotami a těch je tam nejvíce, jak píšeš a teprve pak po seřazení nulové hodnoty odstraňují. Lepší by možná bylo nejprve nuly odstranit a pak srovnat zbytek.
@ marjankaj: nevím, zpravidla to tak bývá, možná dát calculate false.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje