Làm cách nào để chọn nhiều mục từ danh sách thả xuống vào một ô trong Excel?

Danh sách thả xuống thường được sử dụng trong công việc hàng ngày của Excel. Theo mặc định, chỉ có thể chọn một mục trong danh sách thả xuống. Nhưng trong một số trường hợp, bạn có thể cần phải chọn nhiều mục từ danh sách thả xuống vào một ô duy nhất như hình minh họa bên dưới. Làm thế nào bạn có thể xử lý nó trong Excel?

Chọn nhiều mục từ danh sách thả xuống vào một ô có VBA

Chọn nhiều mục từ danh sách thả xuống vào một ô với Kutools cho tùy chọn tiện dụng của Excel

Chọn nhiều mục từ danh sách thả xuống vào một ô có VBA

Dưới đây là một số VBA có thể giúp bạn giải quyết công việc này.

Chọn các mục trùng lặp từ danh sách thả xuống trong một ô

1. Sau khi tạo danh sách thả xuống, nhấp chuột phải vào tab trang tính để chọn Mã Chế độ xem từ trình đơn ngữ cảnh.

2. Sau đó trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã bên dưới vào tập lệnh trống.

VBA: Chọn nhiều mục từ danh sách thả xuống trong một ô

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Lưu mã và đóng cửa sổ để quay lại danh sách thả xuống. Bây giờ bạn có thể chọn nhiều mục từ danh sách thả xuống.

Lưu ý:

1. Với VBA, nó phân tách các mục theo khoảng trắng, bạn có thể thay đổi xStrNew = xStrNew & "" & Giá trị của mục tiêu cho những người khác để thay đổi dấu phân cách khi bạn cần. Ví dụ, xStrNew = xStrNew & "," & Giá trị của mục tiêu sẽ ngăn cách các mục bằng dấu phẩy.

2. Mã VBA này hoạt động cho tất cả danh sách thả xuống trong trang tính.

Chọn nhiều mục từ danh sách thả xuống vào một ô mà không lặp lại

Nếu bạn chỉ muốn chọn các mục duy nhất từ ​​danh sách thả xuống vào một ô, bạn có thể lặp lại các bước trên và sử dụng mã bên dưới.

VBA ： Chọn nhiều mục từ danh sách thả xuống vào một ô mà không lặp lại

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Cả hai mã VBA trên không hỗ trợ xóa các phần của nội dung ô, chỉ hỗ trợ xóa tất cả các mục của ô.

Chọn nhiều mục từ danh sách thả xuống vào một ô với Kutools cho tùy chọn tiện dụng của Excel

Nếu bạn không quen với mã VBA, bạn có thể cài đặt miễn phí một công cụ tiện dụng - Kutools cho Excel, chứa một nhóm các tiện ích về danh sách thả xuống và có một tùy chọn Danh sách thả xuống nhiều lựa chọn có thể giúp bạn dễ dàng chọn nhiều mục từ danh sách thả xuống vào một ô.

Sau khi tạo danh sách thả xuống, vui lòng chọn các ô danh sách thả xuống và nhấp vào Kutools > Danh sách thả xuống > Danh sách thả xuống nhiều lựa chọn để kích hoạt tiện ích này.

Sau đó, các ô danh sách thả xuống đã chọn có thể được chọn nhiều mục vào ô.

Nếu bạn sử dụng tùy chọn này lần đầu tiên, bạn có thể chỉ định cài đặt của tiện ích này khi bạn cần trước khi áp dụng tiện ích này.

Nhấp chuột Kutools > Danh sách thả xuống > mũi tên bên cạnh Danh sách thả xuống nhiều lựa chọn > Cài đặt.

Sau đó trong Nhiều lựa chọn Cài đặt danh sách thả xuống hộp thoại, bạn có thể

1) Chỉ định phạm vi áp dụng khi bạn cần;

2) Chỉ định hướng của các mục nơi;

3) Chỉ định dấu phân cách giữa các mục;

4) Chỉ định nếu không thêm các mục trùng lặp và xóa các mục trùng lặp.

Nhấp chuột Ok và nhấp Kutools > Danh sách thả xuống > Danh sách thả xuống nhiều lựa chọn để có hiệu lực.

Mẹo: Để áp dụng Danh sách thả xuống nhiều lựa chọn tiện ích, bạn cần phải cài đặt, dựng lên nó lúc đầu. Nếu bạn muốn tạo một danh sách thả xuống với nhiều cấp độ, tiện ích dưới đây có thể giúp bạn.

Dễ dàng tạo danh sách thả xuống phụ thuộc 2 cấp hoặc nhiều cấp động trong Excel

Trong Excel, để tạo danh sách thả xuống 2 cấp hoặc nhiều cấp rất phức tạp. Đây Danh sách thả xuống động tiện ích của Kutools cho Excel có thể giúp bạn một việc. Những gì bạn chỉ cần làm là sắp xếp dữ liệu như ví dụ được hiển thị, sau đó chọn phạm vi dữ liệu và phạm vi đầu ra, sau đó để nó cho tiện ích.  Nhấp để 30 ngày dùng thử miễn phí!

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn về số lượng 30 ngày

---

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ông thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
• 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); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
• Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
• Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
• Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
• Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
• Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
• Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
• 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. Bảo đảm hoàn lại 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 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!

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