< návrat zpět

MS Excel


Téma: Textbox převod data rss

Zaslal/a 8.11.2013 7:54

Zdravím,

mám dva Textboxy v Userform. Při otevření userform se mi vyplní data.

Private Sub UserForm_Initialize()
TextBox1.Value = Format$(Now, "dd.mm.yyyy")
TextBox2.Value = Format$(Now, "ww - yyyy")
End Sub

A pak potřebuji při změně v Textbox1 dosáhnout formátu v Textbox2 "ww - yyyy", ale to se mi nedaří, můžu prosím radu?

Private Sub TextBox1_Change()
TextBox2.Value = TextBox1.Value
TextBox2.Value = Format$(Value, "ww - yyyy")
End Sub

Díky

Zaslat odpověď >

Strana:  1 2   další »
#016207
avatar
Private Sub TextBox1_Change()
TextBox2.Value = Format(TextBox1.Value, "ww - yyyy")
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now, "dd.mm.yyyy")
End Subcitovat
#016224
avatar
Bohužel stále to opisuje celé datum a nevypisuje formát ww-yyyy.citovat
#016236
avatar
Fachčí ti to aspoň po Inicializaci ?
Mi to fachčí normal, pokud TB1 je datum.
Zkus:
Private Sub TextBox1_Change()
If IsDate(TextBox1) Then
TextBox2.Value = Format(TextBox1.Value, "ww - yyyy")
Else
TextBox2.Value = "CHYBA DATUM !!!"
End If
End Subcitovat
#016239
avatar
Mě to taky jde normálně

Private Sub UserForm_Initialize()
TextBox1.Value = Format$(Now, "dd.mm.yyyy")
TextBox2.Value = Format$(Now, "ww - yyyy")
End Sub

Private Sub TextBox1_Change()
TextBox2.Value = Format(TextBox1.Value, "ww - yyyy")
End Sub

Asi bude chyba jinde.
Pokud to stále nepůjde bude lepší vložit ukázku.citovat
#016240
Opičák
Mě to opisuje jen datum, tak jak píše Ma22.

zkus to takhle:
Private Sub UserForm_Initialize()
TextBox1.Value = Format$(Now, "dd.mm.yyyy")
TextBox2.Value = Format$(Now, "ww - yyyy")
End Sub
Private Sub TextBox1_Change()
On Error GoTo str_error
TextBox2.Value = TextBox1.Value
c = Split(TextBox2, ".")
xrok = CDbl(c(2)): xmes = CDbl(c(1)): xden = CDbl(c(0))
xdat = xrok & "/" & xmes & "/" & xden
xdat = DateValue(xdat)
TextBox2.Value = Format$(xdat, "ww - yyyy")
On Error GoTo 0
Exit Sub
str_error:
TextBox2.Value = "nesprávný format data"
On Error GoTo 0
End Subcitovat
#016241
avatar
Pokud zapíši datum ve formátu den, měsíc, rok nebo rok, měsíc, den tak to dělá co má.
Příloha: zip16241_uf-datum.zip (15kB, staženo 19x)
citovat
#016242
Opičák
vypuštěné nějaké ptákoviny:

Private Sub TextBox1_Change()
On Error GoTo str_error
c = Split(TextBox1, ".")
xrok = c(2): xmes = c(1): xden = c(0)
xdat = xrok & "/" & xmes & "/" & xden
xdat = DateValue(xdat)
TextBox2.Value = Format$(xdat, "ww - yyyy")
Exit Sub
str_error:
TextBox2.Value = "nesprávný format data"
On Error GoTo 0
End Subcitovat
#016243
Opičák
@ cmuch

mě ne. Mě to i do tb2 napíše datum, stejně jako je v tb1, ale on tam chce týden -rokcitovat
#016244
avatar
Hmm tak to nevím kde je problém,
ale když to zkusím ve verzi 2003,2007,2010 tak to zobrazuje jak má.
Příloha: jpg16244_uf.jpg (14kB, staženo 24x)
16244_uf.jpg
citovat
#016245
Opičák
já mám 2010 a userform se zobrazí tak, jak tobě, ale jakmile přepíšu TB1 , tak se TB2 zobrazí stejně jako TB1. Takže záhada hlavolamu ? 9 9 9 9citovat

Strana:  1 2   další »

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09