kadir78
Altın Üye
- Katılım
- 6 Nisan 2016
- Mesajlar
- 227
- Excel Vers. ve Dili
- office 2019
- Altın Üyelik Bitiş Tarihi
- 30-12-2026
İyi günler. Aşağıdaki kodlar ile textbox1 içinde bulunan karakter sayısını saydırıyorum fakat bir sorunu çözemedim. Textbox1 içerisinde alt satıra enter ile geçince 2 karakter sayıyor. Bu 2 karakterin sayılmasını engellemek istiyorum fakat çok araştırdım bir çözüm bulamadım. Yardımcı olurmusunuz.
EnterKeyBehavior = True
MultiLine = True
EnterKeyBehavior = True
MultiLine = True
Kod:
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim mytext As String, mytext2 As String
Dim lines() As String
Dim i As Integer
Dim maxlen As Integer
If Len(TextBox1.Value) > 100 Then
TextBox1.Value = Left(TextBox1.Value, 100)
MsgBox "En Fazla 100 Karakter Yazılabilir !", vbInformation
Else
lines = Split(TextBox1.Value, vbCrLf)
If UBound(lines) > 4 Then
On Error GoTo git
mytext = Me.TextBox1.Value
lines() = Split(mytext, vbNewLine)
ReDim Preserve lines(UBound(lines) - 1)
mytext = Join(lines, vbNewLine)
Me.TextBox1.Value = mytext
MsgBox "En Fazla 5 Satır Yazılabilir !", vbInformation
End If
End If
mytext2 = Me.TextBox1.Value
lines() = Split(mytext2, vbNewLine)
maxlen = 20
For i = LBound(lines) To UBound(lines)
lines(i) = Left(lines(i), maxlen)
Next i
mytext2 = Join(lines, vbNewLine)
Me.TextBox1.Value = mytext2
Label5.Caption = 100 - Len(TextBox1.Value) & " - " & Len(mytext2)
git:
End Sub
Son düzenleme: