Запуск макроса на двух листах при изменении ячейки на одном

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса на двух листах при изменении ячейки на одном (Макросы/Sub)

ttv

Дата: Четверг, 26.10.2017, 10:16 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2013

Здравствуйте!
В файле 2 листа. На первом в ячейку F22 вручную вносится значение. Надо чтобы макрос это значение встраивал в текст колонтитула, но не только на первом листе, но и на втором.
Сам макрос "колонтитул" работает, автоматический запуск на 1 листе могу сделать, через код [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("F22"), Target) Is Nothing Then
        Call колонтитул
    End If
End Sub

[/vba]
а как переписать этот код так, чтобы и на втором листе макрос выполнялся автоматически? В модуль книги его ложу, но он не выполняется при изменении ячейки.

К сообщению приложен файл: 002.xls (63.5 Kb)

Сообщение отредактировал ttv - Четверг, 26.10.2017, 10:21

Ответить

sboy

Дата: Четверг, 26.10.2017, 11:06 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Добавить в макрос колонтитул ссылку на лист
[vba]

Код

Sub колонтитул(ByRef sh As Worksheet)
With sh.PageSetup
.CenterHeader = "Протокол испытаний №" & [Лист1!F22]
End With
End Sub

[/vba]
а макрос можно так переписать (если листов больше, то лучше циклом сделать)
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("F22"), Target) Is Nothing Then
        Call колонтитул(ActiveSheet)
        Call колонтитул(Sheets("Лист2"))
    End If
End Sub

[/vba]