VBA - [решено] Создание выпадающего списка из закрытой книги для нескольких пользователей

[artemu88]

Добрый день!



Есть 2 книги ексель. Одна с бд, другая с формой для заполнения.

Вопрос: как сделать выпадающий список в книге с формой, который бы ссылался на диапазон ячеек в книге с бд так, чтобы могли работать несколько пользователей.

Или хотя бы один.



Спасибо!



Книги во вложении

Вложения

Примеры.rar

(10.18 КБ) 0 скачиваний

Примеры.rar

(10.18 КБ) 0 скачиваний

[Iska]

artemu88, правильный ответ на этот вопрос — использовать в качестве СУБД именно СУБД, а не Рабочие книги Microsoft Excel.

[Iska]

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

[artemu88]

Э… Вы не знаете, как это сделать программно? Или что? Я не пойму.

[Iska]

Да, не знаю, как написать код, который бы подключил бд к выпадающему списку в ячейке Ексель

[artemu88]

artemu88, тааак… У Вас же не элемент управления на Рабочей книге или на форме, а условие проверки.

Создание раскрывающегося списка - Служба поддержки Office

.

Добавление и удаление элементов раскрывающегося списка - Служба поддержки Office

Используйте источником ту же Рабочую книгу, где производится ввод данных.

[artemu88]

Так я уже делал. Но нужна именно форма с элементом управления. Если без него, то наверное не получится ничего. Если можно, подскажите, как можно заполнить список из бд, например аксесс.

[artemu88]

Цитата artemu88:



Но нужна именно форма с элементом управления.

VBA - [решено] Создание выпадающего списка из закрытой книги для нескольких пользователей

А там-то что не так? Там как раз не надо ничего выдумывать:



Скрытый текст

[spoiler][/spoiler]

[artemu88]

Понял.

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

[D:\2.xlsx]Drivers!A1:A10

[artemu88]

artemu88, тогда так:



Код:

Код: Выделить всё

Option Explicit
Private Sub UserForm_Initialize()
    With Workbooks.Open("C:\Мои проекты\0301\Примеры\0001\Drivers.xls")
        Me.ComboBox1.List = .Worksheets.Item("Водители").Range("A2:A4").Value
        .Close SaveChanges:=False
    End With
End Sub