Etc./Excel VBA8 Excel VBA : Delete Name (불필요한 이름 삭제) 이름 삭제 (1) Sub Delete_Names() Dim n As Name On Error Resume Next For Each n In ThisWorkbook.Names n.Visible = True n.Delete Next n End Sub 이름 삭제 (2) Sub del_Names() Dim n As Long With ActiveWorkbook Do Until .Names.Count = 0 .Names(1).Delete Loop End With End Sub 숨겨진 이름 표시 Sub Show_Names() Dim n As Name For Each n In ThisWorkbook.Names n.Visible = True Next n End Sub 2013. 11. 25. Excel VBA : Delete Style (불필요한 스타일 삭제) Sub Style_Delete() Dim n As Integer, yn As Byte On Error Resume Next For n = ActiveWorkbook.Styles.Count To 1 Step -1 If ActiveWorkbook.Styles(n).Name = "Normal" Then Else ActiveWorkbook.Styles(n).Delete End If Next End Sub 2013. 11. 25. 이전 1 2 다음 728x90 반응형
