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

Příspěvky uživatele

&Ridder

kód je zacyklený.
Změna v buňce vyvolá běh kódu, který v buňce provede požadovanou změnu, ale tato změna spustí kód znovu.

@Jiří497
díky, ušetřený čas s hledáním v historických souborech

Přeji pěkné svátky všem

něco podobného jsem kdysi hodně dávno řešil v E2007 přes skrytý pomocný list a jen funkcemi listu (bez VBA).

Pokud může být, SNAD se mi přes svátky podaří ve starých souborech dohledat a poupravit.

Dotaz pro upřesnění
Sloupec "B" se neřadí ?
Jedná se o pevnou oblast C3:M9 do C14:M20 ?

Jestli jsem pochopil dobře - sloupec I

nebo maticově

=SUMA($B$3:$B$703*(MĚSÍC($C$3:$C$703)=MĚSÍC($H$3)*(ROK($C$3:$C$703)=ROK($H$3))))

C4 = Empty ; tj. prázdná
E5 = "" ; tj. obsahuje prázdný znak - není prázdná

záleží na vstupních datech

a nestačí vzorcem

=(--JE.ČISLO(B1))+(--JE.ČISLO(C1))+(--JE.ČISLO(D1))

1+C10
kde C10 obsahuje 10 % zvýšení tj, 0,1
1+C10 ... 110 % nebo 1,1 je celková zvýšená hodnota

1*C10 = C10 nic neřeší
nebo si nerozumíme.

v příloze

Postup dle ElCHa je v případě jednorázové hromadné úpravy.
Přiložené lze využít, pokud se s navýšením počítá ve vzorci.

Pomocnou buňku naformátovat
Formát buněk - Procenta.

Pak samozřejmě upravit vzorec, kde k této hodnotě nutno připočítat 100 % (tj. pro 10 % stejné jako násobit 1,1)

V příloze

Dim cell As Range

For Each cell In Selection

For i = 3 To lstrow

if not rows(i).hidden then
xdir = ...

ad 1)

Cells(radek, sloupec).Select

by mělo odrolovat obrazovku, aby vybraná buňka byla vidět

ad 2) Nestačilo by

Application.StatusBar = "provádím výpočet buňky " & Cells(radek, sloupec).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje