验证从下拉列表中选择

Question

我在工作表m_listA2 中有一系列下拉列表，如下所示

"abc"
"def"
"ghi"

我使用下面的代码在Sheet1 创建了下拉列表。单击按钮时执行这些代码行。

Dim lastRowNo
lastRowNo = ws.Cells(Rows.Count, 2).End(xlUp).Row
Dim id As String
id = "def"
    
With Worksheets("Sheet1").Range("A1").Validation
    .Delete
    .Add Type:=xlValidateList, _
       Operator:=xlEqual, _
       Formula1:="=m_list!" & Range("A2", "A" & lastRowNo).Address
End With
Range("A1").Value = id

在最后一行，我尝试将下拉列表设置为自动选择"def"，但下拉列表没有选择它。
"def" 在手动单击时可用。

Answer 1

数据验证列表

Option Explicit

Sub ApplyDataValidation()
    
    Const ValInit As String = "def"
    
    Dim ValFormula As String
    
    With ThisWorkbook.Worksheets("m_list")
        Dim lRow As Long: lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ValFormula = "='" & .Name & "'!" & .Range("A2", "A" & lRow).Address
    End With
    
    With ThisWorkbook.Worksheets("Sheet1").Range("A1")
        With .Validation
            .Delete
            .Add xlValidateList, , xlEqual, ValFormula
        End With
        .Value = ValInit
    End With
    
End Sub