09-11-16, 17:13
|
Όνομα: Αλέξανδρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2010 Περιοχή: ΑΡΤΑ
Μηνύματα: 521
| |
Αντικατάσταση αριθμού σε πλαίσιο κειμένου
Καλησπέρα σε όλους τους φίλους
θέλω να κάνω μια αντικατάσταση αριθμών σε πλαίσιο κειμένου με ορισμένες προυποθέσεις:
Είτε με after update είτε με κουμπί εντολής
1)Όταν μετά από τελεία ή κενό υπάρχει ο αριθμός 0 να γίνεται αντικατάσταση σε αριθμό 8
2) όταν πριν από τελεία .κόμμα, κενό ,θαυμαστικό ,ανω κατω τελεία , ερωτηματικό υπάρχει ο αριθμός 0 να γίνεται αντικατάσταση σε αριθμό 8.
εχω κάνει με την συνάρτηση trim αλλά μου xχτυπάει Κώδικας: Dim s As String, EndChars As Variant, i As Long
's = 0
If Nz(Me.TextBox2, "") <> "" Then
s = Trim(Me.TextBox2) & " "
'Χαρακτήρες μετά από μία λέξη
EndChars = Array(",", ".", ";", ":", "•", " ")
For i = 0 To UBound(EndChars)
s = Replace(s, "8" & EndChars(i), "0" & EndChars(i))
Next
Me.TextBox2 = s
End If
End Sub
|