Код Excel VBA: не может дать именованный диапазон Formula1 при проверке

Question

Как я могу добавить список проверки с помощью кода VBA, который будет ссылаться на именованный диапазон?Так что список будет содержать значения именованного диапазона?Я могу сделать это как Formula1: = "= $ A $ 1: $ A $ 10", но как я могу дать именованный диапазон?

Answer 1

Вы можете использовать следующий код:

'Create the named range (if not done already)
ActiveWorkbook.Names.Add Name:="listdata", RefersTo:= "=Sheet2!$A$1:$A$10" 
'Set a validation list on the cells that will refer to the named range
With Range("A1:A100") 
    With .Validation 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
        xlBetween, Formula1:="=listdata" 
    End With 
End With