Új hozzászólás Aktív témák

• #50472 Delila_1 veterán Lasersailing #50470

  Új Válasz 2023-02-13 13:40:54 #50472

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Lasersailing #50470 üzenetére

  Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ujszoveg As String
If Len(TextBox1) = 60 Then
ujszoveg = Left(TextBox1, 23) & Mid(TextBox1, 41, 60)
TextBox1.Value = ujszoveg
End If
End Sub

• #50471 Lasersailing senior tag Lasersailing #50470

  Új Válasz 2023-02-13 13:19:18 #50471

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lasersailing

  senior tag

  válasz Lasersailing #50470 üzenetére

  Úgy látom, a replace megoldja (nem csak a hosszát, hanem a karaktersorozatot is ismerem)

Új hozzászólás Aktív témák