Имеется некий код VBA (найден в интернете) который позволяет наполнять ячейку значениями выбранными из выпадающего списка. Значения наполняются через кому, а мне надо чтобы перед последним выбранным значением ставилась буква "и" или другой текст которую указан Чтобы получалось: если два значения Текст1 и Текст2, если три и более значения Текст1, Текст2 и Текст3. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("BM2:BM10")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & ", " & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub
[/vba]
Здравствуйте
Имеется некий код VBA (найден в интернете) который позволяет наполнять ячейку значениями выбранными из выпадающего списка. Значения наполняются через кому, а мне надо чтобы перед последним выбранным значением ставилась буква "и" или другой текст которую указан Чтобы получалось: если два значения Текст1 и Текст2, если три и более значения Текст1, Текст2 и Текст3. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("BM2:BM10")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & ", " & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub
Вопрос об этом же макросе, но немножко другое. 1. Как заставить Этот макрос ссылаться на диапазон данных из столбца умной таблицы. Чтобы постоянно не редактировать диапазон А указать так Таблица[Имя столбца] И если умная таблица увеличится макрос, будет охватывать также и новые строки таблицы
2. Как заставить этот макрос работать из общего файла с макросами (чтобы его не было в файле с данными)
Спасибо
Здравствуйте.
Вопрос об этом же макросе, но немножко другое. 1. Как заставить Этот макрос ссылаться на диапазон данных из столбца умной таблицы. Чтобы постоянно не редактировать диапазон А указать так Таблица[Имя столбца] И если умная таблица увеличится макрос, будет охватывать также и новые строки таблицы
2. Как заставить этот макрос работать из общего файла с макросами (чтобы его не было в файле с данными)
2. Как заставить этот макрос работать из общего файла с макросами (чтобы его не было в файле с данными)
1. Создаем файл с макросом 2. Сохраняем как "Надстройка эксель" с расширением .xlam 3. Кладем в C:\Users\ваш юзер\AppData\Roaming\Microsoft\AddIns 4. В эксель параметры - надстройки - внизу управление - перейти... - обзор - выбираем файл - ставим галочку если не поставилась - ок
Или можно его еще положить в C:\Users\...\AppData\Roaming\Microsoft\Excel\XLSTART
2. Как заставить этот макрос работать из общего файла с макросами (чтобы его не было в файле с данными)
1. Создаем файл с макросом 2. Сохраняем как "Надстройка эксель" с расширением .xlam 3. Кладем в C:\Users\ваш юзер\AppData\Roaming\Microsoft\AddIns 4. В эксель параметры - надстройки - внизу управление - перейти... - обзор - выбираем файл - ставим галочку если не поставилась - ок
Или можно его еще положить в C:\Users\...\AppData\Roaming\Microsoft\Excel\XLSTARTelovkov
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
Сообщение отредактировал elovkov - Четверг, 16.10.2025, 08:15
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
