Příspěvky uživatele
< návrat zpět
A prečo nepoužiješ jednoducho toto.
=TODAY()-B1
Načo vymýšľať s DATEDIF 
No neviem, či je vhodné vymýšľať tabuľku v exceli pre niekoho, kto nevie ani vypísať dovolenkový lístok.
A kedy má byť koniec? Alebo to chceš vyplniť až po 1048576 riadok?
Asi sme niečo prehliadli. Mňa picne. 
Napísal
Takže ten list vypadá asi nějak takhle:
110111100101111011111
Nenapísal
Takže ta buňka vypadá asi nějak takhle:
110111100101111011111
Takže asi to treba najprv napchať do jednej bunky.
Veď som písal, že sa to dalo aj inak. 
Ja som to chcel najprv bez makra. Samozrejme, že funkcia LEN je efektívnejšia ako logaritmus.
Maticový vzorec na jednu hodnotu si teraz akosi neviem vybaviť. 
Ale neviem, na čo to bude zadávateľovi slúžiť.
@AL
To som našiel v nápovede.
VBA nepozná dekadický logaritmus iba prirodzený. A ja som potreboval dekadický. Samozrejme dalo sa to aj inak vypočítať. Na liste mi dekadický išiel, tak som chcel aj v makre.
teda
Log(x)=ln(x)/ln(10)
ln je logaritmus pri základe e=2,71.......
Log(1)=0
log(10)=1
log(100)=2
log(1000)=3
Takže ak sa pripočíta 1 tak máš výsledok
Tu je to bez makra a dolu v žltom s tou funkciou.
Public Function zisti(bunka As Range) As Long
a = Split(bunka, "0")
Max = 0
For i = LBound(a) To UBound(a)
If a(i) > Max Then Max = a(i)
Next i
zisti = Int(Log(Max) / Log(10) + 1)
End Function
ActiveWorkbook.Names(i).Name.Copy Range("G10")
Napríklad skopíruje to do oblasti G10
Sub Makro1()
For i = 1 To ActiveWorkbook.Names.Count
MsgBox ActiveWorkbook.Names(i).Name
Next i
End Sub
Sub Makro1()
a = 1
b = 1
x = 4
y = 4
Set oblast = Range(Cells(a, b), Cells(x, y))
oblast.PrintOut Copies:=1, preview:=True
End Sub
No ja si toto neviem predstaviť. Aj keby sa ti to podarilo, tak prezraď, ako by sa mali otvárať tie súbory bez makier? Veď na to je excel primárne určený.
Skús toto. Skopíruj tam viac buniek.
Áno malo byť vpravo
1. pozri si Podmienené formátovanie.
2. Zruš zalomenie riadkov v bunke.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články