MS Excel

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)#016207

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

Ma22(9.11.2013 21:29)#016224

Bohužel stále to opisuje celé datum a nevypisuje formát ww-yyyy.citovat

kp57(10.11.2013 10:23)#016236

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

cmuch(10.11.2013 11:24)#016239

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

Opičák(10.11.2013 11:46)#016240

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

cmuch(10.11.2013 12:02)#016241

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: zip

16241_uf-datum.zip (15kB, staženo 20x)

citovat

Opičák(10.11.2013 12:05)#016242

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

Opičák(10.11.2013 12:08)#016243

@ cmuch

mě ne. Mě to i do tb2 napíše datum, stejně jako je v tb1, ale on tam chce týden -rokcitovat

cmuch(10.11.2013 12:13)#016244

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: jpg