Альтернатива выпадающему списку.

[valerij]

Каким образом - исполнить?

Я всё делаю стандартно - Данные - .... Список .. и диапазон, но, так задействованы ячейки.
А как сделать без данных в ячеек?
Типа обращение не к ячейкам, а к ~ в макросе.

В примере - яч. e-h как заменить на переменные???

P/ S/
Почему ту у меня режим Конструктора не активный, попытка его активировать, привело к ужасной, долгой загрузке екселя 2010, пришлось даже переставить образ винды!!

[Hugo121]

Данные - .... Список .. и перечисление через разделитель (у меня ";") - это ответ как не задействовать ячейки. Про переменные не понял - но можно эту строку генерить и в макросе из переменных, но есть ограничение по длине строки (кстати может в 2010/13 пофиксили, никто не в курсе?)

[valerij]

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

(у меня ";") - это ответ как не задействовать ячейки.

Забыл дописать.....
Да, так тоже делал, но в макросе - как?
Рекодером - так

With Selection.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1;2;3"
    End With

Как вставить переменные, в место 1;2;3 - ?

Цифры - имя месяца - у меня или имена листов, т. е. xx = Sheets(1).Name(1), yy = Sheets(2).Name(2), zz = Sheets(3).Name(3)

[gling]

Записал макрорекордером

Sub Макрос1()
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$3"
    End With
End Sub

если вместо "=$A$1:$A$3"записать переменную отображающую массив данных, возможно и получиться.
Или так попробовать

Sub Макрос1()
    Dim a As Long, b As Long, c As Long, d As Long
    a = 1
    b = 2
    c = 3
    d = 4
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c & "," & d
    End With
End Sub

У меня в список формируется через запятую, а не через ; как у вас. Вместо a, b, c, d, ставьте ваши переменные

[IgorGO]

Sub Макрос1()
  Dim s As String
  s = "1,2,3,4,valerij,Hugo121,gling,IgorGO"
  With Cells(1, 4).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
  End With
End Sub

собрать в строку s произвольный список значений разделенных запятой, как два байта отослать! и вуаля... в Д1 - выпадающий список значений.

[valerij]

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

З Вместо a, b, c, d, ставьте ваши переменные

вставил - ошибка

Sub Макрос1()
    Dim a As Long, b As Long, c As Long, d As Long
    a = Sheets(1).Name
    b = Sheets(2).Name
    c = Sheets(3).Name
    d = 0
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c & "," & d
    End With
End Sub

а-а, увидел!!

Sub Макрос1()
    Dim a As String, b As String, c As String, d As Long
    a = Sheets(1).Name
    b = Sheets(2).Name
    c = Sheets(3).Name
    d = 0
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c & "," & d
    End With
End Sub

Дякую!!!
Спасибо!!!

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

[valerij]

А чё ошибку выбивает?
Жмём на Лист4!!!!

[IgorGO]

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c
    End With

что бы начать движение - нужно сняться с "ручника"

[valerij]

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

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c
    End With

что бы начать движение - нужно сняться с "ручника"

Тю - .....
А у меня куда делась строка - .Delete???

барабашка в доме!!!!!!!!!!!

Мужики - честно, очки искал три дня, всё перевернул....

А потом гляжу, а они сверху на телеке появились...

Я не пьющий!!!!!!!!!!

[Hugo121]

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