Làm thế nào để xóa nội dung của hộp tổ hợp với mã VBA trong Excel?
Thông thường, bạn có thể xóa nội dung của hộp tổ hợp bằng cách xóa dữ liệu danh sách Phạm vi đầu vào. Nhưng làm thế nào về việc xóa nội dung của tất cả các hộp tổ hợp trong một trang tính Excel? Bài viết này chuẩn bị hai mã VBA để giúp bạn không chỉ xóa nội dung của một hộp tổ hợp mà còn xóa nội dung của tất cả các hộp tổ hợp cùng một lúc trong một trang tính Excel.
Dễ dàng xóa nội dung của hộp tổ hợp bằng mã VBA
Dễ dàng xóa nội dung của hộp tổ hợp bằng mã VBA
Hai mã VBA dưới đây có thể giúp bạn xóa nội dung của một hộp tổ hợp hoặc tất cả các hộp tổ hợp trong trang tính đang hoạt động. Hãy làm như sau.
1. Trong trang tính, bạn cần xóa nội dung của hộp tổ hợp, vui lòng nhấn Khác + F11 chìa khóa cùng một lúc để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mã.
VBA 1: Xóa nội dung của hộp tổ hợp trong trang tính
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubChú thích: Trong mã, “Drop Down 2” là tên của hộp tổ hợp mà bạn sẽ xóa nội dung khỏi đó. Vui lòng thay đổi nó thành của riêng bạn.
VBA 2: Xóa nội dung của tất cả các hộp tổ hợp trong trang tính đang hoạt động
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Nhấn nút F5 hoặc nhấp vào nút Run để chạy mã.
Sau đó, bạn có thể thấy nội dung được xóa trong hộp kết hợp được chỉ định hoặc tất cả hộp kết hợp trong trang tính đang hoạt động như hình minh họa bên dưới:
Chú thích: mã VBA có thể được áp dụng cho cả Hộp tổ hợp (Điều khiển biểu mẫu) và Hộp tổ hợp (Điều khiển ActiveX).
Các bài liên quan:
- Làm cách nào để xóa nội dung và định dạng cùng một lúc trong các ô trong Excel?
- Làm cách nào để xóa nội dung của phạm vi đã đặt tên trong Excel?
- Làm cách nào để xóa các giá trị bị hạn chế trong các ô trong Excel?
- Làm cách nào để xóa nội dung ô đã chỉ định nếu giá trị của một ô khác thay đổi trong Excel?
- Làm cách nào để xóa nội dung ô được chỉ định khi mở và thoát trong sổ làm việc Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ 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 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
