Zdravím,
prosím niekto by mi helpnul s makrom.
CHcem docieliť, že ak opustím textbox1 tak sa mi v retazci cisla prida pred posledne dvojcislo ciarka napr. zadam 123456 a mi to zmení na 1234,56 dalsi priklad 546213 zmeni 5462,13.
ja som spravil nasledujúci zápis, ale nefunguje:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Replace(TextBox1, Len(TextBox1) - 1, 0, ",")
End Sub
Dakujem :)
Replace v makre VBA
Replace v makre VBA
- Přílohy
-
- cvic.xlsm
- (12.43 KiB) Staženo 40 x
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Replace v makre VBA
Kód: Vybrat vše
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim T As String
T = TextBox1.Text
If InStr(1, T, ".") = 0 And InStr(1, T, ",") = 0 And T <> "" And IsNumeric(T) Then
TextBox1.Text = Val(T) / 100
End If
End Sub
Kdo je online
Uživatelé prohlížející si toto fórum: Seznam[Bot] a 3 hosti