엑셀의 바닥 글에 수식을 추가하고 셀 범위가

Question

내가 Excel에서 VBA를 추가 한 변경 될 때 자동으로 업데이트가 그것을 말한다 :

Public Sub SetFooter() 
    Dim ws As Worksheet 

    Application.ScreenUpdating = False 

    For Each ws In Worksheets 
     ws.Select 
     With ActiveSheet 
      .PageSetup.CenterFooter = Evaluate("=SUM($J$6:$J$28)") 
      .PageSetup.LeftFooter = Evaluate("=average($J$6:$J$28)") 
     End With 
    Next 
End Sub 

는 어떻게 변경할 때 수식이 자동으로 변경 가야 세포의 가치?

Answer 1

바닥 글을 바꾸기 위해 모든 시트를 반복 할 필요는 없습니다. Workbook_SheetChange 이벤트를 사용할 수 있습니다. 특정 시트의 각 범위가 변경 될 때마다 해당 시트의 바닥 글이 자동으로 업데이트됩니다.

이 코드는 ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    Dim rng As Range 

    Set rng = Range("$J$6:$J$28") 

    If Not Intersect(Target, rng) Is Nothing Then 
     With Sh.PageSetup 
      .CenterFooter = Evaluate("=SUM($J$6:$J$28)") 
      .LeftFooter = Evaluate("=average($J$6:$J$28)") 
     End With 
    End If 
End Sub 

간다