Частичная очистка листа при сохранении

@OLEGOFF · Регистрация: 27.02.2013

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане,помогите решить проблему.
Имеется такой код

Visual Basic

 With Range("A3")  
        .FormulaLocal = [D1].Value
        .AutoFill Destination:=Range("A3:A10000"), Type:=xlFillDefault
     End With
     With Range("F3")  
        .FormulaLocal = [g1].Value
        .AutoFill Destination:=Range("F3:F2000"), Type:=xlFillDefault
     End With
     With Range("I3")  
        .FormulaLocal = [j1].Value
        .AutoFill Destination:=Range("I3:I2000"), Type:=xlFillDefault
     End With
     With Range("L3")   
        .FormulaLocal = [m1].Value
        .AutoFill Destination:=Range("L3:L2000"), Type:=xlFillDefault
     End With

Он берет формулы в определенных ячейках и растягивает на диапазоны.
После этого вес файла становится 2,3M
Подскажите пожалуйста,как при закрытии файла очистить эти диапазоны автоматически?

@pashulka · 30.11.2015, 22:57

Сообщение от OLEGOFF

как при закрытии файла очистить эти диапазоны автоматически?

Можно использовать событие книги Workbook_BeforeClose, которое выполняется перед закрытием книги :

Visual Basic

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [A3:A10000,F3:F2000,I3:I2000,L3:L2000].Clear '.ClearContents
    Save 'Me.Save 'ThisWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
    [A3:A10000].FormulaLocal = [D1].Value
    [F3:F2000].FormulaLocal = [G1].Value
    [I3:I2000].FormulaLocal = [J1].Value
    [L3:L2000].FormulaLocal = [M1].Value
End Sub

Имейте ввиду, что в отличии от макроса Auto_Close, который может быть расположен в любом стандартном модуле, вышеопубликованный код - должен быть только в модуле ThisWorkbook(ЭтаКнига)

	30.11.2015, 22:57

Частичная очистка листа при сохранении

Решение