< návrat zpět

MS Excel

Téma: Textbox převod data rss

Zaslal/a Ma22 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ší »
kp57(9.11.2013 15:38)citovat#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 Sub
Ma22(9.11.2013 21:29)citovat#016224
avatar
Bohužel stále to opisuje celé datum a nevypisuje formát ww-yyyy.
kp57(10.11.2013 10:23)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 Sub
cmuch(10.11.2013 11:24)citovat#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.
Opičák(10.11.2013 11:46)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 Sub
cmuch(10.11.2013 12:02)citovat#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 21x)
Opičák(10.11.2013 12:05)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 Sub
Opičák(10.11.2013 12:08)citovat#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 -rok
cmuch(10.11.2013 12:13)citovat#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 26x)
16244_uf.jpg
Opičák(10.11.2013 12:18)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 9

Strana:  1 2   další »

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