• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Na overenie existencie predsa stačí iba:
=ISNUMBER((FIND(","&B1&",";","&A1&",")))
=JE.ČISLO((NAJÍT(","&B1&",";","&A1&",")))

Pozícia:
=IFERROR(FIND(","&B1&",";","&A1&",");0)
=IFERROR(NAJÍT(","&B1&",";","&A1&",");0)

Index:
=IFERROR(LEN(LEFT(A1;FIND(","&B1&",";","&A1&",")-1))-LEN(SUBSTITUTE(LEFT(A1;FIND(","&B1&",";","&A1&",")-1);",";""))+1;0)
=IFERROR(DÉLKA(ZLEVA(A1;NAJÍT(","&B1&",";","&A1&",")-1))-DÉLKA(DOSADIT(ZLEVA(A1;NAJÍT(","&B1&",";","&A1&",")-1);",";""))+1;0)

Počet:
=IF(A1="";0;LEN(A1)-LEN(SUBSTITUTE(A1;",";""))+1)
=KDYŽ(A1="";0;DÉLKA(A1)-DÉLKA(DOSADIT(A1;",";""))+1)

Súčet:
=SUMPRODUCT(--("0"&TRIM(MID(SUBSTITUTE(A1;",";REPT(" ";LEN(A1)));1+(ROW(OFFSET($A$1;;;LEN(A1)))-1)*LEN(A1);LEN(A1)))))
=SOUČIN.SKALÁRNÍ(--("0"&PROČISTIT(ČÁST(DOSADIT(A1;",";OPAKOVAT(" ";DÉLKA(A1)));1+(ŘÁDEK(POSUN($A$1;;;DÉLKA(A1)))-1)*DÉLKA(A1);DÉLKA(A1)))))


Výskytov:
=(LEN(A1)-LEN(SUBSTITUTE(A1;B1;"")))/LEN(B1)
=(DÉLKA(A1)-DÉLKA(DOSADIT(A1;B1;"")))/DÉLKA(B1)

Pr.

Priložte aj ten textový súbor. Takéto textopiplačky som mal kedysi rád :)

A to mazacie makro zmente len na tento 1 riadok kódu:
Sub Vymazat() ' Vymazat Makro
Range("A4") = 1
End Sub

Takto ???

Ako vraví veny. Na toto je makro zbytočné. Text s upozornením cez vzorec, kontrola stavu cez vzorec, a farbenie cez PF.

Priložte prílohu. Cítim z popisu, že chcete vytvoriť kompletný sklad. To ľahké mať teda nebudete. Jednotky kg, ks, m3, lit, a podobne nevkladajte makrom. Pri každej skladovej položke majte záznam akú má jednotku, a môžete to dohľadať VLOOKUP-om rovnako ako ostatné info o tovare (cena, počet na sklade...)

Príklad. Príde Vám to divné ? Mne áno. Čo majú robiť tie makrá ? Ak to isté len s inými dátami, viazanými na zmenené bunky, tak treba použiť parametrizovanú procedúru a nie 30 skoro rovnakých makier. Ďalej treba špecifikovať, či tých 30 makier vplýva tiež na výpočty (nastane duplikovanie evidencie zmien - preto EnableEvents=False). Princíp je v tom, že sa musí pri každom prepočte listu zistiť voči skrytému listu so starými hodnotami, zoznam zmien. Tieto zmeny sa uložia do kolekcie, ktorá sa potom Kontrolou spracuje a volá makro podľa čísla.

PS OT: Tak nech sa všetci držíme v novom roku lepšie ako v starom :)

Už je skoro ráno, idem spať. Návrh otestujte, dajte vedieť.

Súbor - Možnosti - Údaje - Zobrazenie starších sprievodcov na import údajov - Z textu (staršia verzia)

Pravý klik na kartu Údaje - Prispôsobiť pás s nástrojmi - Získať a transformovať údaje - Nová skupina - pravý klik na ňu - Premenovať skupinu ("Starý import" bez úvodzoviek)

Oblasť výberu príkazov - Všetky príkazy - Z textu (staršia verzia) - Pridať - OK

Na karte Údaje pribudne skupina "Starý import" s tlačítkom "Z textu (staršia verzia)". Klik - výber súboru CSV - Importovať - Pôvod súboru - "65001 : Unicode (UTF-8)" - Moje údaje majú hlavičky - Ďalej -Oddeľovače "Tabulátor" - Ďalej - označiť druhý stĺpec - Spresniť - Oddeľovač desatinných miest "." bodka - Nezaškrtávať "Znamienko mínus za záporným číslom" - OK - Dokončiť

@ mepexg: V E2019 nech robím čo chcem, nijako nedokážem pri importe cez sprievodcu PQ Importom zmeniť desatinný oddeľovač. Až potom úpravou PQ dotazu. A to mi príde pre BFU fakt HardCore. Alebo teda máte na mysli niečo iné ?

EDIT: PQ dotaz by mohol byť takto (zmenené podľa návrhu mepexg):
let
Zdroj = Csv.Document(File.Contents("D:\CSV_des.csv"),[Delimiter="#(tab)", Columns=4, Encoding=65001, QuoteStyle=QuoteStyle.None]),
#"Hlavičky so zvýšenou úrovňou" = Table.PromoteHeaders(Zdroj, [PromoteAllScalars=true]),
#"Zmenený typ pomocou miestneho nastavenia" = Table.TransformColumnTypes(#"Hlavičky so zvýšenou úrovňou", {{"BUY_PRICE", Int64.Type}, {"ACTUAL_PRICE", type number}, {"WARRANTY", type text}, {"QUANTITY", Int64.Type}}, "en-US")
in
#"Zmenený typ pomocou miestneho nastavenia"

Samozrejme, pretože je tam ako desatinný oddeľovač bodka "." a nie ako je u nás bežné - čiarka ",". Ani neviem, či v novom "vylepšenom" Exceli ide ešte použiť štandardný Import dát, kde bolo možné krásne nadefinovať oddeľovač desatín, alebo to ide už iba automaticky cez PowerQuery, kde touto voľbou nie som si istý. Každopádne najjednoduchšie asi pre Vás bude, Označenie stĺpca, Ctrl+H, hore bodka dole čiarka, Nahradiť všetky.

Lebo si makro nepreberalo rodiča volajúcej bunky - teda jej list.

No a kde je tá Vaša faktúra, aby sme videli čo to robí za šarapatu, kde je aký zdroj umiestnený, ako sa mení, náväznosti polohy zdroja od zmeny čísla fak. a pod. ?

Alebo nahraďte toto
ThisWorkbook.Worksheets(1).Copy
ActiveWorkbook.SaveAs Filename:="D:\Data_" & Format(Now, "dd.mm.yyyy hh-mm-ss") & ".csv", FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close (False)
týmto
i = FreeFile
Open "D:\Data_" & Format(Now, "dd.mm.yyyy hh-mm-ss") & ".csv" For Output As #i
Print #i, Join(Pole, vbCrLf)
Close #i
a bude to rýchlejšie.

No a čo vstupný zostatok z minulého obdobia/predošlej karty ?

PS: Bez urážky, ak tápete nad SUM(), čo potom asi robíte s tým "šifrovacím" algoritmom v makre ?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse