Macro đặt lại ô Excel về 0

Thông thường, bạn có thể giữ phím Ctrl để chọn nhiều ô cụ thể, sau đó xóa nội dung ô khi cần. Nếu bạn luôn cần xóa các ô cụ thể này theo thời gian, bạn có thể tạo một nút xóa để xóa chúng chỉ bằng một cú nhấp chuột. Trong bài viết này, tôi sẽ nói về cách tạo nút xóa tất cả để xóa một số nội dung ô cụ thể

Áp dụng nút để xóa nội dung ô cụ thể bằng mã VBA

Áp dụng nút để xóa nội dung ô cụ thể bằng mã VBA

Đầu tiên, bạn nên tạo một nút hình dạng, sau đó áp dụng mã, cuối cùng, buộc mã vào nút hình dạng. Vui lòng làm như sau

1. Nhấp vào Chèn > Hình dạng > Hình chữ nhật để chọn hình dạng Hình chữ nhật, sau đó kéo chuột để vẽ nút hình chữ nhật ở bất kỳ đâu trong trang tính khi bạn cần, xem ảnh chụp màn hình

2. Sau đó nhập văn bản và định dạng nút hình khi bạn cần, xem ảnh chụp màn hình

3. Và sau đó, bạn nên chèn mã VBA, vui lòng giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

mã VBA. Xóa nội dung ô khỏi các ô cụ thể

Ghi chú. Trong đoạn mã trên. A2,A5 cho biết nó sẽ xóa các ô trong phạm vi A2. A5, không chỉ riêng hai ô, bạn có thể thêm nhiều phạm vi, chẳng hạn như Range("B8", "B12"). Xóa tập lệnh trong mã để xóa.

4. Sau đó lưu và đóng cửa sổ mã, sau đó liên kết mã với nút hình, bấm chuột phải vào nút và chọn Gán Macro, trong hộp thoại Gán Macro, chọn tên mã Clearcells từ hộp danh sách Tên Macro và bấm OK . Xem ảnh chụp màn hình

5. Và bây giờ, khi bạn nhấp vào nút Xóa tất cả, các ô cụ thể mà bạn đã xác định sẽ bị xóa cùng một lúc, hãy xem ảnh chụp màn hình

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab trong Word, Excel, PowerPoint , Publisher, Access, Visio và Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới
• Tăng năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 64 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

anand

khoảng 5 năm trước

#20370

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

ĐƯA CÔNG THỨC TIẾT KIỆM VÀ RÕ RÀNG

Đáp lại

0

0

ken besse

khoảng 5 năm trước

#21622

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thao tác này cũng xóa mọi định dạng của ô. Làm cách nào để thực hiện việc này nếu tôi muốn giữ nguyên công thức và định dạng chẳng hạn như tô bóng hoặc đường viền

Đáp lại

0

0

Adam     ken besse

khoảng 5 năm trước

#21623

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

thay đổi lệnh từ "xóa" thành "xóa nội dung" để chỉ xóa các kiểu nhập văn bản

Đáp lại

0

0

dsnyan     Adam

khoảng 4 năm trước

#21624

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

những gì về màu sắc?

Đáp lại

0

0

Steph

khoảng 5 năm trước

#21691

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn

Đáp lại

0

0

Ashleigh Bonner

khoảng 5 năm trước

#21931

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn bạn rất nhiều vì thông tin này.

Mẹo khác. Tôi đã thêm một hộp văn bản. Để kết hợp hộp văn bản với hình dạng, tôi đã chọn hộp văn bản, giữ phím SHIFT, rồi chọn hình dạng. Với cả hai cái được chọn, tôi nhấp chuột phải và chọn NHÓM, rồi NHÓM, một lần nữa.

Khi chúng được nhóm lại, bạn vẫn có thể thay đổi văn bản và định dạng khác.

Để hủy nhóm, chỉ cần nhấp chuột phải vào nút mới của bạn và chọn GROUP > UNGROUP.

Đáp lại

0

0

Calvin Hodgson     Ashleigh Bonner

khoảng 4 năm trước

#21932

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Hoặc, chỉ cần nhấp chuột phải vào hình dạng cho phép bạn thay đổi định dạng và văn bản

Đáp lại

0

0

Piotr

khoảng 4 năm trước

#23217

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thx cho mã này. Làm cách nào để xóa nội dung ô hoặc lý tưởng nhất là điền giá trị 0 vào trang tính được bảo vệ chỉ với một vài ô có thể chỉnh sửa?

Đáp lại

0

0

Robert     Piotr

khoảng 4 năm trước

#23218

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thay vì lệnh rõ ràng, một dòng ví dụ ở trên sẽ giống như.
Phạm vi("A2. A5") = 0

Đáp lại

