Code xóa code trong sheet

Liên hệ QC

AnhThu-1976

Thành viên tích cực
Tham gia
17/10/14
Bài viết
1,058
Được thích
170
Anh chị giúp em code xóa code trong 1 sheet
Ví dụ em muốn xóa toàn bộ code trong sheet MA
Lưy ý: chỉ xóa code trong sheet MA mà thôi, không xóa code trong các sheet khác và không xóa code trong modules cũng như code trong Thiswordboook
Em có record macro nhưng không được. Em cảm ơn
 
Anh chị giúp em code xóa code trong 1 sheet
Ví dụ em muốn xóa toàn bộ code trong sheet MA
Lưy ý: chỉ xóa code trong sheet MA mà thôi, không xóa code trong các sheet khác và không xóa code trong modules cũng như code trong Thiswordboook
Em có record macro nhưng không được. Em cảm ơn
Tôi (siwtom) đã viết cho bạn hơn 9 năm trước.

Bạn vào bài #9 trong chủ đề


Bạn tải tập tin đính kèm modVBIDE.rar -> giải nén

Để thử nghiệm bạn làm như sau:

1. Tạo tập tin hichic.xlsm có code trong Sheet1.

2. Tạo tập tin blala.xlsm có code trong Sheet2.

3. Nhấn Alt + F11 để vào VBE -> menu File -> Import File -> duyệt tới và chọn modVBIDE.bas
-> Tools -> Reference -> chọn Microsoft Visual Basic for Applications Extensibility

Lưu ý
: ở mọi lúc mọi nơi khi cần dùng modVBIDE thì phải thêm tham chiếu Microsoft Visual Basic for Applications Extensibility

-> menu Insert -> Module -> nhập code sau vào Module
Mã:
Option Explicit

Sub test()
    DeleteModuleContent ThisWorkbook, "Sheet2"  ' xoa trong tap tin co code nay
    DeleteModuleContent Workbooks("hichic.xlsm"), "Sheet1"  ' xoa code trong Sheet1 cua tap tin khac DANG MO
End Sub

-> save tập tin và chạy sub test.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom