< návrat zpět

MS Excel

Téma: Převod textu na datum rss

Zaslal/a husita 26.1.2014 17:29

ahoj všichni, abych nemusel klikat do bezvědomí "F2", "ENTER", pokusil jsem se použít násobení buněk ve sloupci číslem jedna. Funguje to, ale při velkém množství dat je to časově značně náročné. existuje nějaká jednodušší cesta převodu textového formátu na datum?

Zde je kód, který jsem použil

Range("B1").Select
Selection.Copy
Range("I4:I,K4:K,M4:M").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd\/mm\/yyyy;@"

děkuji za pomoc

Zaslat odpověď >
cmuch(26.1.2014 19:00)#017495
avatar
Buď použít pomocný sloupec nebo tak jak si dělal.

Ty data tam od někud vkládáš?citovat
husita(26.1.2014 19:41)#017499
avatar
ano, ta data jdou z textboxu v userformcitovat
husita(26.1.2014 21:51)#017500
avatar
Mám trochu problém s tím, že někdy to funguje a někdy ne a netuchám, gdě ašybka slučilas :-(citovat
cmuch(28.1.2014 6:28)#017530
avatar
No já pokud již mám sloupce naformátovány na formát který potřebuji tak po zápise do něj se mi hodnota zobrazí jak mám nastaveno.

Zkus si ty sloupce prvně naformátovat a pak do nich zapisuj.citovat
Palooo(28.1.2014 9:07)#017532
avatar
a co tak to rovno zapisat takto:
Range("I4:I6,K4:K6,M4:M6") = CDate(Range("B1"))citovat
husita(29.1.2014 20:49)#017599
avatar
Nakonec jsem se přiklonil k tomuto kódu
'Převod textu na datum
Range("V4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "dd\/mm\/yyyy;@"
Range("V4:V10000").Select
Selection.NumberFormat = "dd\/mm\/yyyy;@"
Selection.TextToColumns Destination:=Range("V4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

díky všem za ochotucitovat
cmuch(29.1.2014 21:01)#017601
avatar
Proč to neděláš rovnou TB při zápisu do buňky?citovat
husita(29.1.2014 22:48)#017603
avatar
Zkoušel jsem to, ale výsledek byl neuspokojivý.
Potřebuji datum ve formátu dd/mm/yyyy a ať jsem dělal co jsem dělal, vždy se mi uložil ve tvaru dd.mm.yyyy :-(citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje