Как создать список значений в Excel 2007?

[Stem79]

Здравствуйте, помогите, пожалуйста, решить несколько задач:

1.В ячейке A1 есть число 18, нужно в ячейке A2 создать список со значениями от 1 до 18 и в конце добавить слово ВСЕ.

2. Проделав пункт 1 Вы получите адрес строк столбцов с которых нужно начинать обработку данных на Листе 2. Проведите вычисления с 1 по 1 строку, с 2-по 2 строку и тд с 18 по 18. Вычисления по всем строкам организовать по выбору слова ВСЕ из созданного ранее списка.

Спасибо.

[DiemonStar]

нужно в ячейке A2 создать список со значениями от 1 до 18 и в конце добавить слово ВСЕ

что вы понимаете под словом список: выпадающий список или строку, содержащую элементы с разделителями? Или планируете внедрить объект содержащий список?

[Stem79]

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

что вы понимаете под словом список: выпадающий список или строку, содержащую элементы с разделителями? Или планируете внедрить объект содержащий список?

Под списком я понимаю выпадающий список значений от 1 до 18 и в конце списка слово ВСЕ.

[Serge_Bliznykov]

Stem, закладка "Данные" в подразделе "работа с данными" выбираете "Проверка данных" - "Проверка данных"
в открывшемся диалоговом окне "тип данных" - "Список"
в поле "Источник" укажите
1;2;3;4 и т.д. через точка с запятой;18; ВСЕ

всё.

[Stem79]

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

Stem, закладка "Данные" в подразделе "работа с данными" выбираете "Проверка данных" - "Проверка данных"в открывшемся диалоговом окне "тип данных" - "Список"
в поле "Источник" укажите
1;2;3;4 и т.д. через точка с запятой;18; ВСЕ
всё.

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

По вашему решению нужно указать диапазон, то есть создать отдельный столбец и внести значения в этот столбец от 1 до 18, а потом этот диапазон использовать через список.

в поле "Источник" насколько я знаю нельзя же задавать формулы расчета, только диапазон, а если можно, то как это задать, чтобы была выполнена постановка задачи.

Есть ячейка А1 со значением 18, на её базе нужно сформировать список значений от 1 до 18 в рядом стоящей ячейке А2.

[DiemonStar]

Sub List()
  Dim A()
  Cnt = [A1]
  ReDim A(Cnt)
  For I = 0 To Cnt - 1
    A(I) = I
  Next I
  A(Cnt) = "Âñå"
  If [A2].Validation.Formula1 <> "" Then [A2].Validation.Delete
  With [A2].Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(A, ", ")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
  End With
End Sub

вот так, например
значение в ячейку A1, список в ячейке A2

[Stem79]

DiemonStar, спасибо - разобрался!!!

[Serge_Bliznykov]

По вашему решению нужно указать диапазон, то есть создать отдельный столбец и внести значения в этот столбец от 1 до 18, а потом этот диапазон использовать через список.

Вы меня не поняли. Где я писал про отдельный столбец?!
в поле источник можно сразу прописать значения, дополнительного столбца НЕ НУЖНО!

а чтобы получить код макроса, перед тем, как это всё проделывать нужно просто напросто включить запись макроса...

[Stem79]

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

Вы меня не поняли. Где я писал про отдельный столбец?!
в поле источник можно сразу прописать значения, дополнительного столбца НЕ НУЖНО!

а чтобы получить код макроса, перед тем, как это всё проделывать нужно просто напросто включить запись макроса...

Да, Вы правы, спасибо, получилось!!!