Příspěvky uživatele
< návrat zpět
A to máme prísť k tebe aby sme ti to urobili? 
Jiří497 napsal/a:
Nevím jak ostatním, ale mě to při pokusu o stažení souboru píše, že požadovaná stránka nebyla nalezena.
Buď rád.
Ja som také šťastie nemal. 
poli napsal/a:
Já to ale potřebuji ve VBA. Pokud použiju kod
1.5 mod 1 tak to vrátí 0 a mělo by vrátit 0.5 ?
MOD vracia hodnotu integer teda 0,5 zaokrúhli na 0
https://wellsr.com/vba/2018/excel/the-vba-mod-operator-explained/
Použi
= 1.5 - Int(1.5 / 1)*1
alebo
= 1.5 / 1 - Int(1.5 / 1)
Zkoušel jsem použít kombinaci když a vyhledat, nicméně to nefungovalo tak jak potřebuji.
No tu si to vysvetlil dostatočne.
filter
djph napsal/a:
Diky za vzorec, funguje, ale jen častečně, najde mi jak chci rozdíl mezi jmeny, ale pouze mezi 1. a 2. stejným jménem, ale jakmile mám 3., 4. 5. atd stejné jméno tak mi stále dává výsledek rozdíl k položce u 1. jména ale já potřebuji aby se automaticky počítalo rozdíl mezi např: 3.-4.; 8.-9. atd, rozumíte mi?
A toto nie je ako v zadaní?
lubo napsal/a:
Něco takového:
=IFERROR(SVYHLEDAT(A2;A3:A3:$B$35;2;0);0)-B2
??
Tak toto mi nenapadlo. A dokonca funguje.
aj A3:A8:B35
upravil by som to na
=IFERROR(SVYHLEDAT(A2;A3:$B$35;2;0)-B2;0)
CMM-Team napsal/a:
@marjankaj Jde mi o to, že v seznamu měřidel ve sloupci počítám datum příští kalibrace, ale pokud měřidlo vyřadím, nechci aby mi nadále počítal datum příští kalibrace a zároveň tam nechci prázdnou buňku.
Tak to mi nenapadlo, že v stlpci "O" je "seznam měřidel"
Je to naozaj jednoduchý kód. Ale k čomu je to dobré? Čo tým sleduješ?
A čo sa vlastne stalo?
kabaka napsal/a:
Pri týchto samostatných makrách som narazila na menší zádrhel pri službe a príslužbe.
Ide o to, že vlastne text SLUŽBA sa nachádza v texte príSLUŽBA.
A ak sa nachádzajú poznámky služba a príslužba pod sebou, tak to PRÍ ignoruje.
Pri kliknutí príslužba to dofarbí.Příloha: 46628_sluzba-a-prisluzba.png (12kB, staženo 2x)
Lebo si vyhodila riadok resp. tam nemáš.
.MatchWholeWord = True
Veď skúšaj meniť....
.MoveLeft Count:=19, Extend:=wdExtend
Sub Makro3()
With Selection.Find
.ClearFormatting
.Text = "dodatok"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Execute
End With
With Selection
.MoveLeft Count:=21, Extend:=wdExtend
.Font.Color = wdColorBlue
.Font.Bold = True
.MoveDown Unit:=wdLine, Count:=1
End With
End Sub
AL napsal/a:
@ marjankaj
Tak, musis sa pochvalit sam, ked Ta nikto iny nepochvali. :)
Na tento level, čo tu niektorí predvádzajú, ja proste nemám.
mepexg napsal/a:
AL, možno máš pravdu, ale toto je iba ďalší spisovateľ (možno si tohoto odhadol správne ty), ktorí nerešpektuje pravidlá fóra dať prílohu o verzii MSE ani nehovorím.
Nerob si srandu z pokročilých.
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