Excel If оператор для установки ячейки выпадающего списка - PullRequest
Новая
       16

Excel If оператор для установки ячейки выпадающего списка

0 голосов
/ 28 мая 2018

У меня есть электронная таблица, которая отслеживает задачи с помощью выпадающих списков, которые включают значения B, G, Y, A и N / A.Номер каждого статуса вычисляется в верхней части листа с помощью оператора count if.

Я надеюсь добавить еще один выпадающий список над каждым разделом, используя то же, что и выше.Таким образом, вы можете выбрать N / A для команды.При выборе N / A для команды мне нужно, чтобы раздел строк также был установлен на N / A и скрывать линии.

Я изо всех сил пытаюсь понять, что я должен добавить, чтобы установить ячейки в N / A - Пожалуйста, кто-нибудь может помочь.

Private Sub Worksheet_Change (ByVal Target As Range) 

If Range("G13") = "N/A" Then

Установить ячейки E14-E22 в N / A и скрыть строки 14 - 22 * ​​1011 * 

    'Range("14:22").EntireRow.Hidden = True'


    Else
    Range("14:22").EntireRow.Hidden = False

End If

End Sub

Подробная информация о триггерных ячейках

Целевая триггерная ячейка Диапазон ячеек G13 Строка 14 - 22 * ​​1019 *

Целевая триггерная ячейка Диапазон ячеек G23 Строка 24

Целевая триггерная ячейка g 25
Строка диапазона ячеек 26 - 27

Целевая триггерная ячейка G28 Строка диапазона ячеек 29 - 30

Целевая триггерная ячейка G31
Строка диапазона ячеек 32- 34

Целевая триггерная ячейка Диапазон ячеек G35 Строка 36 - 38

Целевая триггерная ячейка Диапазон ячеек G39 Строка 30 - 41

Целевая триггерная ячейка Диапазон ячеек G42 Строка 43 - 44

Целевая триггерная ячейка Диапазон ячеек G45 Строка 46 - 49

Целевая триггерная ячейка Диапазон ячеек G50 Строка 51 -54

Целевая триггерная ячейка Диапазон ячеек G55 Строка 56 - 57

Целевая триггерная ячейка Диапазон ячеек G58, ряд 59 - 61

Целевая триггерная ячейка, диапазон ячеек G62, ряд 63 - 68

Целевая триггерная ячейка Строка диапазона G69, ряд 70 - 83

Целевая триггерная ячейка Строка диапазона G84, 85 - 87

Целевая триггерная ячейка Строка диапазона G88, строка 89 - 97

Целевая триггерная ячейка G98 Строка диапазона ячеек 99 - 104

Целевая триггерная ячейка G105 Строка диапазона ячеек 106 - 111

Целевая триггерная ячейка G112 Строка диапазона ячеек 113 - 115

Целевая триггерная ячейка G116 Строка диапазона ячеек 117 - 118

Целевая триггерная ячейка G119 Строка диапазона ячеек 120 - 124

Целевая триггерная ячейка G125
Строка диапазона ячеек 126 - 128

Целевая триггерная ячейка G129
Строка диапазона ячеек 130 - 137

Целевая триггерная ячейка G138 Строка диапазона ячеек 139 - 145

Целевая триггерная ячейка G146 Строка диапазона ячеек 147

1 Ответ

0 голосов
/ 28 мая 2018

Если ваша триггерная ячейка G13, G23, G33 и т. Д., Тогда 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("G:G")) Is Nothing And _
           (Target.Row Mod 10) = 3 And _
           Target.Row >= 13 Then
        On Error GoTo meh
        Application.EnableEvents = False
        With Target.Offset(1, -2).Resize(9, 1)
            If Target.Value2 = "N/A" Then
                .Value = "N/A"
                .EntireRow.Hidden = True
            Else
                .Value = vbNullString
                .EntireRow.Hidden = False
            End If
        End With
    End If
meh:
    Application.EnableEvents = True

End Sub
...