Hej!
Jag har 3 text rutor. Den ena ska ha decimaler. Men jag får inte det att fungera. Har tittat i hjälp filen, men det säger men inte så mycket.
Kan ni hjälpa mig?
Tack för era svar.
Decimalokunnig.

Kolla på Format-funktionen som du kan använda när användaren lämnar cellen.

/Pelle

Hej kamrat. Prova detta
Om du ska ha två decimaler i textrutan skriv:
Text1.text=round(Text1.text,2)
Om du ska ha 0 decimaler i textrutan skriv:
Text1.text=round(Text1.text,0)

lägg följande Funktioner i en modul:
Function sweval(ByVal w As String) As Double
Yz = InStr(w, ",")
If Yz > 0 Then Mid$(w, Yz, 1) = "."
sweval = Val(w)
End Function

Function Round(ByVal nValue As String, nDigits As Integer) As String
If sweval(nValue) = 0 Then Round = " ": Exit Function
ww = Int(sweval(nValue) * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
If nDigits = 0 Then
zy = ww
ElseIf nDigits = 1 Then
zy = Format(sweval(ww), "#0.0")
ElseIf nDigits = 2 Then
zy = Format(sweval(ww), "#0.00")
ElseIf nDigits = 3 Then
zy = Format(sweval(ww), "#0.000")
End If
xy = InStr(zy, ","): If xy > 0 Then Mid$(zy, xy, 1) = "."
Round = zy
End Function

Hälsningar Lurvas