Как очистить область печати

Question

Я новичок в макросах.

Я пытаюсь найти макрос, который очистит область печати на указанных листах, которые не имеют ячейки u1 = "x". Моя рабочая тетрадь содержит более 80 листов.

Answer 1

Напишите этот код VBA:

 Sub clearPrintAreas1()   
   Dim wks As Worksheet  

 For Each wks In ActiveWorkbook.Worksheets       
     If Not (wks.Range("u1") = "X") Then      
       wks.PageSetup.PrintArea = ""        
     End If  
   Next     
   Set wks = Nothing  
End Sub

PrintArea = "" очистит область печати, и код будет проверять каждый лист, если U1 не = "X", а затем очистит область печати этого листа.