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 Sub

Chú 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 Sub

3. 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?