Пусто в выпадающем списке?

[ZORRO2005]

Друзья,
Как в Данные-Проверка-Список,источник
задать такой массив(пусто;1;2;3),
чтобы в выпадающем списке можно было выбрать пусто?

Если сослаться на диапазон ячеек где есть пустая ячейка
то все получится.
Но вот как сделать чтобы не ссылаться на ячейки?
Вместо пусто ставил одинарные кавычки(; ';1;2;3)
Пробовал присваивать имена диапазонам-не получается.
Мне кажется через VBA можно.

[SAS888]

Попробуйте так:
Для активной ячейки

Sub Valid()

    With Selection.Validation
        .Add Type:=xlValidateList, Formula1:=Chr(160) & ",1,2,3"
    End With
    
End Sub

[Pavel55]

Наверное, ещё можно так
1) в любом месте на любом листе пишите так
пусто - не меняете ячейку
1
2
3
2) выделяете мышкой этот список вместе с пустой ячейкой
3) меню Вставка-Имя-Присвоить...
4) в появившемся окошке пишите слово List, т.е. вы присваиваете выбранной области имя List, нажимаете кнопку ОК
5) выделяете нужную вам область ячеек, меню Данные-Проверка...
6) Тип данных - Список,
7) Источник - List
8) Снимини галочку "Игнорировать пустые ячейки"
9) нажмите кнопку ОК

[ZORRO2005]

SAS888
Спасибо большое,все красиво.
Но это все-таки не пусто
-------------------------
Если активная ячейка A1
=ЕСЛИ(A1="";"да";"нет")получится нет
=ЕСЛИ(A1=СИМВОЛ(160);"да";"нет")пол учится да
Как сделать именно пусто

[ZORRO2005]

Pavel55
Я так делал-все работает
но мне надо сделать без.п1)

[SAS888]

Это можно обойти следующим образом:
Вставим в модуль листа обработку события изменения значения нужной ячейки, и если "пробел" (отображаемый как пустая строка), то присваивать значение "пусто". Например, для ячейки "A1":

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim vRange As Range
    Set vRange = Range("A1")
    If Not Intersect(Target, vRange) Is Nothing Then
        On Error Resume Next
        If Asc(Target) = 160 Then Target = ""
    End If
End Sub

[ZORRO2005]

SAS888
Спасибо,все получилось!