Ширина выпадающего списка

[Python]

Добрый день! Проблема следущая: как сделать, чтобы выпадающий список был по ширине, как самая длинная запись в нем, а не по ширине ячейки, с которой он выпадает?
Тобишь есть список, к примеру, с такими данными: Шевченковский р-н, Поликлиника №1; Шевченковский р-н, Поликлиника №2; Шевченковский р-н, Поликлиника Центральная;. В выпадающем списке видно только: "Шевченковский р-н..."

[pashulka]

Если Вы имеете ввиду выпадающий список об'екта Validation (Данные-Проверка-Список), то этот список ориентируется на ширину ячейки и с этим фактом, видимо, придётся смириться. Однако, если автоподбор ширины выпадающего списка для Вас имеет принципиальное значение, то можно создать собственную панель инструментов, в т.ч. и контекстное меню, разместить на нём стандартный контрол msoControlDropdown/msoControlComboBox заполнить его и обязательно установить значение свойства DropDownWidth = -1. Последнее позволит получить список, ширина которого будет ориентироваться на самый длинный элемент списка, однако, максимальное количество символов в строке не должно превышать 255. В общем думайте, и если подобное решение Вас устроит, то я могу набросать готовый пример.

[Python]

К сожалению, не могу понять всего что Вы предлагаете. Я действительно пользуюсь стандартным способом (Данные-Проверка-Список). В предлагаемом Вами варианте, есть ли возможность ссылаться на определенный список?

[pashulka]

Собственно говоря, я всего лишь предложил программно, например, при открытии нужной рабочей книги, создать панель инструментов и расположить на ней стандартный список, такой как например, Шрифты. А при выделении нужной ячейки/диапазона ячеек отображать эту панель инструментов с целью выбора нужного элемента. Ссылаться этот список на ячейки рабочего листа не может, но мы можем заполнить его данными нужных ячеек или данными массива, например, при его создании или перед отображением.

[Python]

Впринципе такой вариант подходит. Только было бы неплохо, чтобы была возможность в дальнейшем этот список редактировать, а не только перед его созданием.

[pashulka]

Вот пример того, о чём я говорил ранее, кстати, там даже наличествует пример программного изменения ширины списка объекта Validation (только пользоваться этим способом особо не рекомендуется)

[Python]

Спасибо, Павел. Буду разбираться... Единственное, подскажите, пожалуйста, как изменить эту строку (я просто совсем не силен в VBA):

For Each iCell In Range([A2], [A65536].End(xlUp))

Так чтобы ссылка была на диапазаон A3:A150, в другом рабочем листе, под назвнием ЛПУ?

[pashulka]

Можно использовать имя рабочего листа :

Worksheets("ЛПУ").[A3:A150]
 
Worksheets("ЛПУ").Range("A3:A150")
 
Application.Range("ЛПУ!A3:A150")

A если существует вероятность его изменения, то можно предварительно проверить наличие рабочего листа с указанным именем или использовать кодовое, иначе называемое программное имя рабочего листа, которое также можно изменить, но сделать это немного сложнее, особенно, если "защитить" VBProject.
Кроме этого, можно использовать именованный диапазон или именованную формулу, которая будет возвращать ссылку на диапазон. В общем, вариантов масса, выбирайте, только обратите внимание на то, что в Вашем варианте диапазон указан как константа, т.е. увеличение списка не предполагается.

Лист2.[A3:A150]
 
Лист2.Range("A3:A150")

Скриншот с кодовым именем прилагается :

[pashulka]

Кстати, а вот и обновлённый пример, где вместо удаления элементов списка наличествует очистка, а источник данных располагается в другом рабочем листе.