Příspěvky uživatele

Strata asociácií je vo W10 úplne bežná vec. Stačí ak si W10 nainštaluje nejakú malú inováciu (naschvál nepíšem aktualizáciu), a môžete si byť istý, že niečo poserie. A je šumák, či máte OS čistú inštaláciu, upgrade z W7/8/8.1, alebo inováciu z W10 (1511, 1607, 1703), či je to book , desktop alebo tablet. A nedá sa s tým urobiť nič. Je to systém, ktorý chce mať kontrolu nad všetkým. A úplne bežne si vracia nastavenia na default po nejakom čase. Napr. ma ide šľaktrafiť z toho, že mi čo chvíľu ruší nastavenie o nepýtaní hesla pri LogIn-e. Niekedy to drží mesiac inokedy 2.

To prázdne okno, spomínané v prvom príspevku som mal tiež. Niekedy okolo Silvestra, asi týždeň. Rovnaké príznaky, dvojklik, otvorilo mi jedno prázdne okno a druhé so súborom. Pri zatvorení toho prázdneho to tuším exlo aj ten file. Po týždni to zmizlo. Ale stabilita je hrozná. vždy keď píšem "WorksheetFunction.T", tak po napísaní "T" je to lotéria 50/50 či mi exne Excel alebo dopíšem "Transpose". Reinštal nepomáha.

Nakopať niekoho do ... . No to hej, ale koho, kto má na tom najväčšiu vinu ? Vidíme to všade okolo seba, všetko sa fušuje, všetko je nekvalitnejšie, všade sa šetrí, všetko sa optimalizuje (pre väčšie zisky), všetko je konzumnejšie, a SW to rozhodne neobchádza. Doba sa zmenila, máme nové hrozby v kybernetike, programovať OS je enormne náročné, zvláda to iba zopár týmov, ktoré už asi tiež rezignujú, po nich príde mladšia Generation, čo na to bude ešte aj prdieť. Takže sa máme na čo "tešiť".

Kámoš si minulý týždeň kupoval kamión Scania za 100 000 €, návod na obsluhu mu dali na prepálenom CD. Prepaľoval som mu z toho zálohu. Koľko by ich vyšlo keby dali zákazníkovi za 100K jednu tlačenú knihu ?

Ja by som asi nakopal akcionárov, ktorý aj tak musia všetko odsúhlasovať a odobriť každé hov.o, teda aj náklady na nejaký vývoj a testy APP. Zoberte si, keby dnes neboli dobrovoľný BetaTesteri, čo by sme za paskvili dostávali ?

O tom by sa dalo písať a písať...

Podľa mňa 3 verzie zo 4 (okrem vzorca od veny, hádže chybu ak text vľavo obsahuje číslo v sebe) funguje na všetky uvedené príklady.

No veď dajte ako ste to vyriešil...

No a cez Envelope by to nemohlo byť (rondebruin) ?
Len to nepozná všetky formáty buniek, viď príklad.

Mám dobrú náladu, tak som ten Váš obrázok prerobil do súboru. Ak sa teda niekomu chce, môže to skúsiť napočítať správne. Urobil som nejaký návrh, ale nie som si istý všetkým, čo kde počítate. Napr. rozdiel medzi J a M ?
Všetko som si iba tipol...

Použil som tiež MSXML ale úplne inak ako Vy.
Každopádne ešte treba dodať:
-Bude sa jednať vždy o XML s jediným mesiacom ?
-Bude sa jednať vždy o list na ktorom je iba jediný mesiac ?
-Zaujíma Vám iba hodnota RD pri položkách STA 3,6,10,15,18,21,26,28, a ostatné STA teda nie ?
-Ak nebude dátum, ktorý obsahuje požadované STA v oblasti dátumov na liste, treba ho ignorovať a hodnotu RD neriešiť ?
-Dáta sa budú len aktualizovať, alebo prepisovať všetko ? Teda ak v XML nebude hľadaný dátum s hľadaným STA, ale v liste bude, má sa táto hodnota z listu zmazať ?
-Zaujímajú Vás vyššie spomínané hodnoty RD pri STA, ale v hlavičkách stĺpcov je niečo úplne iné. Skutočne majú hlavičky byť 1,2,2,11,12,13,21,22 ?
-Množstvo týchto stĺpcov bude variabilné alebo pevné (8) ?
-...

