Создание выпадающего списка значений
Список выпадающих значений в VBA создается еще проще чем в ООО. Значения указываются в одной формуле просто через зяпятую. Пример в следующем коде:
Sub Valid()
With Range("L2:L1000").Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Ошибочное перемещение позиции не по акту заборки,Неверное МХ в операции внутреннего перемещения,Ошибка при заведении операции инвентаризации,Новое сырье, отправлен запрос на привязку,Сырье, не используемое в производстве, Нарушение привязки позиции к рецептам в БД, отправлен запрос на исправление"
End With
End Sub
Sub Valid()
With Range("L2:L1000").Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Ошибочное перемещение позиции не по акту заборки,Неверное МХ в операции внутреннего перемещения,Ошибка при заведении операции инвентаризации,Новое сырье, отправлен запрос на привязку,Сырье, не используемое в производстве, Нарушение привязки позиции к рецептам в БД, отправлен запрос на исправление"
End With
End Sub
Комментарии
Отправить комментарий