VBA excel 2010 시트 이름 및 블랭크 시트 삭제

Question

이 코드를 작성하는 동안 VBA에서 SUB 함수가 누락되었음을 알리는 이유를 알고 싶습니다. 시트가 NVT라고 할 때 코드는 모든 작업을 건너 뛰고 (다음 명령에서) 활성화 될 다음 시트로 이동해야합니다. 이 작업이 끝나면 "특정 이름"또는 "NVT"가 채워지지 않은 모든 블랭크 시트를 삭제해야합니다. 수식이이 옵션없이 제대로 작동합니다. 나는이 코드를 저장하는 데 아무런 문제가 없으며 공식 자체에 문제가 없다. 어떤 제안이라도 환영합니다 .. 나는이 위협이 아직 게시되지 않았다고 믿는다. 추가 정보가 필요하면 알려주십시오. 원래의 코드는 verry 길며,이 문제를 불쾌하게하는 방법을 나타낼뿐입니다. 위협에 대한 답을 누가 주는지에 대한 조언.

Sub Printtabs() 
' Print 
ThisWorkbook.Activate 
If ThisWorkbook.Sheets(7) = ("NVT") Then Skip 
If ThisWorkbook.Sheets(7) = ("NAME SPECIFIC 1") Then 
'process formula 
End If 
If Thisworkbook.Sheets (8) = ("NVT) Then Skip 
If Thisworkbook.Sheets (8) = ("NAME SPECIFIC 2") Then 
'process formula 
End If 
'then I should find the way to delete every "blanc" sheets in this workbook (becouse I skipped before and there will be blanc sheets) and save 
End Sub 

Answer 1

당신 don't need은 .Activate를 사용합니다. 시트로 직접 작업 할 수 있습니다. 또한 시트를 삭제하고 이벤트를 끌 때 항상 적절한 오류 처리를 사용하십시오.

이게 너가하려는거야?

Dim ws As Worksheet 

Sub Printtabs() 
    On Error GoTo Whoa 

    For Each ws In ThisWorkbook.Worksheets 
     If ws.Name = "NAME SPECIFIC 1" Then 
      '~~> Process Formula 
     ElseIf ws.Name = "NAME SPECIFIC 2" Then 
      '~~> Process Formula 
     Else 
      If ws.Name <> "NTV" And WorksheetFunction.CountA(ws.Cells) = 0 Then 
       Application.DisplayAlerts = False 
       ws.Delete 
       Application.DisplayAlerts = True 
      End If 
     End If 
    Next ws 

LetsContinue: 
    Application.DisplayAlerts = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume LetsContinue 
End Sub 

Answer 2

그래서 나는 내가 믿는 블랭크 시트를 삭제하는 방법을 알아 냈습니다. 시트 이름 문제 만 남아 있습니다. 이 부분 코드는 모든 처리 된 수식의 끝에서 실행됩니다. 나를 도울 수 Hopely 누군가 ....

Dim ws As Worksheet 
For Each ws In Worksheets 
    If WorksheetFunction.CountA(ws.Cells) = 0 Then 
     Application.DisplayAlerts = False 
     ws.Delete 
     Application.DisplayAlerts = True 
    End If 
Next ws