Увеличить длинну выпадающего списка больше 8 строк

[agregator]

Увеличить длинну выпадающего списка больше 8 строк можно, но не работает копировать ячейку-вставить. Как это исправить?

[EducatedFool]

Этот пример я делал лишь в целях демонстрации, поэтому там много что не работает.

Чтобы были доступны функции копировать - вставить, надо немного изменить макрос (см. вложение)

Теперь выпадающий список отображается при двойном щелчке в желтых ячейках.

[agregator]

Как сделать, чтобы данные выпадающего списка брались из другой, неоткрытой книги Excel?

[agregator]

Например так. Вносим в рабочую книгу, потом удаляем.
Const ValidationList = "N1:N10"
Public Events As Boolean
Private Sub ComboBox1_Change()
If Not Events Then Exit Sub
ActiveCell.Value = Me.ComboBox1.Value
HideCombo
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b4:e6]) Is Nothing Or Target.Cells.Count > 1 Then HideCombo: Exit Sub
Cancel = True: Events = False
Me.ComboBox1.Top = Target.Top: Me.ComboBox1.Left = Target.Left
Me.ComboBox1.Width = Target.Width + 16: Me.ComboBox1.Height = Target.Height
FillCombo
Events = True
End Sub
Sub FillCombo()
Me.ComboBox1.Clear
Dim Path, File, List As String
Path = "C:\Папка с файлом\" 'Путь к папке с Вашим файлом
File = "Товары.xls" 'имя файла
List = "Список" ' Имя листа
Range("N1:N10").Formula = "='" & Path & "[" & File & "]" & List & "'!" & "A1"
Range("N1:N10") = Range("N1:N10").Value
For Each cell In Range("N1:N10").Cells
Me.ComboBox1.AddItem cell
Next
Me.ComboBox1.ListRows = Range("N1:N10").Cells.Count
Me.ComboBox1.Value = ActiveCell.Value: Me.ComboBox1.Font.Size = 6
Range("N1:N10").ClearContents
End Sub
Sub HideCombo()
Me.ComboBox1.Top = 0: Me.ComboBox1.Left = 0: Me.ComboBox1.Width = 0: Me.ComboBox1.Height = 0
End Sub
Как сделать, чтобы данные выпадающего списка брались из другой, неоткрытой книги Excel и не вносились в рабочую книгу, а брались из памяти?

[ser_zorg]

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

Этот пример я делал лишь в целях демонстрации, поэтому там много что не работает.

Чтобы были доступны функции копировать - вставить, надо немного изменить макрос (см. вложение)

Теперь выпадающий список отображается при двойном щелчке в желтых ячейках.

Практически идеально, только ещё бы добавить возможность прокрутки!

[EducatedFool]

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

Практически идеально, только ещё бы добавить возможность прокрутки!

С прокруткой сделать сложно, но теоретически можно.

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