Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Вставка текста в ячейку + добавление нового текста

Автор dance3, 30.04.2014, 14:16

« назад - далее »

dance3

Здравствуйте! Помогите пожалуйста решить следующую проблему, есть колонка с данными, туда в ручную копируются определенные данные и каждый раз к скопированному тексту нужно прибавить .jpg   Можно ли как-то настроить столбец, чтобы он автоматом прописывал .jpg к копируемому тексту? Спасибо!

cheshiki1

в модуль листа
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 1 Then Exit Sub
If Target <> "" Then Target = Target.Value & ".jpg"
Application.EnableEvents = True
End Sub
работает только в столбце А.

dance3

Цитата: cheshiki1 от 30.04.2014, 21:04
в модуль листа
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 1 Then Exit Sub
If Target <> "" Then Target = Target.Value & ".jpg"
Application.EnableEvents = True
End Sub
работает только в столбце А.
Скажите пожалуйста как запустить данный код?

cheshiki1

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

dance3

Цитата: cheshiki1 от 05.05.2014, 12:11
он сам запускается при внесении данных в ячейку столбца А листа в модуль которого вставлен код.
В 2013 Excel не понимаю как вставить макрос в модуль. Может знаете?

cheshiki1

переходите на нужный лист и жмете ALT+F11, откроется новое окно VB с курсором в модуле текущего листа.