Příspěvky uživatele
< návrat zpět
MichalV napsal/a:
tu je link na súbor, ja ale nepotrebujem aby to niekto spravil za mňa, ja potrebujem sám vedieť ako sa to robí :)
No robí sa to tak, že najprv skopíruješ bunku I2 na iný list do A1
potom skopíruješ H2 do A2
a tak postupne až do konca.
Napríklad cyklom.
MichalV napsal/a:
Chcem aby tie percentá, išli pod sebou podľa rokov a mesiacov čiže rok 2016 - od augusta po január, pod tým ďalej aby pokračoval 2015 od decembra po január atd...
A ešte čo by sme si mali domyslieť?
A nebodaj si máme vyrábať aj prílohu?
To čo si dal ty by možno išlo cez skicár.
No ťažko poradiť bez prílohy.
Po spustení tej funkcie sa to jednoducho vytlačí. Iba ak by si vymazal ten konkrétny hárok pred tlačou(BeforePrint)
elninoslov napsal/a:
2 eLCHa: Stovka ? Z mojej strany rozhodne nie. Končím, sám sa čudujem, že som mal až doteraz duševnú silu.Příloha: 32813_vyhledavani.zip
Aj ma to lákalo tipnúť si. Lebo taká "výdrž" ako si preukázal sa len tak často nevidí.
@eLCHa
No jeden by si myslel, že NOW sa bude správať rovnako v liste aj v kóde.
Vďaka tomuto fóru sa človek dozvie zaujímavé veci, ktoré by ho ani nenapadli.
eLCHa napsal/a:
Now nemá setiny, takže je třeba použít Timer.
Funkcia NOW na liste má zlomky sekúnd.
V kóde VBA má iba sekundy.
To som nevedel.
No napadlo mi to takto
=TEXT(NOW();"hh:nn:ss")&TEXT(MOD(MOD(NOW();1) * 24 * 60* 60;1);",00")
Do VBA
TEXT=FORMAT
MOD si treba naprogramovať.
mepexg napsal/a:
Format "hh:mm:ss,00"
Keď už, tak
Format "hh:mm:ss,ss"
Ale nedáva mi to zmysel, keďže TimeValue je možné dávať iba v sekundách.
martinek.v napsal/a:
Děkuji "Elninoslov" Úžasně jednoduché, a já to řešil přes =SUMIF
Ještě jednou dííííky, M.
A prečo ti to nešlo???
=SUMIF(B1:B6;"";A1:A6)
=SUMIF(B1:B6;"<>";A1:A6)
mepexg napsal/a:
=KDYŽ(A(D25="";E25="";G25="";H25="");"";KDYŽ(NEBO(D25="";E25="";G25="";H25="";ZPRAVA(D25;2)>="60";ZPRAVA(E25;2)>="60";ZPRAVA(G25;2)>="60";ZPRAVA(H25;2)>="60");"chyba";KDYŽ((AH25-AG25)+(AJ25-AI25)<=0;"";(AH25-AG25)+(AJ25-AI25))))*
když(je.číslo(a25);a25;1)
Násobenie jednotkou znamená, že "se neprovedlo nic"???
Niektorí zadávatelia by si mali svoju otázku aj po sebe prečítať.
For i = 1 To 100 Step 2
With Sheets("List1")
.Range("B1").Value = i
.PrintOut
End With
Next i
Pri testovaní zameň 100 za 3 alebo 5.
Prípadne .PrintOut za .PrintPreview
No neskúšal som všetky možnosti. AAA prevedie aj číslo 1,6 na 1,6
A ďakujem za sľúbenú prílohu od GeorgeK. Aspoň sme sa pocvičili na prílohe od xlnc. 
Na vyskúšanie
Selection.Value = "1.76"
Selection.Offset(1, 0).Value = "1,76"
No podarilo sa mi to takto. Ale nadšený z toho nie som. A ani tomu nerozumiem.
With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Value = .Value
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")
Dokonca stačí aj takto:
With ActiveWorkbook.Sheets("ListM")
With .Range(.Range("H2"), .Range("H2").End(xlDown))
.Replace What:=",", Replacement:="."
End With '.Range(.Range("H2"), .Range("H2").End(xlDown))
End With 'ActiveWorkbook.Sheets("ListM")
A čo keby si tak dal prílohu.
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