Stránka 1 z 1

Replace v makre VBA

Napsal: 16 led 2020 09:20
od tsibee
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 :)

Re: Replace v makre VBA

Napsal: 17 led 2020 08:13
od elninoslov

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