Диапазон выпадающего списка из столбцов разных таблиц!

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Диапазон выпадающего списка из столбцов разных таблиц! (Формулы/Formulas)

Krix

Дата: Вторник, 07.08.2018, 14:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Каким Макаром можно связать столбцы несколько таблиц, чтобы они отображались в выпадающем списке!

К сообщению приложен файл: 4356755.xlsx (11.6 Kb)

Ответить

sboy

Дата: Вторник, 07.08.2018, 16:08 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Применено несколько Макаров

К сообщению приложен файл: 4356755.xlsm (25.3 Kb)

Яндекс: 410016850021169

Ответить

Krix

Дата: Вторник, 07.08.2018, 16:29 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо!

А как тоже самое сделать, только с элементом управления формой "Поле со списком"?

Ответить

sboy

Дата: Вторник, 07.08.2018, 17:01 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Так это и есть "Поле со списком" только элемент управления ActiveX

Яндекс: 410016850021169

Ответить

Krix

Дата: Среда, 08.08.2018, 09:10 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Хотелось бы сделать тоже самое именно с таким "полем со списком" (не ActiveX), так как все остальные манипуляции привязаны именно к нему!
Может есть какая-то хитрая формула? Подскажите плиз!!!

Ответить

sboy

Дата: Среда, 08.08.2018, 10:33 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

как вариант, скопировать все данные на скрытый лист
[vba]

Код

Private Sub Workbook_Open()
    Sheets(5).UsedRange.ClearContents
    r = 1
    For s = 2 To 4
        With Sheets(s): arr = Range(.Cells(2), .Cells(.Rows.Count, 2).End(xlUp)).Value: End With
        With Sheets(5): .Cells(r, 1).Resize(UBound(arr), 1).Value = arr: End With
        r = r + UBound(arr)
    Next
    With Sheets(1)
        .Activate
        .Shapes.Range(Array("Drop Down 3")).Select
    End With
        Selection.ListFillRange = Sheets(5).Name & "!A1:A" & r - 1
    [a1].Select
End Sub

[/vba]