В Excel выпадающий список с условием

Я искал некоторое время, не будучи в состоянии найти решение моей проблемы.
A иметь таблицу с именем tbl_lov, содержащую список значений, используемых в раскрывающемся списке с помощью косвенной функции. INDIRECT ("tbl_lov[ProjNR]")

поскольку проекты приходят и уходят, у меня есть столбец на tbl_lov с именем active, который содержит значение True или False. Если это ложь, я не хочу, чтобы это значение было показано в раскрывающемся списке. К сожалению, я еще не понял, как я могу сделать это напрямую.

8
задан Alexandre Alves
17.01.2023 18:34 Количество просмотров материала 2448
Распечатать страницу

1 ответ

как кажется, что ничего не тривиальным путем, используя только ему функции, я решил с помощью макроса ( я хотел бы избежать).

Dim all_lov As Variant
Dim row_nr As Integer

Sub Button1_Click()
    Worksheets("LoV").Range("I:N").Delete
    row_nr = 3
    all_lov = Worksheets("LoV").ListObjects("tbl_lov").DataBodyRange.Value
    Worksheets("LoV").Range("B3:G3").Copy Worksheets("LoV").Range("I3")
    For i = 1 To UBound(all_lov)
        If all_lov(i, 6) = True Then
            row_nr = row_nr + 1
            Worksheets("LoV").Range("B" & (3 + i) & ":G" & (3 + i)).Copy Worksheets("LoV").Range("I" & row_nr)
        End If
    Next i
    Worksheets("Lov").ListObjects.Add(SourceType:=xlSrcRange, Source:=Worksheets("LoV").Range("I3:N" & row_nr), xlListObjectHasHeaders:=xlYes, tablestyleName:="TableStyleDark3").Name = "tbl_lovActive"
End Sub

это будет повторяться thourgh мою существующую таблицу и скопировать в новый диапазон только активные проекты. Проверка данных указывает на новую таблицу.

0
отвечен Alexandre Alves 2023-01-19 02:22

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх