Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[VBA] Сделать подсчет символов в ячейке и если их меньше 50, то прибавить в конце пробел/пробелы
 
#1
06.08.2018 13:49:50
Добрый день.

Имеется в столбике А заполненые ячейки (очень много) и надо привести их длину к 50-ти символам. Если же в ячейке символов меньше 50-ти, то надо прибавить в конце пробелы. (Изначально все ячейки имеют длину меньше или равно 50-ти символов)
Средствами VBA.
Например было:
"Иванов Иван Иванович"
"Иванов Иван Иванович                              "

Решено, спасибо.
Изменено: PROFF84 - 06.08.2018 15:32:13
 
 
 
#2
06.08.2018 14:05:53
Добрый день! Сколько нужно добавить пробелов? Мы должны угадать?

P.S.: ступил! Нужно добить до 50ти) сейчас не могу, нет доступа к компьютеру(
Изменено: ADimov - 06.08.2018 14:09:05
 
 
 
#3
06.08.2018 14:08:38
Цитата
ADimov написал:
Добрый день! Сколько нужно добавить пробелов? Мы должны угадать?
Столько, чтобы в сумме количество символов в ячейке получилось в итоге 50
Изначально будут от 1 до 50 символов в ячейке (будут фио корректные и не корректные).
 
 
 
#4
06.08.2018 14:10:34
Только это можно сделать и формулами) зачем VBA?)
 
 
 
#5
06.08.2018 14:11:45
Вариант формулой
=A1&ПОВТОР(" ";50-ДЛСТР(A1))
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#6
06.08.2018 14:13:23
Цитата
ADimov написал:
Только это можно сделать и формулами) зачем VBA?)
потому что делается часть функционала (здесь его не писал), который выгружает эти фио из другой базы и надо чтобы все было едино
 
 
 
#7
06.08.2018 15:22:28
Может эту формулу доработать сможет кто?
Код
For i = 1 To ActiveSheet.UsedRange.Rows.Count
        DoEvents
        'If Range("A" & i) = "" Then Exit Do
        If Len(CStr(Range("A" & i))) < 70 Then
           'тут добавление пробелов как сделать?
           
        End If
    Next
Изменено: PROFF84 - 06.08.2018 15:23:02
 
 
 
#8
06.08.2018 15:31:33
Спасибо за помощь, проблема решена. Прошу закрыть тему
Использовал (мне помогли)
Код
Application.WorksheetFunction.Rept
Изменено: PROFF84 - 06.08.2018 15:31:49
 
 
 
#9
06.08.2018 15:33:21
Код
            Range("A" & i) = Range("A" & i) & Space(70 - Len(Range("A" & i)))
По вопросам из тем форума, личку не читаю.
 
 
 
#10
06.08.2018 15:35:19
Range("A" & i)=Range("A" & i) & Space(50 - Len(Range("A" & i)))
 
 
 
#11
06.08.2018 15:45:34
Код
Range("a" & i) = Range("a" & i) & String(50 - Len( Range("a" & i) ), " ")
Изменено: Nordheim - 06.08.2018 15:48:42
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#12
06.08.2018 17:30:19
С любой исходной длиной строки
Код
Range("A" & i) = Left(Range("A" & i) & Space(50), 50)
Владимир
 
 
 
#13
06.08.2018 17:59:43
sokol92,  Владимир, приветвую, на сколько я понимаю, то ТС был нужен вариант записи Nго числа пробелов, в результате аж 3 решения ну а Ваш вариант (которым в формулах я не редко пользуюсь) можно дополнить  в лоб просто добавить 50 пробелов :-)
Код
Range("A" & i) = Left(Range("A" & i) & "                                                    ", 50)


К слову не так он и плох, естесвенно при числе символов менее чем запись формулы со STRING или Space ( хотя и проиграет наглядности.
По вопросам из тем форума, личку не читаю.
 
 
 
#14
06.08.2018 20:21:18
Еще пара вариантов
Код
  s = Space$(50)
  LSet s = "Иванов"
Обычно такое бывает нужно при выводе в файл (с последующей распечаткой). Можно так
Код
  Print #file, "Иванов"; Tab(51)
 
 
 
Страницы: 1
Наверх