Příspěvky uživatele
< návrat zpět
Zdravím, potřeboval bych pomoc s upravením vzorce. Už si nevím rady.
Mám ve sloupci A texty a ve sloupcích E:SA mám jednicky až do řádku 1745. Potřebuju, aby se vypsali ty texty, u kterých je v jednotlivých sloupcích jednička do E:SA 1748. (Tedy pro každý sloupec)
No ak sú v bunkách E1:SA1745 samé jednotky, ako si uviedol, tak teda nie je čo riešiť. Čo keby si radšej priložil tvoj súbor, aby bolo vidieť ako vyzerá zadanie a aj to ako by mal vyzerať výsledok? 
Skús toto makro
Sub rozdel()
a = Split(Range("A1"), ";")
For i = LBound(a) To UBound(a)
Cells(5 + i, 1) = a(i)
Next i
End Sub
matty2211 napsal/a:
tady je ten soubor v txtPříloha: 20460_wld303_01_01_p_0101_0101_1406132334131.txt
No do "tohto" súboru ti asi nikto žiadne makro nevloží.
To sa "nedá" čítať.
Nevieš priložiť súbor? Alebo tam máš "citlivé" údaje?
Ktorých núl?
lubinecko napsal/a:
Možno hovorím zle ale dôležitú úlohu v tom riešení by mal zohrať asi aj čas . V tomto prípade dátum. Čo si myslíš ty.
Opičák si nemá čo myslieť. On sa iba snaží uhádnuť, čo si myslíš ty. Teda najprv si to ujasni ty sám, čo chceš a potom to tu aspoň trochu zrozumiteľne napíš.
No bez prílohy ťažko poradiť.
Možno takto.
V štvrtej tabuľke nedávaj tie predchádzajúce riadky pod seba, ale vedľa seba. Potom si to môžeš kopírovať.
A prílohu kedy pridáš? Až niekto uhádne, čo máš vo svojom zadaní?
Palooo napsal/a:
VladimirZ: skusali ste ten test file??
Palo a nechýba tam náhodou niečo takéto?
Selection.EntireRow.Insert
Teda vysvetľovanie je fakt na úrovni. A prílohu nedá. Kto má vedieť, či sa niečo neprepisuje??????
aby se při vložení jednoho řádku do listu1 (např. 10 řádek) ten samý řádek vložil i do listu2
A čo myslíš pod tým vloženým riadkom? Prázdny alebo nejaký vyplnený?????
Bublinka455 napsal/a:
To jde jo? Myslela jsem, že se to musí vytvořit kódem. Takže jediná cesta je tedy nahrát záznamníkem ten rozšířený filtr a nechat ho pouštět vždy po otevření, jo?
No nie je to jediná cesta.
Ak ovládaš VBA, tak by si to mohla zvládnuť aj tak, že si to sama napíšeš.
Ale je jednoduchšie si to nahrať a upraviť. Veď každý si nemusí pamätať syntax toho rozšíreného filtra.
Bublinka455 napsal/a:
Aha , a nešlo by tenhle problém efektivněji vyřešit makrem? Dívala jsem se na nějaké články na internetu a návody a vypadá to, že se tam taky dá dělat dost věcí. Zkoušela jsem vložit do dokumentu makro na jednoduché kopírování a to mi fungovalo . Prakticky by mi stačilo, aby se ty nestejné položky vypsaly jen po otevření dokumentu. Nemuselo by se to vypočítávat stále, jestli víš co myslím.
Veď použi záznamník a to makro si nahraj.
AL napsal/a:
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Bold"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "Italic"
Tučné a kurzíva mi nefungovalo, ale je možné že na CZ/SK exceloch funguje
makro som nahrával. Na anglickej verzii asi Tučné a Kurzíva nepôjde.
Inak je to nepraktické.
Ja by som to rozdelil do troch susedných buniek a naformátoval.
Skús toto makro
Sub Makro1()
ActiveCell.FormulaR1C1 = _
"=TEXT(R1C1/R2C1,""0,00"") & "" až "" & TEXT(R1C2/R2C2,""0,00"")"
ActiveCell = ActiveCell
With ActiveCell
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Tučné"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "kurzíva"
End With
End Sub
Skús funkciu MATCH česky POZVYHLEDAT. Teda ak je zoznam zoradený od najmenšieho po najväčšie.
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