< návrat zpět

MS Excel


Téma: Převod textu na datum rss

Zaslal/a 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ěď >

#017495
avatar
Buď použít pomocný sloupec nebo tak jak si dělal.

Ty data tam od někud vkládáš?citovat
#017499
avatar
ano, ta data jdou z textboxu v userformcitovat
#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
#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
#017532
avatar
a co tak to rovno zapisat takto:
Range("I4:I6,K4:K6,M4:M6") = CDate(Range("B1"))citovat
#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
#017601
avatar
Proč to neděláš rovnou TB při zápisu do buňky?citovat
#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

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.

Aktivní diskuse

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32