Riešenie - makrom
Spôsob - pomocná tbl
Pochopenie - ľahké
Prispôsobiteľnosť - vysoká
Použitie - diskutabilné

Tak skúste toto maticové riešenie GoogleDrive

Nerozumiem Vašemu zadaniu. Uveďte prílohu s príkladom, čo máte, a aj toho čo chcete z toho mať. Tu prikladám príklad získania čísla z textu reprezentujúceho hmotnosť v gramoch bez ohľadu či sa napíše xxkg, xxxg, xx,xkg, xxx.

EDIT: No neberie mi to prílohu, tak to dávam na GoogleDrive

A kurňa, terazky som si k tomu sadol. No nič tak idem zase na gauč

Tak nech je veselo

Príklad. Vypíše Vám to všetky výskyty hľadaného textu v zošite, s menom listu a číslom riadku. Špecifikácia požiadavky je ale od Vás veľmi slabá ...

Mne sa nedarí nasimulovať pád makra pri akomkoľvek naformátovaní čohokoľvek krížom krážom. Skúste iba 1 riadok, či dostanete chybu. A skúste aj nadefinovať pole, teda
Sub makroo()
Dim VDataOm()
Dim VDataRom()

Set ListROM = Sheets("ROM")
Set ListVyhodnoceni = Sheets("Vyhodnocení")

VRadku = ListVyhodnoceni.Cells(Rows.Count, "A").End(xlUp).Row

ReDim VDataRom(1 To VRadku, 1 To 5)
ReDim VDataOm(1 To VRadku, 1 To 5)

VDataOm = ListVyhodnoceni.Range("K3:O" & VRadku).Value2
VDataRom = ListVyhodnoceni.Range("Q3:U" & VRadku).Value2

'Na konci
Erase VDataOm
Erase VDataRom
End Sub
Zaujímavá haluška. A to mám polia rád...

Nie príliš optimálne, ale dajme tomu ... :
Private Sub CommandButton1_Click()
Dim VolnyRadek As Long, HDN, Rok As Long, Cislo As Long, nRok As Long

With Worksheets("List1")
VolnyRadek = .Cells(Rows.Count, 1).End(xlUp).Row + 1
nRok = Val(Format(Date, "yy"))
If VolnyRadek = 2 Then
Rok = nRok: Cislo = 1
Else
HDN = CStr(.Cells(VolnyRadek - 1, 1).Value2)
Cislo = Val(Right$(HDN, 3))
Rok = Val(Mid$(HDN, 2, 2))
If nRok <> Rok Then Rok = nRok: Cislo = 1 Else Cislo = Cislo + 1
End If
.Cells(VolnyRadek, 1).Resize(, 2).Value2 = Array("P" & Format(Rok, "00") & Format(Cislo, "000"), TextBox1.Value)
End With
End Sub
EDIT: maličká úprava...

No mám jedno prosté/sprosté riešenie (matica):
=MAX(IF(COUNTIF(OFFSET($A$2:$A$5;;{2;1;0});F2)>0;{3;2;1}))
=MAX(KDYŽ(COUNTIF(POSUN($A$2:$A$5;;{2;1;0});F2)>0;{3;2;1}))
F2 je prvá dátová bunka KT.

Na prd je, že to musíte nakopírovať na potrebný/predpokladaný počet riadkov KT.

Skôr ako som si uvedomil, že tam máte na to list s rozdelenými rozmermi, tak som spravil maticu. Funguje tak, že si urobí zoznam jedinečných rozmerov, pričom 100x200 a 200x100 považuje za jeden rozmer. Ak totiž ide o nejaké naskladnenie či rezanie je to asi správne, ale ak ide o niečo iné tak to treba urobiť inak.
No a potom sa tieto kombinácie hľadajú cez COUNTIFS prípadne SUM/SUMA (podľa toho či sú rozmery rovnaké alebo nie).
Upresnite čo je treba. Keď prídem, možno na to ešte mrknem.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje