Список ActiveX игнорирует данные других листов

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список ActiveX игнорирует данные других листов (Макросы/Sub)

Dalm

Дата: Понедельник, 11.12.2023, 21:37 | Сообщение № 1

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

Ранг: Участник

Сообщений: 59

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

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

Excel 2019

Здравствуйте.
Помогите изменить выпадающий список ActiveX
Почему-то этот список не работает с другим листом.

Список ActiveX(комбибокс) - находится на Лист2
Данные , которые мне нужны в нем - я пытаюсь взять с "Лист St"
Но не получается, макрос игнорирует ссылку на другой лист и продолжает считывать данные с текущего листа.

Как поправить макрос, чтобы данные на другом листе - нормально считывались ?

Вот эта ссылка на другой лист - игнорируется
[vba]

Код

With ThisWorkbook.Worksheets("Лист St")
Arr1 = Range("G11:G40")
Arr2 = Range("A1:A2")
End With

[/vba]

Весь код выглядит так:
[vba]

Код

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    On Error Resume Next
    ComboBox1.Height = 20
    ComboBox1.Width = 700

Dim Arr1() As Variant
Dim Arr2() As Variant
Dim ОбьединенныйМассив() As Variant

With ThisWorkbook.Worksheets("Лист St")
Arr1 = Range("G11:G40")
Arr2 = Range("A1:A2")
End With

ОбьединенныйМассив = CombineArrays(Arr1, Arr2)
ОбьединенныйМассив = DeleteBlankRows(ОбьединенныйМассив)

myArray = WorksheetFunction.Transpose(ОбьединенныйМассив)
        Worksheets("Лист2").ComboBox1.List = myArray

End Sub

[/vba]

К сообщению приложен файл: 0630736.xls (63.5 Kb)

Сообщение отредактировал Dalm - Вторник, 12.12.2023, 05:06

Ответить

VovaK

Дата: Вторник, 12.12.2023, 09:29 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 116

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

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

10

Dalm,
ActiveX на листе очень капризный инструмент. Лучше создайте форму и вызывайте её с любого листа по событию SelectionChange. Так проще и безопаснее для Вашего проекта.

Всем удачи. У нас все получится.
С уважением, Владимир.