Nếu bạn muốn sử dụng Dữ liệu xác thực để tạo danh sách thì không thể, bạn sẽ nhận được thông báo lỗi: Bạn không được sử dụng các toán tử tham chiếu (như liên hiệp, giao điểm và phạm vi) hoặc hằng số mảng cho tiêu chí định dạng có điều kiện.
Vì vậy, tôi khuyên bạn nên cố gắng sử dụng mã như một cách giải quyết để giúp bạn giải quyết vấn đề này.
Sub SetDataValidation() '
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
Dim rng As Range
'get range of named range
Set rng = WS.Range("NUMBER")
Dim ARR As Variant
ReDim ARR(1 To 1) As Variant
'add cell value from named range to an array
For i = 1 To rng.Cells.Count
ARR(UBound(ARR)) = rng.Cells(i).Value
ReDim Preserve ARR(1 To UBound(ARR) + 1) As Variant
Next i
'add your predefined value to the array
ARR(UBound(ARR)) = 17
'set validation for B1 with the combined array
With WS.Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(ARR, ",")
End With
End Sub
Trong mẫu của tôi, tôi đặt tên phạm vi là SỐ và nhận kết quả: