Příspěvky uživatele
< návrat zpět
SendKeys Alt & "FP", TrueToto asi bude pre anglickú verziu notepadu.
ALT+File a Print
pre slovenskú alebo českú by to bolo
SendKeys Alt & "ST", TrueALT+Soubor a Tisk
Alebo tam môžeš dať miesto toho
CTRL+P
Teda
Ctrl="^"
SendKeys Ctrl & "P", TrueNeskúšal som to.
Jedna funkcia len ju skopíruješ.
Zotrieď si to podľa krajov a podľa počtu obyvateľov a potom očísluj.
Zotrieď si ich a potom si označ a CRTL+C a CTRL+v
Alebo použi rozšírený filter.
Public Sub skry()
ActiveSheet.Shapes("graf 1").Visible = Not ActiveSheet.Shapes("graf 1").Visible
End Sub
To takto jednoducho nejde.
Funkcia nie je jednoznačná. Asi by ju bolo treba parametrizovať.
Najlepšie je to uložiť ako obrázok a potom otočiť o 90°
Tak to bolo fakt vtipné. 
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
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