Xóa một Module bằng Macro(VBA)

Khi lập trình vba mà bạn lỡ tạo thừa một module mà không biết làm sao để xoá nó thì bài này sẽ giúp bạn. để xoá module nào bạn chỉ cần paste code dưới đây vào module đó rồi nhấn F5 để chạy nó sẽ hiện ra một hộp thông báo "xoa module a nha!" bạn nhấp ok để xoá.

chú ý: nếu có báo lỗi bạn chỉ cần

Tại menu Tools của VBA vào mục Reference

kiểm tra coi có bị dòng này Missing : Microsoft Visual Basic for Applications Extensibility x.x không?

Nếu có thì uncheck nó, rồi tìm cái tên tương tự trong list (khác Version)

Trong Excel vào Tools -> Macro -> Security -> Trusted Publishers rồi Check vào mục Trust Access to Visual basic Project

Code:

Sub DeleteThisModule()
Dim vbCom As Object
MsgBox "Xoa Module a nha! "
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= vbCom.Item("Module1")
End Sub

Một cách khác đơn giản hơn là bạn click chuột phải vào tên module muốn xoá chọn remover module1... hộp thoại hiện ra chọn No để xoá.