Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как добавить текстовое окончание в ячейки? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как добавить текстовое окончание в ячейки? (Иное/Other)
Как добавить текстовое окончание в ячейки?
Alex_77 Дата: Среда, 10.08.2016, 17:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Доброго дня!

Нужно добавить в столбец с набором данных (цифры) в каждую ячейку текстовое окончание - .jpg. Возможно ли это сделать автоматически или только вручную? Заранее благодарен.
 
Ответить
СообщениеДоброго дня!

Нужно добавить в столбец с набором данных (цифры) в каждую ячейку текстовое окончание - .jpg. Возможно ли это сделать автоматически или только вручную? Заранее благодарен.

Автор - Alex_77
Дата добавления - 10.08.2016 в 17:51
Roman777 Дата: Среда, 10.08.2016, 17:53 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 703
Репутация: 75 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Alex_77, используйте символ "&" для соединения строк:
A&B = AB


Много чего не знаю!!!!
 
Ответить
СообщениеAlex_77, используйте символ "&" для соединения строк:
A&B = AB

Автор - Roman777
Дата добавления - 10.08.2016 в 17:53
Alex_77 Дата: Среда, 10.08.2016, 17:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Roman777, Спасибо Огромное!!! :D
 
Ответить
СообщениеRoman777, Спасибо Огромное!!! :D

Автор - Alex_77
Дата добавления - 10.08.2016 в 17:58
sv2014 Дата: Среда, 10.08.2016, 18:36 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
Alex_77, добрый вечер,вариант макроса кнопки test и повтор

[vba]
Код
Sub test()
   Dim x, i&: x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
    For i = 1 To UBound(x)
     If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), "'$&.jpg")
    Next
End With
   Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub
[/vba]
К сообщению приложен файл: example_10_08_2.xls(44Kb)
 
Ответить
СообщениеAlex_77, добрый вечер,вариант макроса кнопки test и повтор

[vba]
Код
Sub test()
   Dim x, i&: x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
    For i = 1 To UBound(x)
     If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), "'$&.jpg")
    Next
End With
   Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub
[/vba]

Автор - sv2014
Дата добавления - 10.08.2016 в 18:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как добавить текстовое окончание в ячейки? (Иное/Other)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!