Giúp code xóa các sheet Đồ thị Chart Và Maccro ( hỏi lần 3 ) (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Cả nhà giúp dùm mình tí, vì mình đã hỏi 2 lần rồi chưa ai trả lời giúp mình

File excel của mình nhiều gồm sheet, Mình muốn dùng 1 đoạn code để xóa các sheet thuộc đồ thị có tên Chart và Sheet Macro. các sheet còn lại vẫn giử nguyên. Còn nếu có cách nào Vô hiệu hóa không cho tạo ra 2 sheet Chart và Macro chỉ em luôn nhé. em xin cảm ơn

 

[quanluu]

Chào cả nhà GPE !
Cả nhà giúp dùm mình tí, vì mình đã hỏi 2 lần rồi chưa ai trả lời giúp mình

File excel của mình nhiều gồm sheet, Mình muốn dùng 1 đoạn code để xóa các sheet thuộc đồ thị có tên Chart và Sheet Macro. các sheet còn lại vẫn giử nguyên. Còn nếu có cách nào Vô hiệu hóa không cho tạo ra 2 sheet Chart và Macro chỉ em luôn nhé. em xin cảm ơn

Bạn dùng code xoa sheet chart, macro này nhé. mình ko hiểu cái tự động tạo sheet chart, macro

Sub deletechartmacro()
Dim ChartDelete As Chart, sh As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ChartDelete In ThisWorkbook.Charts
    ChartDelete.delete
Next
For Each sh In ThisWorkbook.Excel4MacroSheets
    sh.delete
Next

Application.DisplayAlerts = False
Application.ScreenUpdating = True

End Sub

 

[minhtuan55]

Bạn dùng code xoa sheet chart, macro này nhé. mình ko hiểu cái tự động tạo sheet chart, macro

Sub deletechartmacro()
Dim ChartDelete As Chart, sh As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ChartDelete In ThisWorkbook.Charts
    ChartDelete.delete
Next
For Each sh In ThisWorkbook.Excel4MacroSheets
    sh.delete
Next

Application.DisplayAlerts = False
Application.ScreenUpdating = True

End Sub

Thank a nha. Vi nhiều khi mình nhấn nhầm Ctrl + F11 ( macro) và nút WINDOW + F11 ( chart ) đó a