Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автозамена с переменными из соседней ячейки
 
#1
13.09.2017 10:59:52
Подскажите как реализовать автозамену, в которо будет переменная данные для которой будут браться из соседней ячейки?
Возможно более понятно будет на гифке:

А если в столбце с переменными, несколько значений, то и по автозамене должно вставляться несколько значчений.
Опять же покажу на гифке:

Как это возможно реализовать?
Изменено: Jesprit - 18.09.2017 10:32:49
 
 
 
#2
13.09.2017 11:13:17
Выполните макрос
Код
Sub AutoCorrect()
    With Application.AutoCorrect
        .AddReplacement What:="555", Replacement:=Range("B2").Value
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .DisplayAutoCorrectOptions = True
    End With
End Sub
где What - ЧТО меняем, Replacement - Ячейка, в которой значение на которое автозаменяем
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
13.09.2017 11:37:07
Но марос не поможет в случае второй гифки.
 
 
 
#4
14.09.2017 09:39:53
Возможна ли вообще реализация моей задачи в excel?
 
 
 
#5
14.09.2017 09:50:04
приложите не гифки а файл эксель с возможными вариантами данных может кто и поможет
Лень двигатель прогресса, доказано!!!
 
 
 
#6
14.09.2017 10:21:26
Не уверен что чем то поможет сам файл.

Чего нужно сделать, отображено на гифках, в реале сейчас это не работает так.
Суть задачи:
Когда в столбце A я пишу %ИЗОБ этот набор букв и символов должен заменяться на <IMG=http://127.0.0.1/imgXXX.img> где XXX берется из соседнего столбца B.
Если в столбце B более одного значения, они через запятую написаны, то при написании %ИЗОБ должна произойти автозамена в соответствии с количеством значений в столбце B. Т.е. Если в столбце B указано 75,45, то %ИЗОБ должна замениться на <IMG=http://127.0.0.1/img75.img><IMG=http://127.0.0.1/img45.img>

По сути все это я показал в гифка что в шапке.
 
 
 
#7
14.09.2017 10:34:43
Цитата
Jesprit написал:
Не уверен что чем то поможет сам файл
А зря.
Код
Sub FindImage()
Dim i&, y&, lstr, x&
lstr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lstr
    x = UBound(Split(Cells(i, 1), "img"))
    For y = 1 To x Step 2
        Cells(i, 2) = Cells(i, 2) & "," & Split(Cells(i, 1), "img")(y)
    Next y
    Cells(i, 2) = Replace(Mid(Cells(i, 2), 2, 100), ".", "")
Next
End Sub
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#8
15.09.2017 10:37:46
Так и не понял что именно делает макрос, но явно не то, что описано в сообщении №6
 
 
 
#9
15.09.2017 10:56:19
Цитата
Jesprit написал:
но явно не то, что описано в сообщении №6
Где то, которое не то?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
18.09.2017 09:01:28
Возможно я не корректно описал задачу.
Так как нажатие каких либо доп.кнопок точно не нужно.
На видео я подробно показал, что хочу реализовать
 
 
 
Страницы: 1
Читают тему
Наверх