[VBA] Διατύπωση δεκαδικού αριθμού

[gfevran]

Καλημέρα σε όλη την κοινότητα,
Σε μια userform textbox όταν βάζουμε ένα διψήφιο ή τριψήφιο αριθμό με δύο δεκαδικά
να διατυπώνεται το δεκαδικό με "." όχι με ","
να βγάζει μήνυμα αν βάλουμε "," ή να μετατρέπεται αυτόματα με "."
Ευχαριστώ για όποια βοήθεια!

[Tasos]

Καλησπέρα Γιώργο.

Δοκίμασε:

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    ' Πλήκτρο διαχωριστικού δεκαδικών = 110
    ' Πλήκτρο κόμματος = 188
    
    If KeyCode = 110 Or KeyCode = 188 Then
        KeyCode = 190
    End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    ' Επιτρέπει μόνο αριθμούς, τελεία και κόμμα.
    
    If Not (IsNumeric(ChrW(KeyAscii)) Or ChrW(KeyAscii) = "," Or ChrW(KeyAscii) = ".") Then
        KeyAscii = 0
    End If
End Sub


' Για έλεχγο και μετατροπή μετά από επικόλληση:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    ' Μετατρέπει το κόμμα σε τελεία για αμερικανική μορφή δεκαδικών
    Dim strText As String
    Dim decimalSeparator As String
    decimalSeparator = Application.International(xlDecimalSeparator)
    
    strText = TextBox1.text
    strText = Replace(strText, ",", decimalSeparator)
    strText = Replace(strText, ".", decimalSeparator)
    
    If IsNumeric(strText) Then
        If InStr(strText, ",") Then
            strText = Replace(strText, ",", ".")
        End If
        TextBox1.text = strText
    Else
        TextBox1.text = vbNullString
    End If
End Sub

Καλή συνέχεια!

Τάσος

[gfevran]

Καλησπέρα Τάσο.
Η πρόταση σου είναι ακριβώς αυτό που ήθελα, δούλεψε τέλεια.
Σε υπέρ Ευχαριστώ.

[Tasos]

Να είσαι καλά Γιώργο!

Καλό βράδυ.

Με εκτίμηση

Τάσος