Выпадающий список с наполнением в ячейке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выпадающий список с наполнением в ячейке (Иное/Other)

Shakal07

Дата: Четверг, 11.09.2025, 07:47 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 64

Репутация: 0 ±

Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19

Здравствуйте

Имеется некий код 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]