проверка вводимых значений в excel

[Fugitive]

Здравсвтуйте, уважаемые.

С помощью Данные -> Проверка -> Тип данных: список
Можно сделать список выбора.
Подскажите, как указать диапазон для этого списка из другого файла (рабочей книги.) ??

[alibek]

Книги? Пожалуй, никак.
Можно добавить скрытый лист, на котором будут отображаться значения из другой книге. Списку в этом скрытом листе присваивают имя (Вставить - Имя - Присвоить), а в проверке данных вводят это имя.

[KL]

Два способа:

1) Макрофункции Excel4

Код: Выделить всё

Sub test()
    Dim strPath As String, strFile As String, strSheet As String
    Dim strList As String, i As Long, rng As Range
   
    strPath = "C:\Temp\"
    strFile = "Book1.xls"
    strSheet = "Лист1"
    strRange = "A1:A12"
    Set rng = Range(strRange)
   
    For i = rng.Row To rng.Rows.Count + rng.Row - 1
        If strList <> "" Then strList = strList & ","
        strList = strList & ExecuteExcel4Macro("'" & strPath & _
            "[" & strFile & "]" & strSheet & "'!" & rng(i).Address(, , xlR1C1))
    Next i
   
    With ActiveCell.Validation
        .Delete
        .Add xlValidateList, , , strList
    End With
End Sub

2) ADO с преобразованием массива в стринг. Общий вид ADO кода для импорта данных из закрытой книги здесь: http://www.erlandsendata.no/english/ind ... mportwbado

[KL]

Не пробовал, но, думаю, что есть как минимум еще два способа с использованием промежуточного ранга:

1) Сводная таблица (PivotTable) с внешними данными

2) Query

[Fugitive]

Спасибо, KL.
Воспользовался первым способом, НО если длина строки около 500 символов, метод Add выдет ошибку Run-time error '1004'.
Как-нибудь можно побороть ?

[KL]

Спасибо, KL.
Воспользовался первым способом, НО если длина строки около 500 символов, метод Add выдет ошибку Run-time error '1004'.
Как-нибудь можно побороть ?

Боюсь, что тут остается только отказаться от Validation и переходить на ComboBox-ы. Меня удивляет это: "...если длина строки около 500..." - я всегда думал, что ограничение 255.

Либо импортировать весь список в текущую книгу (например на лист скрытый с пом. Sheets("bla-bla-bla").Visible=xlSheetVeryHidden), присваивать ему (списку) имя и уже оттуда привязывать к Validation с пом. формулы.