Trim

[0creator0]

Здравствуйте, подскажите, пожалуйста, как решить следующую задачу, у меня есть текст, который вставляется в TextBox ,а затем в поле Variables, а это поле содержит пробелы и вот я хотел убрать пробелы из этого поля и присвоить этот текст в другое, вот что получилось, что не так?

.Variables("Лист").Value = Trim(.Replace(.Variables("Название_ комплекта").Value, " "))

И второй вариант, и то же не рабочий .

.Variables("Лист ").Value = Trim(.Variables("Название_комплекта ").Value)

[Ципихович Эндрю]

что у Вас за отрывки, если есть точка, тогда надо больше код выкладывать, чтобы понимать что сокращено под точкой
первый из двух отрывков работать не будет, учитесь добавлять $ перед Trim, Replace, MsgBox то есть Trim$, Replace$, MsgBox$ и других Ригхт, Лефт, Mид

[0creator0]

Подскажите, пожалуйста, как сделать что б при в воде в TextBox один и тот же текст , в дном поле был без удаления пробелов , а в другой с удалением пробелов?

[Казанский]

Попробуйте такую функцию:

Function TrimAll(s As String) As String

'Удаляет пробелы в начале и конце строки,
'заменяет кратные пробелы внутри строки на одиночные пробелы
'аналогично функции Application.Trim в Excel

Dim i&, j&
TrimAll = Trim$(s)
j = Len(TrimAll)
Do
    i = j
    TrimAll = Replace$(TrimAll, "  ", " ")
    j = Len(TrimAll)
Loop Until i = j
End Function

[0creator0]

Казанский, спасибо, ваша функция очень помогла, скажите, пожалуйста, какую роль в вашей функции играет i&, j& , а не просто i, j
А так же зачем ставятся $ - Trim$, Replace$
И какова роль i = j (Это для перебора пока не встретит первую букву значит Trim закончен?)

[Казанский]

i& - объявление типа Long, то же, что i As Long. Арифметика Long самая быстрая в VBA (быстрее, чем Integer и Byte).
Текстовые функции без $ возвращают данные типа Variant, а с $ - типа String, и это работает немного быстрее.

В этой функции i - длина строки до замены двойных пробелов на одиночные, j - длина строки после замены. Если i=j, то двойных пробелов больше нет, и происходит выход из цикла.