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

Вход

Регистрация

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

 

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

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

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

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

Нужно добавить в столбец с набором данных (цифры) в каждую ячейку текстовое окончание - .jpg. Возможно ли это сделать автоматически или только вручную? Заранее благодарен.
Автор - Alex_77
Дата добавления - 10.08.2016 в 17:51
Roman777 Дата: Среда, 10.08.2016, 17:53 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 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
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Roman777, Спасибо Огромное!!! :D
 
Ответить
СообщениеRoman777, Спасибо Огромное!!! :D
Автор - Alex_77
Дата добавления - 10.08.2016 в 17:58
sv2014 Дата: Среда, 10.08.2016, 18:36 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 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 (43.5 Kb)
 
Ответить
Сообщение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 из 1
  • 1
Поиск:

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