в ComboBox выпадающий список указать именованный диапазон
Gjlhzl
Дата: Вторник, 31.01.2023, 21:10 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Нарыл на просторах пример но что то не могу применить себе [vba]Код
Private Sub ComboBox1_Change() Dim xRg As Range Set xRg = Range(Me.ComboBox1.Text) Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRg As Range Set xRg = Range("Фрукт") Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg) End Sub
[/vba] выдает ошибку method range of object worksheet failed на строке [vba]Код
Set xRg = Range("Фрукт")
[/vba]
Нарыл на просторах пример но что то не могу применить себе [vba]Код
Private Sub ComboBox1_Change() Dim xRg As Range Set xRg = Range(Me.ComboBox1.Text) Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRg As Range Set xRg = Range("Фрукт") Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg) End Sub
[/vba] выдает ошибку method range of object worksheet failed на строке [vba]Код
Set xRg = Range("Фрукт")
[/vba] Gjlhzl
Ответить
Сообщение Нарыл на просторах пример но что то не могу применить себе [vba]Код
Private Sub ComboBox1_Change() Dim xRg As Range Set xRg = Range(Me.ComboBox1.Text) Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xRg As Range Set xRg = Range("Фрукт") Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg) End Sub
[/vba] выдает ошибку method range of object worksheet failed на строке [vba]Код
Set xRg = Range("Фрукт")
[/vba] Автор - Gjlhzl Дата добавления - 31.01.2023 в 21:10
Pelena
Дата: Вторник, 31.01.2023, 21:32 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19281
Репутация:
4446
±
Замечаний:
±
Excel 365 & Mac Excel
Можно так попробовать [vba]Код
Set xRg = Sheets("БД").ListObjects("Фрукт").ListColumns("Фрукт").DataBodyRange
[/vba] либо создать отдельное имя для столбца умной таблицы и его использовать для задания xRg
Можно так попробовать [vba]Код
Set xRg = Sheets("БД").ListObjects("Фрукт").ListColumns("Фрукт").DataBodyRange
[/vba] либо создать отдельное имя для столбца умной таблицы и его использовать для задания xRg Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Можно так попробовать [vba]Код
Set xRg = Sheets("БД").ListObjects("Фрукт").ListColumns("Фрукт").DataBodyRange
[/vba] либо создать отдельное имя для столбца умной таблицы и его использовать для задания xRg Автор - Pelena Дата добавления - 31.01.2023 в 21:32
Gjlhzl
Дата: Вторник, 31.01.2023, 21:56 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Pelena , применид ошибка subscript out of range vba excel в строке [vba]Код
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
[/vba]
Pelena , применид ошибка subscript out of range vba excel в строке [vba]Код
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
[/vba]Gjlhzl
Ответить
Сообщение Pelena , применид ошибка subscript out of range vba excel в строке [vba]Код
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
[/vba]Автор - Gjlhzl Дата добавления - 31.01.2023 в 21:56
Pelena
Дата: Вторник, 31.01.2023, 22:01 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19281
Репутация:
4446
±
Замечаний:
±
Excel 365 & Mac Excel
см. файл
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение см. файл Автор - Pelena Дата добавления - 31.01.2023 в 22:01
Gjlhzl
Дата: Вторник, 31.01.2023, 22:04 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Pelena , спасибо все работает
Pelena , спасибо все работаетGjlhzl
Ответить
Сообщение Pelena , спасибо все работаетАвтор - Gjlhzl Дата добавления - 31.01.2023 в 22:04
Gjlhzl
Дата: Среда, 01.02.2023, 09:04 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Pelena , Доброе утро, подскажите пожалуйста а как прописать несколько ComboBox1,ComboBox2 и тд в [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/vba] все по аналогии но вып списки с различных именованных диапазонов
Pelena , Доброе утро, подскажите пожалуйста а как прописать несколько ComboBox1,ComboBox2 и тд в [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/vba] все по аналогии но вып списки с различных именованных диапазоновGjlhzl
Ответить
Сообщение Pelena , Доброе утро, подскажите пожалуйста а как прописать несколько ComboBox1,ComboBox2 и тд в [vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/vba] все по аналогии но вып списки с различных именованных диапазоновАвтор - Gjlhzl Дата добавления - 01.02.2023 в 09:04
Pelena
Дата: Среда, 01.02.2023, 17:48 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19281
Репутация:
4446
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте. Приложите файл, в котором уже естьнесколько ComboBox1,ComboBox2
и различные именованные диапазоны. Немного некогда самой всё рисовать
Здравствуйте. Приложите файл, в котором уже естьнесколько ComboBox1,ComboBox2
и различные именованные диапазоны. Немного некогда самой всё рисовать Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Здравствуйте. Приложите файл, в котором уже естьнесколько ComboBox1,ComboBox2
и различные именованные диапазоны. Немного некогда самой всё рисовать Автор - Pelena Дата добавления - 01.02.2023 в 17:48
Gjlhzl
Дата: Среда, 01.02.2023, 18:38 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Pelena , вот пример
Ответить
Сообщение Pelena , вот примерАвтор - Gjlhzl Дата добавления - 01.02.2023 в 18:38
Pelena
Дата: Среда, 01.02.2023, 19:29 |
Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19281
Репутация:
4446
±
Замечаний:
±
Excel 365 & Mac Excel
Как-то так. В файле ещё альтернативный вариант с именами
Как-то так. В файле ещё альтернативный вариант с именами Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Как-то так. В файле ещё альтернативный вариант с именами Автор - Pelena Дата добавления - 01.02.2023 в 19:29
Gjlhzl
Дата: Среда, 01.02.2023, 19:42 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
0
±
Замечаний:
0% ±
Pelena , Спасибо, отлично.
Pelena , Спасибо, отлично.Gjlhzl
Ответить
Сообщение Pelena , Спасибо, отлично.Автор - Gjlhzl Дата добавления - 01.02.2023 в 19:42