0

0

ian

khoảng 4 năm trước

#23915

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

bạn có thể thực hiện công việc này trên nhiều trang tính không?

Đáp lại

0

0

Nhà máy cao su Húng quế

khoảng 4 năm trước

#24031

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Đây cũng là xóa biên giới, tôi có thể làm gì?

Đáp lại

Báo cáo

0

0

Jay     Nhà máy cao su Basil

khoảng 4 năm trước

#24032

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

thay đổi rõ ràng thành rõ ràng thì định dạng sẽ giữ nguyên sau khi xóa. chỉ có văn bản sẽ không còn đường viền và tô màu, v.v.

Đáp lại

0

0

Adnandos

khoảng 4 năm trước

#25061

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào. Cách tốt nhất để tạo các nút riêng biệt để xóa nội dung của từng hàng riêng biệt là gì? . Cách hiệu quả nhất để tạo các nút xóa theo cách này, tức là chỉ hàng là gì?

Đáp lại

0

0

LÀ     Nandos

khoảng 4 năm trước

#25062

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, Đặt một nút trên đầu hàng 3,6,7. Chỉ định cùng một marco như trên cho mỗi nút để chỉ xóa hàng cụ thể đó

Đáp lại

0

0

Stan

khoảng 4 năm trước

#26005

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi có một sổ làm việc với 11 tab, cộng với một tab ở đầu được đánh dấu là "Bắt đầu tại đây". Tôi muốn tạo một nút trong tab đó sẽ xóa tối đa 9 ô riêng lẻ chứa nội dung của tab đó hoặc nhập "0" vào nút đó trong mỗi tab này. Các ô tôi muốn xóa không nhất thiết phải nằm ở cùng một vị trí trên mỗi trang. Điều này có thể không và nó được thực hiện như thế nào?

Đáp lại

0

0

Nate     Stan

khoảng 2 năm trước

#26006

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi có cùng một câu hỏi

Đáp lại

0

0

Christopher     Nate

khoảng 2 năm trước

#26007

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Sử dụng cái này làm mẫu tập lệnh.
Sub Clearcells()
'Updateby Extendoffice 20161008
Range("b11. d22"). ClearContents ' dòng này đề cập đến trang có nút macro.
Phạm vi("'Mục nhập Điểm Đánh giá'. D2. AA2"). ClearContents ' dòng này đề cập đến một tab và phạm vi khác.
Kết thúc phụ

Đáp lại

0

0

radheshyam

khoảng 4 năm trước

#27032

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

đơn giản là tôi đã làm tương tự trong trang tính, nó hoạt động khi tôi bảo vệ trang tính, nó hiển thị lỗi 1004, có gợi ý nào trong trường hợp này không?

Đáp lại

0

0

skyyang     Radheshyam

khoảng 4 năm trước

#27033

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, Radheshyam,
Để chạy mã trên trong trang tính bảo vệ, vui lòng áp dụng mã bên dưới. (Ghi chú. thay đổi văn bản "mật khẩu" thành mật khẩu bảo vệ trang tính của bạn)
Sub ClearcellsAsProtect()
Làm mờ xWS dưới dạng trang tính
Làm mờ . Bỏ bảo vệ mật khẩu. =xPsw
Set xWS = ActiveSheet
xPsw = "password"
On Error Resume Next
xWS.Unprotect Password:=xPsw
Phạm vi("A2", "A5"). Xóa
Phạm vi("C10", "D18"). Xóa
Phạm vi("B8", "B12"). Xóa
xWS. bảo vệ mật khẩu. =xPsw
End Sub

Hãy cố gắng, hy vọng nó có thể giúp ích cho bạn.

Đáp lại

Báo cáo

0

0

Jennifer

khoảng 3 năm trước

#29182

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào,

Tôi sẽ sử dụng mã nào nếu tôi chỉ cần xóa một ô duy nhất thay vì một dãy ô?

Đáp lại

0

0

skyyang     Jennifer

khoảng 3 năm trước

#29183

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Chào Jennifer,
Để chỉ xóa một ô, bạn chỉ cần thay đổi mã VBA như sau. (Ghi chú. thay đổi ô A2 thành ô bạn muốn xóa)

Sub Clearcells()
Range("A2"). Clear
End Sub

Hãy cố gắng, hy vọng nó có thể giúp ích cho bạn.

Đáp lại

Báo cáo

0

0

LJ Majik

khoảng 3 năm trước

#29370

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Có cách nào để tôi giữ lại danh sách xác thực dữ liệu trên các ô không. Ví dụ: danh sách thả xuống của tôi bao gồm Có hoặc Không và tôi muốn đặt lại các ô thành ô trống nhưng vẫn giữ xác thực dữ liệu của mình ở chế độ nền

