Макрос который для каждого значение в ячейке до и после добавляет текст?

Question

[Александр Дерзкой]

Если было в ячейке Excel такое значение: M L XL
То нужно такое:
select:Размер:M:+0.0000:0:0:+0.00000000:1|select:Размер:L:+0.0000:0:0:+0.00000000:1|select:Размер:XL:+0.0000:0:0:+0.00000000:1|

Answer 1

[Пычев Анатолий]

И в чем Вам здесь помощь нужна?
Где пример Вашей наработки, в которой у Вас что то не получается?

Comments

[Александр Дерзкой]

У меня получается добавить только в начале каждого символа, но как добавить после не знаю...
Sub Add_Plus()

Dim r As Range

With Selection

For Each r In Selection
r.Value ="select:Размер:M" & r.Value
Next

End With

End Sub

[Пычев Анатолий]

Если строка " M L XL" Записана в одной ячейке, то вам сначала надо разбить строку на элементы, затем их изменить, затем собрать обратно

dim v as variant    ' массив элементов размеров
dim sData as string    ' строка обработки

For Each r In Selection 

' Удаляем лишние пробелы если есть
sData = WorksheetFuncion.trim(r.Value)

' В предположении что элементы разделяются пробелами, разбиваем строку в массив
v=split(sData, " ")

' теперь у нас в массиве отдельно все размеры
' делаем цикл по размерам
dim i as long
sData = ""
for i = lbound(v) to ubound(v)
   ' изменяем элементы
    v(i) = "select:Размер:" & v(i) & ":+0.0000:0:0:+0.00000000:1"
next i
' собираем строку обратно через символ "|"
sData = join(v, "|") 

Next

[Александр Дерзкой]

Пычев Анатолий, Странно,пишет Invalid outside procedure

[Пычев Анатолий]

Я накидал алгоритм.
Просто прогоните пошагово и найдите ошибку.

[Александр Дерзкой]

Да там походу библиотеку подключить нужно, но я не понимаю какую...

[Пычев Анатолий]

Ни какой библиотеки подключать не нужно.
Все стандартные функции.
Просто сейчас не у компа что бы прогнать.
Пробуйте, прочитайте справку о каждой функции, и когда поймёте алгоритм, все станет на свои места.

Answer 2

[Александр Дерзкой]

Если вдруг кому-то пригодится:

Private Sub Test() 'http://www.cyberforum.ru/vba/thread2445785.html
    Const template = "|select:Размер:<SIZE>:+0.0000:0:0:+0.00000000:1"
 
    Dim a, e, i&, t1$, t2$, cNBS$, cS$: cNBS = Chr$(160): cS = Chr$(32)
    a = Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp)).Value
    For i = 1 To UBound(a)
        t1 = Format$(Trim$(a(i, 1)), "0,000")
        t1 = Replace(t1, cNBS, cS) 'можно записать в одну строку
        For Each e In Split(t1)
            t2 = t2 & Replace(template, "<SIZE>", e)
        Next
        a(i, 1) = Mid$(t2, 2): t2 = ""
    Next
    Cells(2, "B").Resize(i - 1) = a 'Результат в соседний столбец (для наглядности)
End Sub