Связывание ячеек

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

Связывание ячеек (Макросы/Sub)

Связывание ячеек

Vitaliy258369

Дата: Среда, 09.04.2014, 00:49 | Сообщение № 1

Группа: Гости

Ребята, помогите пожалуйста с макросом
Хочу связать ячейки на трех листах
Но связать по конкретному диапазону.
Использовал следующий код, но он связывает листы полностью.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Лист2").Cells(Target.Row, Target.Column) = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Лист1").Cells(Target.Row, Target.Column) = Target.Value
End Sub

И он работает, только когда ставишь значения ячейки,
а когда очищаешь значения эксель вылетает.
Буду очень благодарен

Ответить

Alex_ST

Дата: Среда, 09.04.2014, 09:07 | Сообщение № 2

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

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

Сообщений: 3219

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

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

2003

У вас зацикливается обработчик событий при изменении ячеек листов. Надо отключать обработку событий на время работы макроса.
А ограничить область работы совсем просто.
В модуле листа1 пишем[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, [A1:E16]) Is Nothing Then
        Application.EnableEvents = False
        Sheets("Лист2").Cells(Target.Row, Target.Column) = Target.Value
        Application.EnableEvents = True
     End If
End Sub

[/vba]а в модуле листа2[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, [A1:E16]) Is Nothing Then
        Application.EnableEvents = False
        Sheets("Лист1").Cells(Target.Row, Target.Column) = Target.Value
        Application.EnableEvents = True
     End If
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 09.04.2014, 09:08

Ответить

Vitaliy258369

Дата: Среда, 09.04.2014, 11:58 | Сообщение № 3

Группа: Гости

Alex_ST,
Спасибо большое

Все работает!
Удачи

Ответить

Связывание ячеек (Макросы/Sub)

Страница 1 из 1
1