Đáp lại

Báo cáo

0

0

Don     LJ Majik

khoảng 3 năm trước

#29371

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

bạn có thể sử dụng = rõ ràng.


đối với Ví dụ.

Phạm vi("A2", "A5") = Xóa

Đáp lại

0

0

vải

khoảng 3 năm trước

#29879

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Nó không hoạt động trên các ô đã hợp nhất. . (

Đáp lại

0

0

Octávio Junqueira. vải

khoảng 3 năm trước

#29880

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

thay thế. Xóa bằng = ""

Đáp lại

Báo cáo

0

0

Kean Miller     Octávio Junqueira

khoảng 3 năm trước

#29881

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Đối với các ô được hợp nhất, bạn có nghĩa là có định dạng chẳng hạn như Range("A25","B25","C25")="" ?

Đáp lại

0

0

Penny     Fabricio

khoảng 2 năm trước

#29882

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Hãy thử cách này,

Ví dụ. Các ô được hợp nhất là các cột A và B. Bạn muốn xóa các hàng từ 2 đến 5. Nó sẽ giống như bên dưới.

Sub Clearcells()
Phạm vi("A2. B2", "A5. B5"). Nội dung rõ ràng
Kết thúc phụ

Đáp lại

0

0

NOCKTYS

khoảng 3 năm trước

#30001

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin vui lòng làm như thế nào trên Google Sheets?

Đáp lại

Báo cáo

0

0

Karam Hanna

khoảng 3 năm trước

#30396

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Nó xóa mọi thứ kể cả các đường viền và định dạng Ô, tôi chỉ muốn xóa Dữ liệu

Đáp lại

Báo cáo

0

0

skyyang     Karam Hanna

khoảng 3 năm trước

#30397

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào, Karam,
Để chỉ xóa dữ liệu và giữ nguyên định dạng ô, vui lòng áp dụng mã bên dưới.

Sub Clearcells()
Phạm vi("A2", "A5"). ClearContents
Phạm vi("C10", "D18"). ClearContents
Phạm vi("B8", "B12"). ClearContents
End Sub

Hãy thử, hy vọng nó có thể giúp ích cho bạn.

Đáp lại

Báo cáo

0

0

Karam Hanna     skyyang

khoảng 3 năm trước

#30398

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn skyyang
Giờ nó đã hoạt động bình thường

Đáp lại

Báo cáo

0

0

Jordi Garcia     Karam Hanna

khoảng 8 tháng trước

#30399

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

cảm ơn bạn

Đáp lại

0

0

Garrett     skyyang

khoảng 1 năm trước

#30400

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Định dạng này dường như không hoạt động đối với tôi, liên tục báo cho tôi "lỗi biên dịch. Kỳ vọng. kết thúc tuyên bố"

Đáp lại

0

0

Oleg     skyyang

khoảng 1 năm trước

#30401

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn skyyang nhiều. Đó chính xác là những gì tôi đang tìm kiếm, để xóa nội dung chứ KHÔNG phải định dạng. Cảm ơn một lần nữa

Đáp lại

0

0

Micheal     skyyang

khoảng 10 tháng trước

#30402

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn vì điều đó. Có cách nào để đặt nhiều hơn một nút xóa trên một trang tính không?

Đáp lại

0

0

Arshpreet

khoảng 3 năm trước

#30616

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

nó không hoạt động

Đáp lại

0

0

jorge

khoảng 3 năm trước

#30741

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

khi nút lệnh tôi nhấn xóa nó cũng xóa các ô liên tục và tôi đã có công thức trong đó và tôi không muốn xóa chúng

Đáp lại

0

0

hk Walasey

khoảng 3 năm trước

#31159

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Vui lòng cho marco rõ nếu nội dung ô nhỏ hơn 4 số. Cảm ơn

Đáp lại

Báo cáo

0

0

robin

khoảng 3 năm trước

#31394

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào. Hoạt động tốt với tôi với mã này như bạn đã đề cập.

Sub Clearcells()
Phạm vi("A2", "A5"). ClearContents
Phạm vi("C10", "D18"). ClearContents
Phạm vi("B8", "B12"). ClearContents
End Sub

Tuy nhiên, tôi muốn giữ lại số "0" hoặc phần trăm "0" cho một số ô nhất định. Ngoài ra, hãy giữ màu đã chọn trước đó. Nguyên nhân của việc này là tôi sử dụng các ô này làm ô nhập liệu và muốn sử dụng nút để xóa các ô nhập liệu nhất định.


Cảm ơn trước.

Đáp lại

0

0

bẩm sinh

khoảng 2 năm trước

#33331

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

tôi đang cố xóa một số ô nhất định trên một số tab. Làm thế nào tôi có thể thực hiện điều này?