Làm Thế Nào để Tạo Danh Sách Thả Xuống Với Nhiều Lựa Chọn Hoặc ...

Sử dụng mã VBA

Để cho phép nhiều lựa chọn trong danh sách thả xuống, bạn có thể sử dụng Visual Basic cho các ứng dụng (VBA) trong Excel. Tập lệnh có thể sửa đổi hành vi của danh sách thả xuống để biến nó thành danh sách trắc nghiệm. Hãy làm như sau.

Bước 1: Mở trình soạn thảo Sheet (Code)
  1. Mở trang tính chứa danh sách thả xuống mà bạn muốn bật nhiều lựa chọn.
  2. Nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ trình đơn ngữ cảnh.
Bước 2: Sử dụng mã VBA

Bây giờ sao chép mã VBA sau và dán nó vào cửa sổ bảng mở (Mã).

Mã VBA: Bật nhiều lựa chọn trong danh sách thả xuống Excel.

Private Sub Worksheet_Change(ByVal Target As Range) 'Updated by Extendoffice 20240118 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String Dim delimiter As String Dim TargetRange As Range Set TargetRange = Me.UsedRange ' Users can change target range here delimiter = ", " ' Users can change the delimiter here If Target.Count > 1 Or Intersect(Target, TargetRange) Is Nothing Then Exit Sub On Error Resume Next Set xRng = TargetRange.SpecialCells(xlCellTypeAllValidation) If xRng Is Nothing Then Exit Sub Application.EnableEvents = False xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 If xValue1 <> "" And xValue2 <> "" Then If Not (xValue1 = xValue2 Or _ InStr(1, xValue1, delimiter & xValue2) > 0 Or _ InStr(1, xValue1, xValue2 & delimiter) > 0) Then Target.Value = xValue1 & delimiter & xValue2 Else Target.Value = xValue1 End If End If Application.EnableEvents = True On Error GoTo 0 End Sub

Kết quả

Khi bạn quay lại bảng tính, danh sách thả xuống sẽ cho phép bạn chọn nhiều tùy chọn, xem bản demo bên dưới:

Chú ý:Mã VBA ở trên:
  • Áp dụng cho tất cả danh sách thả xuống xác thực dữ liệu trong trang tính hiện tại, cả danh sách hiện tại và danh sách được tạo trong tương lai.
  • Ngăn bạn chọn cùng một mục nhiều lần trong mỗi danh sách thả xuống.
  • Sử dụng dấu phẩy làm dấu phân cách cho các mục đã chọn. Để sử dụng các dấu phân cách khác, vui lòng xem phần này để thay đổi dấu phân cách.

Từ khóa » Sổ Chọn Trong Excel