Подготовка даных для списка в макросе

[tae1980]

Создаю списко вручную, указываю строку вида "111;222;333". Список создался.
Создал функцию котораю возращает подобную строку. Создал переменную в которой прописан вызов этой функции. Но список не создается... :(( Ругается мол нужны ли ячейки либо, данные с разделителем.
Как быть? Что делать?

Пример прилагается...

[mchip]

Для проверки данных используется либо список созданный в ручную, либо диапазон ячеек с значениями.
В твоем случае ты пытаешься создать список из одной ячейки.
вариант 1: сразу передай список макросом для установки проверки условия
вариант 2: раскидай список по ячейкам и укажи их диапазон. Тогда при смене значения в ячейке будет меняться содержимое списка.

Я правильно понял вопрос?

[tae1980]

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

Для проверки данных используется либо список созданный в ручную, либо диапазон ячеек с значениями.
В твоем случае ты пытаешься создать список из одной ячейки.
вариант 1: сразу передай список макросом для установки проверки условия
вариант 2: раскидай список по ячейкам и укажи их диапазон. Тогда при смене значения в ячейке будет меняться содержимое списка.

Я правильно понял вопрос?

Спасибо! Попробую нужные макросы.

[EducatedFool]

А что, код из этой темы уже не создаёт выпадающий список в ячейке?

Можете попробовать такой вариант:

Sub test()
    AddValidation [a4], СписокЗначений
End Sub

Sub AddValidation(ByRef ce As Range, ByVal Список As String)
        With ce.Validation    ' формируем выпадающий список
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                 xlBetween, Formula1:=Список
            .IgnoreBlank = True: .InCellDropdown = True
        End With
End Sub

Function СписокЗначений() As String
    sep = ", "
    For i = 1 To 10
        СписокЗначений = СписокЗначений & sep & "Значение " & i
    Next
    СписокЗначений = Mid(СписокЗначений, 2)
End Function

[tae1980]

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

А что, код из этой темы уже не создаёт выпадающий список в ячейке?

Можете попробовать такой вариант:

Sub test()
    AddValidation [a4], СписокЗначений
End Sub

Sub AddValidation(ByRef ce As Range, ByVal Список As String)
        With ce.Validation    ' формируем выпадающий список
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                 xlBetween, Formula1:=Список
            .IgnoreBlank = True: .InCellDropdown = True
        End With
End Sub

Function СписокЗначений() As String
    sep = ", "
    For i = 1 To 10
        СписокЗначений = СписокЗначений & sep & "Значение " & i
    Next
    СписокЗначений = Mid(СписокЗначений, 2)
End Function

Ранее необходимо было создать список. Теперь стоит иная задача, в уже созданный список подать другие данные.
Это я пытаюсь решить задачу с вводом адреса. Есть идея написать макрос который подготавливал бы данные для списка из ходя из параметров. Подготовить данные оказалась не проблема, а вот передать их в список пока не удаётся.
Вроде как бы данные при указании диапазона ячеек представляют собой массив, но попытка создать массив и подсунуть его удалась... Почему-то постоянно возвращался 0. Хотя возможно и я где-то напортачил...

[mchip]

Так выложи файл

[vasok]

Нужна помощь...

Подскажите как реализовать сие в excel_2007:

1.)фокусировку на первом элементе выпадающего списка.

2.)имеется три списка:Города,Районы и Улицы, у каждого города - свои районы, у каждого района - свои улицы. Необходимо реализовать ввод данных в ячейку таблицы двумя способами:

Первый-выбор допустимых значений из раскрывающегося списка (если в ячейке А1 в качестве города выбран Нижний, тогда в раскрывающимся списке ячейки В1 должны находиться только районы Нижнего...у улиц такаяже привязка к районам)

Второй-ввод значения вручную, при этом в случае совпадения 2 или более символов (анализируются совпадения с аналогичными данными: вводим город - проверяем посимвольно начала названий городов, в случае если название города состоит из двух слов, проверяем на совпадение начало обоих слов) у пользователя появляется возможность выбора искомого варианта из раскрывающегося списка

3.)в базе данных пользователь задаёт критерии поиска при нажатии кнопки ПОИСК в таблице отображаются все варианты, удовлетворившие критерию поиска, также рядом с каждым вариантом добавляектся кнопка(1клик-появляется галка, два-галка исчезает)...
Вопрос: как осуществить автоматическую привязку макроса к каждой кнопке (количество появляющихся кнопок соответствует количеству вариантов, удовлетворивших критерию)

4.) Как написать макрос, котоый потом удалял бы эту самую кнопку

Если какой-то из вопросов задан не потеме-просьба киньте ссылку на тему, в которой следует его поместить...

ЗАРАНЕЕ СПАСИБО, буду очень признателен любым вариантам реализации...

[tae1980]

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

Так выложи файл

Первые функции были умышленно стерты. Сейчас воссоздал их заново. Вот файл...
Макросы test44 и test77 заносят в переменные внешне похожие данные (массивы). Но в екселе они выглядят по разному (строка "A"), и список на основе функции не работает... (