UserForm.ComboBox.RowSource как указать диапазон

Пользователь

Сообщений: 13 Регистрация: 01.01.1970

03.02.2012 07:50:45

Добрый день. Появилась следующая проблема: был создан код для книги в которой присутствует форма и UserForm1.ComboBox8.RowSource ссылался на именованный диапазон одного из листа. Затем эта книга сохраняется в виде надстройки. Как UserForm1.ComboBox8.RowSource указать на диапазон именно надстройки а не рабочей книги? Ну извращенного типа UserForm1.ComboBox8.RowSource=ThisWorkbook.Sheets("data").Range("данные"), где ThisWorkbook.Sheets("data") лист надстройки. Было UserForm1.ComboBox8.RowSource = "данные". Возможно ли такое?

Fox

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 03.02.2012 10:01:37 Private Sub UserForm_Initialize() ComboBox8.RowSource = ThisWorkbook.Names("данные").RefersToRange.Address(external:=True) End Sub

Guest Гость	#3 03.02.2012 10:43:07 {quote}{login=Казанский}{date=03.02.2012 10:01}{thema=}{post}Private Sub UserForm_Initialize() ComboBox8.RowSource = ThisWorkbook.Names("данные").RefersToRange.Address(external:=True) End Sub{/post}{/quote} Сильно благодарен Казанский. Спасибо

lapink2000

Пользователь

Сообщений: 2186 Регистрация: 01.01.2013

03.02.2012 15:18:54

Так тоже должно действовать:

Private Sub UserForm_Initialize()
ComboBox8.RowSource = ThisWorkbook.Sheets("data").Range("данные").Address(external:=True)
End Sub

и так тоже:

'Лист1 заменить на внутреннее имя листа (CodeName)
Private Sub UserForm_Initialize()
ComboBox8.RowSource =
Лист1.[данные].Address(external:=True)
End Sub

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#5 03.02.2012 17:10:37 Не совсем точно по вопросу " как указать диапазон", но все же можно не заморачиваться с указанием диапазона, а сразу загонять данные в ComboBox8, примерно так: UserForm1.ComboBox8.List=ThisWorkbook.Sheets("data").Range("данные").Value Редко но метко ...

Читают тему