Hàm ClearEvent - Xóa dữ liệu linh hoạt cho Excel (Giữ trạng thái Undo và Redo) (2 người xem)

Người dùng đang xem chủ đề này

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨
Tham gia
24/2/13
Bài viết
2,895
Được thích
4,714
Giới tính
Nam
⭐HÀM THIẾT LẬP TẠO NÚT XÓA DỮ LIỆU LINH HOẠT CHO BẢNG TÍNH EXCEL
với Hàm ClearEvent

Ưu điểm và chức năng

Hàm hỗ trợ nhiều thiết lập xóa dữ liệu từ đơn giản đến phức tạp, xóa nhiều điều kiện​

1. Chỉ cần gõ hàm để thiết lập nhanh chóng
2. Xóa dữ liệu linh hoạt gồm: xóa dòng trống, xóa cả vùng giữ định dạng, xóa bỏ gộp ô, xóa công thức.
3. Xóa cả vùng dữ liệu, nhưng công thức vẫn có thể giữ lại
4. Có thể xóa dòng trống, để dồn dữ liệu lên trên
5. Có thể xóa ô trống từng cột, dồn lên
6. Không làm mất trạng thái Undo, Redo. Có thể phục hồi dữ liệu sau khi thực hiện.
7. Không phải mất thời gian viết lại mã VBA.

Hướng dẫn sử dụng hàm

Gõ hàm vào một ô trống bất kỳ không sử dụng đến.
Hàm: =ClearEvent(Vùng_dữ_liệu, Các_đối_số_thiết_lập...)
Cách viết hàm nhanh, gõ vào ô chuỗi =ClearEvent và ấn tổ hợp phím Ctrl+Shift+A


Sau khi gõ hàm có thiết lập phù hợp, sẽ tạo nút nhấn xóa dữ liệu. Hình ảnh hiển thị nút nhấn.​
1775312459339.png

Tham số :
Vị tríTham sốKiểuDiễn giải
1Vùng_dữ_liệuVùng ô hoặc NameVùng dữ liệu cho thao tác
2Các_đối_số_thiết_lậpCác hàm đối số bổ trợCó thể nhập nhiều đối số phía sau, để thiết lập


Các hàm thiết lập

Các hàm thiết lập này cần gõ trong hàm ClearEvent
Các hàm thiết lậpKiểu
ClearEvent_Title(Tiêu_đề)Tiêu đề nút nhấn, mặc định là "Xóa dữ liệu"
ClearEV_Formulas()Tùy chọn xóa tất cả công thức
ClearEV_MergeCells()Tùy chọn xóa tất cả ô gộp
ClearEV_BlankRows()Tùy chọn chỉ xóa dòng trống
ClearEV_Formats()Tùy chọn xóa tất cả định dạng
ClearEV_UndoButton()Tạo thêm nút hoàn tác
ClearEV_SelectedRows()Tùy chọn chỉ xóa các dòng đang chọn
ClearEV_IF(Biểu_thức)Hàm tạo điều kiện xóa, ví dụ nếu dòng cột A trống thì xóa: ClearEV_IF(A1:A100="")


Ví dụ:
=ClearEvent($A$3:$Z$10000,ClearEV_BlankRows(),ClearEvent_Title("Xóa dòng trống"),ClearEV_UndoButton())
Hiểu là xóa vùng $A$3:$Z$10000, xóa dòng trống, tạo nút có tiêu đề là "Xóa dòng trống", tạo thêm nút hoàn tác

HƯỚNG DẪN​


Tải dự án về, sao chép mã trong ModUDFClearEvent vào dự án khác để tận dụng hàm.​

(Tải tệp cần đăng nhập, tải về bỏ UnBlock tệp nếu có trước khi chạy trong VBA)


Tham khảo thêm các hàm UDF khác tại tag #sanbi udf
 

File đính kèm

Lần chỉnh sửa cuối:
Giải pháp
*** Cập nhật mã nguồn phiên bản đầu tiên
Đã có, gồm:
Thiết lập xóa dữ liệu, xóa biểu thức, xóa ô gộp, xóa dòng trống.
Chưa có, gồm: Xóa có điều kiện, xóa dòng chọn, xóa vùng chọn, xóa ô trống đơn lẻ trong cột.
Những hàm kiểu như này ở C# viết dễ dàng hơn (với trợ giúp của AI). Hóng code của tác giả với kỹ thuật sử dụng settimer và killtimer
 
Upvote 0
*** Cập nhật mã nguồn phiên bản đầu tiên
Đã có, gồm:
Thiết lập xóa dữ liệu, xóa biểu thức, xóa ô gộp, xóa dòng trống.
Chưa có, gồm: Xóa có điều kiện, xóa dòng chọn, xóa vùng chọn, xóa ô trống đơn lẻ trong cột.
 
Upvote 0
Giải pháp

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

Back
Top Bottom