Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Умная таблица с выпадающим списком, которая пополняется.
 
#1
21.02.2020 10:30:58
В файле создано 3 умные таблицы, на разных листах.
1)Входной_контроль (На листе М-л) 2)Лабораторный_контроль(На листе Л-я) 3)Таблица 18(На листе Т.АОСР)
После в таблице Входной_контроль создал именованный диапазон "Материал"
                     в  таблице Лаборатория создан именованный диапазон "Лаборатория"

Прописан Макрос.... По задумке... в Таблице 18(На листе Т.АОСР) В столбце Материал и Лаборатория должен быть выпадающий список, который пополняется.
Но Где то допущена ошибка
другие столбцы работают коряво (Наименование работ)
И вновь созданные строки не удаляются.
Приходится по два раза нажимать "Enter"
Помогите пожалуйста.  
Изменено: VOOLF - 21.02.2020 12:48:00
 
 
 
#2
21.02.2020 11:06:46
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    'On Error Resume Next
    If (Cells(2, Target.Column).Value = "Материал") 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
   ElseIf (Cells(2, Target.Column).Value = "Лаборатория") 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
Может так.
 
 
 
#3
21.02.2020 11:35:17
Все ОК. спасибо.
 
 
 
Страницы: 1
Наверх