Já bych použil např. funkci : Data -> Text do sloupců , kdy si vybereš oblast, kde máš tyto data a v průvodci, který se ti aktivuje, vybereš jako oddělovač čárku nebo tečku, podle toho jak to potřebuješ rozdělit.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: úprava čísel
MS Excel
Téma: úprava čísel 
Zaslal/a omorok 22.6.2011 9:16
Dobrý den,
Potřebuji pomoct s úpravou řadou čísel. Používám jeden program,který převede naměřené údaje do texťáku (otevřu ho "Poznámkovým blokem. Sloupec čísel se kerými potřebuji pracovat,je ve formátu např: 105,456.703 105,456.797 atd. Pokud to otetvřu v excelu,tak je to to samé. Potřebuji odstranit jak čárku tak tečku v čísle. Děkuji za pomoc
ak sedi format cisel ako si uviedol hore tak pre A1 je vzorec
=VALUE(CONCATENATE(LEFT(A1;3);RIGHT(LEFT(A1;7);3);RIGHT(A1;3)))
ak je format iny musel by som trochu rozmyslat alebo pouzit makro - na vzorce su tu iny sikovni borcicitovat
=VALUE(CONCATENATE(LEFT(A1;3);RIGHT(LEFT(A1;7);3);RIGHT(A1;3)))
ak je format iny musel by som trochu rozmyslat alebo pouzit makro - na vzorce su tu iny sikovni borcicitovat
(22.6.2011 12:31)#005325
Pokud texťák obsahuje čísla pod sebou a nic více zkus toto
Sub Makro2()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:=fileToOpen, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(13, 1)), DecimalSeparator:=".", ThousandsSeparator:= _
",", TrailingMinusNumbers:=True
End Sub
citovat
Sub Makro2()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:=fileToOpen, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(13, 1)), DecimalSeparator:=".", ThousandsSeparator:= _
",", TrailingMinusNumbers:=True
End Sub
citovat
Tak jsem skusil vzorec od misocko,ale nefunguje napíše to v buňce: #NÁZEV? Texťák obsahuje i jiné údaje...citovat
Mozna mate cesky Excel.
Pro A1 by to mohlo byt takto (pokud maji zmizet carka i teka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";""))
nebo takto (pokud ma byt misto tecky desetinna carka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";","))citovat
Pro A1 by to mohlo byt takto (pokud maji zmizet carka i teka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";""))
nebo takto (pokud ma byt misto tecky desetinna carka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";","))citovat
děkuji mnohokrád všem za radu,zvláště Poki -to je přesně co potřebuji. 
citovat
citovatMůžu poprosit ještě o radu? Mám v texťáku sloupec čísel ve formátu:
07/11/10,15:32:22,03,8076771017901629
V Excelu je toto číslo v jedné buňce např: A1, potřebuji ho rozložit do 4 buněk:
1 buňka-(B1): 07/11/10
2 buňka-(C1): 15:32:22
3 buňka-(D1): 03
4 buňka-(E1): 8076771017901629
nebo,pokud by to bylo složité,tak aspoň poslední část (8076771017901629) okopírovat do samostatné buňky. Děkuji předem za raducitovat
07/11/10,15:32:22,03,8076771017901629
V Excelu je toto číslo v jedné buňce např: A1, potřebuji ho rozložit do 4 buněk:
1 buňka-(B1): 07/11/10
2 buňka-(C1): 15:32:22
3 buňka-(D1): 03
4 buňka-(E1): 8076771017901629
nebo,pokud by to bylo složité,tak aspoň poslední část (8076771017901629) okopírovat do samostatné buňky. Děkuji předem za raducitovat
(14.7.2011 9:04)#005499
Lze to snadno rozdělit podle textových funkcí, ale nejlepší je to při inportu! Když pošleš vzorek souboru tak je to brnkačka, tam ti to udělá i tečky a čárky.citovat
Zasílám texťák
Příloha: 
5502_barcodes.txt (132kB, staženo 36x)
citovat5502_barcodes.txt (132kB, staženo 36x)Postup importu excel 2007
Příloha: 
5507_excel-import-2.rar (843kB, staženo 38x)
citovat5507_excel-import-2.rar (843kB, staženo 38x)Uživatelské menu
Nejste přihlášen(a)
\n
\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