Мне необходимо при активации ячейки в Exel чтоб появлялось поле со списком (список заполнялся из другого листа) и при выборе, значения, оно появлялось в ячейке

Вот начало макроса:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
y = 2
x = 2
qq = Cells(x, y).Address
If Target.Cells.Address = qq Then
ComboBox1.Clear
For i = 3 To 6
ww = Sheets("Ëèñò2").Cells(i, 2).Value
ComboBox1.AddItem ww
Next i
ComboBox1.Visible = True
ComboBox1.Activate
End If
End Sub


Это сообщение отредактировал(а) gas1979 - 2.6.2005, 12:11

есть ли смысл использовать Combobox, можно ведь присвоить имя необходимому диапазону с данными и использовать его в качестве источника списка (данные-проверка-списки)

Можно, но как?

-выделяешь необходимый диапазон с данными для списка.
-вставка-имя-присвоить-указываешь имя
-выбирашь необх. ячейку
-данные-проверка-списки-указываешь созданное имя

Через комбоБокс получилось, вот:

Private Sub ComboBox1_Change()
If ComboBox1.Visible Then
y = 2
x = 2
Cells(x, y).Value = ComboBox1.Value
ComboBox1.Visible = False
End If
End Sub

Если по другому, напиши код

Код

ActiveWorkbook.Names.Add Name:="MyName", RefersToR1C1:="=List3!R1C1:R5C1" Range("b2").Validation.Delete ActiveSheet.Range("b2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=  xlBetween, Formula1:="=MyName"

заключай примеры кода в теги, облегчишь задачу не только себе, но и окружающим
[cоde=vb]
''''''''''''''
[/code]

ps. читай внимательно топики, прежде чем задавать аналогичные вопросы на других форумах

Это сообщение отредактировал(а) likhobory - 2.6.2005, 16:53

Код

Private Sub ComboBox1_Change() Cells(1, 1).Value = ComboBox1.Text End Sub Private Sub Worksheet_Activate() Dim spisok(3 To 6) Dim i As Integer ComboBox1.Clear For i = 3 To 6       spisok(i) = Лист2.Cells(i, 1)       ComboBox1.List = spisok Next End Sub

Присоединённый файл ( Кол-во скачиваний: 11 )
 список.rar

Люди, подскажите, пожалуйста. Делаю команду поле со списком. Выделяю диапозон, указываю число строк в диапозоне. Указываю ячейку, к которой привязываю. У меня список 80 строк. Когда раскрываю список они отображаются не все. Бегунка справа для прокрутки нет  . И не появляется. Что делать? На других компьютерах делается с бегунком. Дело в каких то настройках?

Модератор: Пожалуйста, один топик - один вопрос.