Объединение нескольких процедур в одну

Старая форма входа

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

Объединение нескольких процедур в одну (Макросы/Sub)

Dion

Дата: Пятница, 16.10.2020, 17:25 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

Excel 2016

Добрый день!
Имеется рабочая процедура
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
' Изменение шрифта ...
    If Intersect(Target, Range("E4")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(16, 18).Font.Size = 18
        Target.Offset(16, 21).Font.Size = 28
    Else
        Target.Offset(16, 18).Font.Size = 14
        Target.Offset(16, 21).Font.Size = 24
    End If
End Sub

[/vba]
Подскажите, пожалуйста, как в неё добавить ещё несколько процедур? Если просто вставить, то код не работает.
[vba]

Код

    If Intersect(Target, Range("E5")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(18, 18).Font.Size = 18
        Target.Offset(18, 21).Font.Size = 28
    Else
        Target.Offset(18, 18).Font.Size = 14
        Target.Offset(18, 21).Font.Size = 24
    End If

[/vba]

[vba]

Код

    If Intersect(Target, Range("E6")) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(21, 18).Font.Size = 18
        Target.Offset(21, 21).Font.Size = 28
    Else
        Target.Offset(21, 18).Font.Size = 14
        Target.Offset(21, 21).Font.Size = 24
    End If

[/vba]

Ответить

Pelena

Дата: Пятница, 16.10.2020, 18:53 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Ну, в предыдущей теме ведь был пример

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Dion

Дата: Пятница, 16.10.2020, 19:39 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

Excel 2016

Pelena, тут немного другая ситуация. Проверяемые и редактируемые ячейки находятся в разных частях листа и простой проверкой одной ячейки и редактированием соседней не получается. Нужно именно сделать проверку каждой
ячейки E4, E5, E6 и отформатировать соответственно другие, разбросанные по листу
ячейки W20 и Z20, W23 и Z23, W26 и Z26

По отдельности коды работают, но когда я вставляю их в одну процедуру, то выполняется только первый код. Помогите, пожалуйста, объединить их (всего таких проверок у меня на листе 16 штук).