Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Создание выпадающего списка из закрытой книги для нескольких пользователей (http://forum.oszone.net/showthread.php?t=344231)

artemu88 28-02-2020 13:00 2911259
Создание выпадающего списка из закрытой книги для нескольких пользователей
 
Вложений: 1
Добрый день!

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

Спасибо!

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

Iska 28-02-2020 18:10 2911312
artemu88, правильный ответ на этот вопрос — использовать в качестве СУБД именно СУБД, а не Рабочие книги Microsoft Excel.

artemu88 28-02-2020 20:01 2911326
Можно access базу создать, просто хотел узнать, как в ячейке реализовать выпадающий список из бд.

Iska 28-02-2020 21:01 2911332
Э… Вы не знаете, как это сделать программно? Или что? Я не пойму.

artemu88 29-02-2020 09:10 2911381
Да, не знаю, как написать код, который бы подключил бд к выпадающему списку в ячейке Ексель

Iska 29-02-2020 16:00 2911425
artemu88, тааак… У Вас же не элемент управления на Рабочей книге или на форме, а условие проверки.

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

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

artemu88 29-02-2020 18:48 2911452
Так я уже делал. Но нужна именно форма с элементом управления. Если без него, то наверное не получится ничего. Если можно, подскажите, как можно заполнить список из бд, например аксесс.

Iska 01-03-2020 01:44 2911479
Цитата:
Цитата artemu88
Но нужна именно форма с элементом управления. »
А там-то что не так? Там как раз не надо ничего выдумывать:
Скрытый текст

artemu88 01-03-2020 10:40 2911491
Понял.
Ели файл лежит в другой папке, то как тогда к нему обращаться, через кавычки ругается:
[D:\2.xlsx]Drivers!A1:A10

Iska 01-03-2020 12:53 2911500
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


Время: 06:33.

Время: 06:33.
© OSzone.net 2001-