Как отразить клетки в Excel 2013

Question

Я хочу сделать файл Excel для управления продажами моей компании. В Excel, который я создал, есть 4 листа, и каждый лист обрабатывается разными людьми.

Я хочу посвятить первый столбец этих листов статусу каждого заказа таким образом, чтобы при изменении статуса на листе номер один столбец статуса на других 3 листах тоже менялся. Также, когда другой человек меняет статус на листе № 2, листы № 1,3 и № 4 тоже меняются.

Является ли это возможным? Если так, как я могу это сделать?

Answer 1

Поместите этот код в модуль Sheet1 (щелкните правой кнопкой мыши вкладку Sheet1 и выберите "View Code"):

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rFrom as Range

If Target.Count = 1 Then
    With Target.WorkSheet
         Set rFrom = .Range("A:A")
         If Not Intersect(Target, rFrom) Is Nothing Then
             Application.EnableEvents = False
             'Include next line Just in Case something happens
             '    You don't want to leave EnableEvents off
             On Error Resume Next
             rFrom.Copy Worksheets("Sheet2").Range("A:A")
             If Err.Number <> 0 Then
                 Msgbox "Error Occurred"
             End If
             Application.EnableEvents = True
         End If
     End With
End If
End Sub

Поставьте то же самое для Sheet2 (очевидно, изменив соответствующие адреса). Изменение Лист2 листа1

Для замены только одного листа:
= Лист1!A:A, если вы хотите, чтобы ячейки в другом листе зеркально отражали ячейки в столбце A в Sheet1.

Также еще один вопрос спросил на суперпользователя похож на ваш , но не то же самое.