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)
neodladěno mám E2007, který nepodporuje použité parametry u DENTÝDNE, možná je bude nutné poupravit.
=DENTÝDNE(DNES();16)<4 formát nenastaven ukončit
=DATUM(rok;$B$2;C$2)-DNES()=1 nastavit formát
=A(DENTÝDNE(DNES();11)=5; DENTÝDNE(DATUM(rok;$B$2;C$2);16)<3 nastavit formát
Pro skrytí posledních dnů v kratších měsících by mělo stačit
=MĚSÍC(DATUM(rok;$B$2;C$2))<>$B$2 skrýt
=NEPŘÍMÝ.ODKAZ(ODKAZ(2;1))
vrací hodnotu z A2
Zdvojené uvozovky jsou potřeba vždy tam, kde ve výsledném řetězci má být uvozovka.
EN syntaxe např.
https://office.lasakovi.com/excel/funkce/ms-excel-funkce-cz-en/
Range("AL14").FormulaLocal ="=ZPRAVA(POLÍČKO(""názevsouboru"");DÉLKA(POLÍČKO(""názevsouboru""))-NAJÍT(""]"";POLÍČKO(""názevsouboru"")))"
ActiveCell.Value = Number & " " & Format(i, "00")
Například
podmíněným formátováním zvýrazňuje nárůst/pokles o 30 %.
Od boku, nemám možnost vyzkoušet
ActiveSheet.Range("PrvniPrazdnyRadek").Value = a
ActiveSheet.Range(PrvniPrazdnyRadek,1).Value = a
První nástřel.
Ve žlutém právě jedna vstupní hodnota
(pokud jich bude víc, sečtou se!)
.Formula = ...pro vložení anglické verze
.FormulaLocal = ... pro vložení verze lokální (CZ, SK, ...)
Range("U6").Formula = "=IF(O6>0,O6,SUM(P6:T6))"
a jeden s megavzorcem
POZOR
v původním
E1 - Hradec Králové - má na konci mezeru - opravit!
Začal bych opravou
u všech SVYHLEDAT je #REF!
(otevřeno v EXCEL2007)
Nechápu, ale přílohu (ani ZIP) mi to nebere. Možná velký soubor. Zaslal jsem emailem.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.