Příspěvky uživatele
< návrat zpět
Takže je to formát "rdm". To nějak zaniklo.
Takže buď Změnit typ, vybrat "použití národního prostředí".
Tam nastavit datum a vybrat zemi, kde se tento formát zápisu data používá.
Nebo klikání nestačí a pak krátký kód, např:
= Table.TransformColumns(Zdroj,{{"dat", each let d = Splitter.SplitTextByLengths({4,2,2})(Text.From(_)) in Date.FromText(d{0} & d{2} & d{1}), type date }})
zamění číslo za datum ve sloupci dat.
ondrejmalik napsal/a:
... myslel jsem že půjde nějak v power query, ale daný sloupec nelze předělat jako datum. ...
Nesuďte ukvapeně.
Pravý klik na hlavičku sloupce, v seznamu vybrat "Změnit typ" a v dalším seznamu klik na datum.
Hotovo.
Tak proč to nerozdělíte???
Klik na "rozdělit sloupec", vybrat oddělovač, a v upřesnění vybrat "do řádků".
(4 kliky)
veny napsal/a:
Je pravda že nad dlouhým textem jsem nepřemýšlel.
No šlo by to tedy takto.Příloha: 49509_vyhledani_cisla_text.xlsx (18kB, staženo 4x)
To by nešlo. Pokud nebudou mezi čísly mezery, tak se čísla spojí.
Možností je docela dost. Třeba:
#"Vybrat číslice" = Table.AddColumn(
Zdroj,
"Cisla",
each Text.Combine(
List.Transform(
Text.ToList([Sloupec1]),
(c) => if List.Contains({"0" .. "9"}, c) then c else " "
),
""
)
),
#"Rozdělit sloupec mezerou" = Table.TransformColumns(
#"Vybrat číslice",
{{"Cisla", each Splitter.SplitTextByWhitespace(QuoteStyle.Csv)(_)}}
),
#"Vybrat ean" = Table.TransformColumns(
#"Rozdělit sloupec mezerou",
{{"Cisla", each List.Select(_, each Text.Length(_) = 13)}}
),
nebo
#"Najít čísla" = Table.AddColumn(
Zdroj,
"cisla",
each List.Transform(
Splitter.SplitTextByCharacterTransition(
(c) => not List.Contains({"0" .. "9"}, c),
{"0" .. "9"}
)([Sloupec1]),
each Text.Select(_, {"0" .. "9"})
)
),
#"Vybrat ean" = Table.TransformColumns(
#"Najít čísla",
{{"cisla", each List.Select(_, each Text.Length(_) = 13)}}
),
Možné jsou i variace nalezení pozice číslic, převedení na range, ...
Proč nevyhovuje kontingenční tabulka?
Kromě seznamu, setřídění jsou tak hotovy i další statistiky (počet kol, ...)
Mrkni na soubor/účet/o produktu...
Je tam taky licence a build.
Tam můžeš ověřit, jak starou verzi excelu máte. (Některé firmy s upgradem nespěchají.)
Pokud se mají automaticky načíst data z mnoha sešitů, tak na to je powerquery.
john89 napsal/a:
john89 napsal/
Už jsem to vyřešil:
ActiveSheet.Protect "password"
ActiveSheet.UnProtect "password"
Nebo se dá použít
ActiveSheet.Protect Password:="heslo", UserInterfaceOnly:=True
před spuštěním aktualizace.
Do F2 vzorec:
=DATUMHODN(B2&" " &B1)
do g2:
=f2+1
atd.
(+ zvolit formát)
Funkce "vyhledat" pokud nehledají přesnou shodu vrací poslední hodnotu, která je rovna nebo menší než hledaná.
Pokud hledám číslo, zadám tedy co největší číslo k hledání. A protože si největší číslo v exelu přesně nepamatuji, tak dávám něco, co se k tomu blíží.
Pokud se tedy hledá např. poslední text, tak obvykle hledám "žžž" - ne moc dlouhý řetězec, aby se to neporovnávalo moc dlouho, který se při třídění zařadí nakonec seznamu.
Třeba:
=SVYHLEDAT(C6;ZVOLIT(B2;Prvni!A:R;Druhy!A:R;Treti!A:R);18;0)
V B2 je číslo listu (1,2,3, ...)
Jinak, pokud by stačilo =b1+b2, tak se to dá udělat:
Do
a1: "m", do b1: 4
a2: "k", do b2: 6
pak vybrat oblast a3:b3 a ve formátu sloučit buňky.
pak zkopírovat formát na a1:b1 a a2:b2
pak skrýt sloupec a
Pak se může napsat b1 + b2 a v buňkách bude "m" a "k".
Je to sice pitomost, ale kdo chce kam...
Když už se po novém roce teoretizuje, zkus popsat, jak po zapsání do buňky písmene "m", se excel doví, že při sčítání má použít číslo 6.
Jinak to můžeš zkusit na https://excel.uservoice.com/
nebo klasika
=IFNA(VVYHLEDAT(9E+307;B3:J3;1;1);"")
Jistě exituje, VBA. Jak jsem už psal, záznamník maker je kamarád. Stačí se pak podívat na objekty a doplnit iterace.
Filtry jsou v řadě objektů, tak jako příklad na aktivním listu tabulky a autofiltr:
Sub Makro()
Dim i As Long
Dim oList As ListObject
' tabulky
For Each oList In ActiveSheet.ListObjects
With oList.AutoFilter
For i = 1 To .Filters.Count
.Range.AutoFilter Field:=i
Next
End With
Next
With ActiveSheet.AutoFilter
For i = 1 To .Filters.Count
.Range.AutoFilter Field:=i
Next
End With
End Sub
Jo a to "pro každý sheet zvlášť", ano musí, ale může se to udělat v cyklu:
V proceduře odstraní autofiltry na všech listech:
Dim list As Worksheet
For Each list In ActiveWorkbook.Worksheets
list.AutoFilterMode = False
Next
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