Проверка данных позволяет числа и некоторые строки?

Я хочу сделать проверку данных в диапазоне BFF! ("A3:A40"). Я хочу разрешить только цифры от 0 до 24 и в то же время список строк "A", "B", "C", "D". Список присутствует в списке Liste! ("C2:C100").

Вот код для первой части (список строк), но я не знаю, как добавить вторую часть (числа от 0 до 24).

Sub Data_Validation_Nom()

'change Sheet1 to suit
Set wsListe = ThisWorkbook.Worksheets("Liste")
Set wsBFF = ThisWorkbook.Worksheets("BFF")

Set range1 = wsListe.Range("C2:C100")
Set rng = wsBFF.Range("A3:A40")

With rng.Validation
    .Delete 'delete previous validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="='" & wsListe.Name & "'!" & range1.Address

End With

End Sub

Может кто-нибудь поможет мне, пожалуйста

Источник

0 ответов

Другие вопросы по тегам