AC giúp em tối ưu VBA với ạ (5 người xem)

[Bạn Đoản]

Em có sheet1 để hoàn thành bảng dữ liệu, em nhờ ac xem giúp em mã VBA Botton " Xóa dữ liệu". Em muốn khi chạy giữ nguyên định dạnh kẻ ô như trong ảnh em gửi ạ, codel em đang làm là kiểu xóa dòng, nên dùng nhiều sẽ bị mất

 

[Trần Văn Bình]

Bạn thử dùng sh.Rows("13:" & lr).ClearContents thử xem

 

[le_vis]

Em có sheet1 để hoàn thành bảng dữ liệu, em nhờ ac xem giúp em mã VBA Botton " Xóa dữ liệu". Em muốn khi chạy giữ nguyên định dạnh kẻ ô như trong ảnh em gửi ạ, codel em đang làm là kiểu xóa dòng, nên dùng nhiều sẽ bị mấtView attachment 311315

Chỉ thực hiện xoá dữ liệu thì đặt đoạn code dưới đây vào module2 để thực hiện cho Sheet21
Sub Xoa_BangPhanTic()
Range("A13:V20").Select
Selection.ClearContents
Range("A13").Select
End Sub

 

[Bạn Đoản]

Bạn thử dùng sh.Rows("13:" & lr).ClearContents thử xe

Chỉ thực hiện xoá dữ liệu thì đặt đoạn code dưới đây vào module2 để thực hiện cho Sheet21
Sub Xoa_BangPhanTic()
Range("A13:V20").Select
Selection.ClearContents
Range("A13").Select
End Sub

Chỉ thực hiện xoá dữ liệu thì đặt đoạn code dưới đây vào module2 để thực hiện cho Sheet21
Sub Xoa_BangPhanTic()
Range("A13:V20").Select
Selection.ClearContents
Range("A13").Select
End

Phần gộp ô không được định dạng về ban đầu ạ.

 

[HeSanbi]

Bạn muốn xóa mà vẫn undo và redo được có phải không. Cần xử lý XML của vùng dữ liệu, Vùng ô sẽ giữ nguyên định dạng gốc.
Bạn có muốn dùng hàm UDF cho dễ thiết lập hơn không, hàm này hữu dụng có thể tái sử dụng dễ dàng mà không cần viết lại mã VBA, ví dụ:

=evRemoveRow(A13:V10000) (ev là Event)

 

[le_vis]

Bạn muốn xóa mà vẫn undo và redo được có phải không. Cần xử lý XML của vùng dữ liệu, Vùng ô sẽ giữ nguyên định dạng gốc.
Bạn có muốn dùng hàm UDF cho dễ thiết lập hơn không, hàm này hữu dụng có thể tái sử dụng dễ dàng mà không cần viết lại mã VBA, ví dụ:

Phần gộp ô không được định dạng về ban đầu ạ.View attachment 311320

Bài #1 bạn ghi :"giúp em mã VBA Botton " Xóa dữ liệu". Em muốn khi chạy giữ nguyên định dạnh kẻ ô như trong ảnh em gửi ạ,..."; Xin hỏi : Tôi làm đã đúng theo Bài #1 bạn yêu cầu chưa ?