Список в Exel Продолжение

[fizik_leha]

На листе есть список.
Как из VBA до него достучаться.

Например как при помощи макроса выбрать 5-й элемент этого списка.

[Tuco]

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

[fizik_leha]

основная проблема, то что в списке есть повторяющиеся значения.
Поэтому нельзя с помощью массива точно узнать положение элемента.

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

[fizik_leha]

Создал список per.
В тело листа вписал процедуру:

Private Sub per_click()
i = per.ListIndex
Sheets("ТТН-1 (1)").Range("P39").Value = i
End Sub

почему не работает?

[fizik_leha]

Private Sub Worksheet_change(ByVal target As Range)
If target.Address = "$C$39" Then
a = Range(c39).ListIndex - ОШИБКА
Sheets("ТТН-1 (1)").Range("P39").Value = Sheets("перечень").Cells(a + 3, 9)
End If
End Sub

Выдает ошибку 1004,
я так понял нельзя использовать метод Lastindex
но как иначе считать значение номера элемента списка.
range (c39) - список.

[GSerg]

Я не понял...
У тебя на объекте Worksheet расположен объект ListBox, или же под "списком" ты понимаешь совокупность ячеек объекта Worksheet?

[alibek]

Под ListBox он имеет ввиду тот ComboBox, который отображается на форме (который суть Shape).
Лучше всего, меняй значение ячейки, которая связана со списком.

[fizik_leha]

Под списком я подразумеваю стандартный Экселевский список, создаваемый с помощью:

Данные --> Проверка --> Тип Данных --> Список.

И он находится непосредственно на Листе, а не на форме.

Может кто подскажет как комбобокс на лист запихать, но чтоб он при печати не выводился и на листе не выделялся.
С ним бы проще было.

[alibek]

Какой ужас...
Фактически это не список и напрямую до него ты не достучишься.
Можешь заполучить для требуемой ячейки источник этого списка, найти пятый элемент и внести его значение в ячейку.
Application.Range(Application.ConvertFormula(Mid$(Selection.Validation.Formula1,2),xlA1, xlA1)).Cells(5) или что-то похожее