В пользовательской форме, когда я сталкиваюсь с пробелом, я просто хочу дать сообщение об ошибке с удалением только пробела?

Question

Код для простого удаления пробела в поле ввода пользовательской формы в vba, а не для всех данных

Answer 1

Вы можете определить событие KeyDown для вашего TextBox и запретить пробелы:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeySpace Then KeyCode = 0
End Sub

С этим кодом пользователь не может вводить пробелы вообще.Недостатком этого является то, что пользователь все еще может копировать / пропускать пробелы в TextBox.

С помощью события Change вы также можете предотвратить это:

Private Sub TextBox1_Change()
    TextBox1.Value = Replace$(TextBox1.Value, " ", "")
End Sub

Это будетзамените также вставленные пробелы.

Answer 2

Вы можете использовать Заменить, чтобы удалить пробел.Если текст содержится в переменной s, то

 s=Replace(s," ","")

удалит все пробелы из содержимого s