выбрать в ячейке или значение из списка или вручную

[samoa]

Excel 2003
можно ли программно сделать так, чтобы в ячейке В1 в зависимости от значения ячейки А1 можно было выбрать либо значение из списка в ячейке, либо ввести вручную только численное значение (не относящееся к списку).
Причем если разрешено (по условию в ячейке А1) одно, то никак нельзя чтобы было другое. Т.е. если из списка, то никакого ручного ввода.
Примера нет, т.к. не знаю можно ли это сделать и как.

Попытка сделать так макрорекодером, а потом привязать к диапазону не увенчалась успехом. Выдает ошибку на строке
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="0;3;4;5"

Назначить сразу не получится, т.к. таблица формируется динамически и каждый раз на одном и том же месте может потребоваться или список или значение введенное с клавиатуры.

Да, может это имеет значение: Все это еще на защищенном листе где ячейка В1 разрешена к редактированию пользователем (форматирование и изменение значений). Просто символы (любые) с клавиатуры без проверки вводятся.

[Daddy]

Моя прекрасная русский язык

[samoa]

старалась, чтобы было покороче в заголовке. Может, запятые и пропустила.
А что - совсем непонятно?

[Daddy]

3 раза прочитал. Не понял

[samoa]

Ну, есть ячейка, которая редактируется пользвателем.
если в ячейке А1 записано "бал", то в ячейке В2 должен появиться список вариантов:0, 1, 2, 3 из которого можно будет выбрать.
Если в ячейке А1 записано что - то другое, например "рублей", "тонн" и т.д, то пользователь может только ввести число. Безо всяких списков.

Или то, или другое. Но по условию в ячейке А1.

Все.

[EugeneS]

Сообщение от samoa

Excel 2003
Выдает ошибку на строке
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="0;3;4;5"

исправьте:

Formula1:="0;3;4;5"

на

Formula1:="0,3,4,5"

[samoa]

не помогло.
выдает ошибку 1004 ошибочное определение приложения или объекта.
может я неправильно в программе объект переназначила.
У меня было Selection.validate, а я сделала

#
Dim cl As Range
With ThisWorkbook.Worksheets(1)
For Each cl In .Range("B1:B9")
If cl.Offset(, -1).Value = "бал" Then
With cl.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator:=xlBetween, Formula1:="0,3,4,5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
With cl.Validation
.Delete
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertInformation , _
Operator:=xlBetween, Minimum:="0", Maximum:="1000000"
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowError = True
End With
End If
Next
end with

Я в свой диапазон и условия вставила то, что записала макрорекодером для одного и другого варианта.

[samoa]

Да...
И дело было в защите листа.
И UserInterfaceOnly:=True не помогло.
Буду сейчас думать как бы так быстренько защиту снять, а потом поставить назад.