Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление пробела и удаление лишних пробелов после сокращений
 
#1
03.03.2017 01:05:44
Здравствуйте, подскажите, пожалуйста, как можно макросом сделать так, чтобы после определенных сокращений в ячейке( "ст.", "крт.", "фл.", "орт.") удалялись лишние пробелы после них и добавлялся пробел, если его нет. В ячейке, после сокращений идет текст и числа, например "ст. текст, числа".
 
 
 
#2
03.03.2017 11:23:35
Приложите файл-пример. Непонятно, что такое лишние пробелы и что идет после них.
F1 творит чудеса
 
 
 
#3
03.03.2017 12:33:23
Лишние пробелы, это когда пробелов больше 2х, а также начальные и конечные пробелы.
 
 
 
#4
03.03.2017 12:53:43
Цитата
как можно макросом сделать так
UDF
Код
Function iSpace(cell As String) As String
  iSpace = WorksheetFunction.Trim(Split(cell, ".", 2)(0)) & ". " _
  & WorksheetFunction.Trim(Split(cell, ".", 2)(1))
End Function
 
 
 
#5
03.03.2017 16:11:43
Kuzmich, простите, а куда вставлять его? Выдаёт ошибку, когда в ставлю в Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
 
#6
03.03.2017 16:17:42
информативный пример
Лень двигатель прогресса, доказано!!!
 
 
 
#7
03.03.2017 16:34:44
Сергей, я написала, что такое лишние пробелы, файл показан для примера, какой текст в ячейке идет. По названию темы понятно, что проблема идет после сокращений
 
 
 
#8
03.03.2017 16:52:13
Цитата
а куда вставлять его?
В стандартный модуль, Почитайте, что такое UDF
 
 
 
#9
03.03.2017 17:06:22
Kuzmich, спасибо большое, разобралась.
 
 
 
Страницы: 1
Наверх