Anonym napsal/a:
Ahoj, dik za odpověď, ale můžeš mi napsat jaky ti vyšel datum: G3=C3-DATE(D3;E3+1;F3-1)?
Asi najjednoduchšie bude ak pripočítaš k roku 1000.
Teda namiesto 1.1.1900 zadaj 1.1.2900.
A potom výsledný rok bude o 1000 nižší.
=C3-DATE(D3;E3+1;F3-1)
Oprava, malo by to byť:
=DATE(YEAR(C3)-D3;MONTH(C3)-E3;DAY(C3)-F3)
Stačilo by aj jednoduché makro. npr.
Sub Makro1()
Sheets("List2").Range("B2:E11").Copy
Sheets("List1").Activate
Range("B2:E11").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Ale to by musel list1 zodpovedať listu2. Potom by nemusel odpovedať na otázky od elninoslov. Kto má pátrať, ktorá bunka na liste1 má mať rovnaký formát ako bunka C3 na liste2? Podľa akého pravidla?
Zoraď si stlpce v List1 tak ako máš na List2 a "metličkou" skopíruj format.
Marekh napsal/a:
Přikládám správnou přílohu a potvrzuji, že se podbarvení na List1 dělá ručně.Příloha: 45610_sesit1.xls (16kB, staženo 3x)
napíš tam: List2!A2:A5
https://www.youtube.com/watch?v=J_ORTUwmhuo
Tak ja neviem, čo som už v zadaní čítal. Že by nová móda meniť zadanie?
Nejaké google tabuľky sú mi u prdele, toto je téma o MS Excel.
Neviem, či je taký problém vyznačiť oblasť tlače na pír klikov a vytlačiť. V exceli si to urobím cez záznamník makier. Možno v google tabuľkách je to podobné. Ale ja to študovať nebudem.
Stalker napsal/a:
marjankaj napsal/a:Že by makrom?
tabulek google
Tam s makry s největší pravděpodobností neuspěje. Nebo máš odzkoušeno?
Že by makrom?
A bez toho kliknutia by si nechcel? Lebo aj to by išlo.
kabaka napsal/a:
príloha?
Alebo aj takto, ale je vhodné tam dať aj to makro.
Patent od Vovku.
=sxxx($A$1;A1)
Táto bunka A1 musí byť v €.
Inak hovoril si iba o dvoch menách, či?
A kedy bol 1$=1,2 €? Alebo už bude?
skyker napsal/a:
Díky za makro, ale nějak to nefunguje, přepisuje mi to data v prvním listu
napríklad takto
Sub Makro1()
Sheets("Hárok1").Select
Range("A1").Select
x = Range(Selection, Selection.End(xlDown)).Rows.Count
a = Int(Rnd() * x) + 1
bb: b = Int(Rnd() * x) + 1
If b = a Then GoTo bb
cc: c = Int(Rnd() * x) + 1
If c = b Or c = a Then GoTo cc
Sheets("Hárok2").Select
Range("A1") = Sheets("Hárok1").Cells(a, 1)
Range("A2") = Sheets("Hárok1").Cells(b, 1)
Range("A3") = Sheets("Hárok1").Cells(c, 1)
End Sub
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.