VBA代码用于在同一Excel工作簿中使用来自两个不同工作表的更新来填充MI电子表格

Question

I have three Excel worksheets: Sheet 1, Sheet 2,Sheet 3 all with the same standard data(Column A to E are standard data in all sheets) Columns F to JF are calendar days/Months. The difference being any update to sheet one is a number in a cell in the calendar corresponding to the Names in Column A while update to Sheet 2 is only a highlight for the applicable cell (cells updated are never the same corresponding cell in Sheet 1 or vice versa - which I think makes sense).

Sheet 3 needs to update for every update(s) to sheet 1 and 2.

I am looking to use VBA to do this update to sheet 3.

Answer 1

Add this to the module associated with Sheet 1 . The code will copy the modified range as is to Sheet 3 .

Private Sub Worksheet_Change(ByVal Target As Range)
fr = Target.Row
lr = fr - 1 + Target.Rows.Count
fc = Target.Column
lc = fc - 1 + Target.Columns.Count

For i = fr To lr
    For j = fc To lc
        Sheets("Sheet 3").Cells(i, j).Value2 = Sheets("Sheet 1").Cells(i, j).Value2
    Next
Next

End Sub