Някой може ли да каже как да направя така, че проклето тире което ми се появява в текстбокс 5 да не се появява
ето кода :
Private Sub UserForm_Activate()
Dim MyString As String
Dim Digits As String
Dim Letters As String
Dim i As Long
Dim StrLen As Long
Digits = ""
Letters = ""
MyString = "АП - 53"
StrLen = Len(MyString)
For i = 1 To StrLen Step 1
If Asc(Mid(MyString, i, 1)) >= 48 And Asc(Mid(MyString, i, 1)) <= 57 Then
Digits = Digits + Mid(MyString, i, 1)
Else
Letters = Letters + Mid(MyString, i, 1)
End If
ComboBox1 = MyString
TextBox5 = Letters
TextBox4 = Digits
Next i
End Sub
Тоест в else декларацията да направя така , че да се появават само букви на кирилица, а не препинателни знаци
Благодаря !
Отговор
За печат
Коментар