Příspěvky uživatele
< návrat zpět
Včera som si to pozrel, no a že ... fúúú to bude na dlho. Budem musieť veľmi zapojiť fantáziu, aby som dal dokopy vôbec kopec otázok, aby som aspoň trochu z odpovedí pochopil, čo ste chcel asi dosiahnuť, a prečo ste to alebo ono riešil tak či onak. A či je možné zmeniť logiku. Je to celé poprepletané medzi listami, duplicitné, triplicitné výpočty, zbytočná (?) KT, zdrojové dáta asi importované z nejakých výstupov (CSV, TXT a pod), následne zle upravované, veci sa nemusia neustále vypisovať do listov, aby sa prečítali, veď to sa dá (asi, ešte som to nepobral) dopočítať a rozdeliť makrom rovno, dvojitá hlavička (?), kopíruje sa "Začátek zápisu" no uvidíme.
Ako vravím, už len správne sa popýtať potrvá.
Divný dotaz.
Môže byť 1 pred 1000?
Môže byť viac x 1000?
Môže byť viac x 1000 bez 1 medzi nimi?
...
zatiaľ napr. pre E2021/2024/365
=LET(FLTDEN;FILTER(B3:C34;A3:A34=D1);VLOOKUP(F1;FLTDEN;2;0)-VLOOKUP(E1;FLTDEN;2;0))
=LET(FLTDEN;FILTER(B3:C34;A3:A34=D1);SVYHLEDAT(F1;FLTDEN;2;0)-SVYHLEDAT(E1;FLTDEN;2;0))
neviem či má LET a FILTER nejaký CZ preklad.
Na mobile som videl poobede, že ste dal prílohu, no keď som sa teraz konečne dostal pred spaním k PC, už tu nie je.
Každopádne, to Vaše makro nie je dobre napísané, je pomalé, nevhodne maže po jednom riadku, neprestajne sa zbytočne prepína medzi listami a selektuje bunky. Neviem, čo je účelom, ale na 99% by to šlo efektívnejšie.
Príklad:
Sub UlozTXT()
Dim D(), r As Long, T As String
With Worksheets("Upraveny").ListObjects("Upraveny__2").DataBodyRange.Columns(1)
r = .Rows.Count
If .Rows.Count = 1 Then
T = .Value2
Else
D = .Value2
For r = 1 To UBound(D, 1)
T = T & IIf(r > 1, vbNewLine, "") & D(r, 1)
Next r
End If
End With
With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "utf-16"
.Open
.WriteText T
.SaveToFile ThisWorkbook.Path & "\Upraveny.TXT", 2
.Close
End With
End Sub
Pôjde ešte o to, aký formát kódovania zožerie cieľový SW/HW. Treba vyskúšať alebo pozrieť dokumentáciu.
Obsahujú tie texty diakritiku?
Musíte priložiť prílohu. Tých dôvodov je milión, vypisovať ich nebudem. BackEnginering v tomto prípade nefunguje.
Ponechajte všetky formáty, rozloženie, odsadenie, typy (tabuľka vs Tabuľka), vzorce, rozsahy, ale nechajte tam iba 3-5 riadkov anonymizovaných dát.
Dodatočné otázky položím až potom.
Priložte prílohu a čo je cieľom makra. To makro je, ... ehm ... zle napísané. Samý Select a Copy. Treba to prerobiť.
@lubo opäť excel-entne.
Ten nový Office má kopu neznámych (mne) nových featur. Táto sa volá v SK/EN verzii WRAPCOLS()
V novom Office to urobíte ľahko aj vzorcom:
=INDEX(B2:B55;TRANSPOSE(SEQUENCE(9;6)))
=INDEX(B2:B55;TRANSPOZICE(SEQUENCE(9;6)))
Makro napríklad:
Sub Rozdel()
Dim D(), V(), r As Long, s As Long, i As Long
With Worksheets("Data")
D = .Range("B2:B55").Value2
ReDim V(1 To 6, 1 To WorksheetFunction.RoundUp(UBound(D, 1) / 6, 0))
s = 1
For i = 1 To UBound(D, 1)
r = r + 1
If r = 7 Then s = s + 1: r = 1
V(r, s) = D(i, 1)
Next i
.Range("H2").Resize(6, UBound(V, 2)).Value2 = V
End With
End Sub
Mrkvosoft píše ...
Na nete som našiel, že Google túto službu zrušil po mnohých rokoch od oznámenia, že ju zruší.
Jeden týpek poradil zmenu adresy, a je to funkčné. Vyskúšajte.
With .Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & Replace(TEXT, " ", "%20"))Link na popis parametrov.
Sorry, nebol som tu pár dní. Urobil som Vám tam podrobný popis, ako to funguje, odôvodnil prečo sú tam kontroly, pridal som odchyt chýb čo ma napadli, že by mohli nastať, a snáď sprehľadnil kód.
Omrknite.
PS: Neviem načo sú tam tie ďalšie definované názvy, ale Body_5001 na konci chýbajú 2 riadky (lebo ostatné Body to tam majú).
=IF(Vzor!A4="";"";HYPERLINK("mailto:"&Vzor!C4;Vzor!C4))
=KDYŽ(Vzor!A4="";"";HYPERTEXTOVÝ.ODKAZ("mailto:"&Vzor!C4;Vzor!C4))
+ modrý a podčiarknutý font ?
Táto úprava urobí UTF-16 LE BOM, len v E2003 sa musí urobiť export do TXT a následne premenovať na ZAP. V E2024 to ide rovno to ZAP.
Upravil som aj rozhasené podm. formátovanie.
Neprišiel som na to, prečo sa za použitú oblasť považujú všetky stĺpce (256) akonáhle sa skryjú, no iba v tých prvých 3 listoch. Inde sú tiež skryté, ale ako použitá oblasť je iba skutočne použitá. Skúšal som aj vytvoriť znovu listy, vytvoriť kopírovaním z tých čo sú OK, ale vždy to dopadne rovnako. Zdá sa mi, že to neúmerne zväčšuje súbor.
@pepča: ak by Vám hneď nepadlo do oka, o čom tu s "veny" píšeme, tak je to práve oblasť $H$1:H1 vs $U$1:$U1. Teda to je stĺpec, v ktorom máme už ten vzorec, len iba po riadok vyššie. Teda hľadáme (0) ktoré ešte nemáme v našom stĺpci. Preto tam musí byť tá 1. bunka ako hlavička (nevyskytujúca sa v prehľadávaných hodnotách).
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články