Поле со списком успешно заполнено вчера, но сегодня не удалось - PullRequest
Новая
       32

Поле со списком успешно заполнено вчера, но сегодня не удалось

0 голосов
/ 07 октября 2019

Я использовал простой код для динамического заполнения поля со списком рабочих таблиц. В субботу поле со списком было успешно заполнено.

В воскресенье я поиграл с кодом, добавив новые элементы управления формы / новые коды. Затем внезапно заполнение поля со списком просто перестало заполнять значения, и сообщения об ошибке вообще не было.

Итак, я закрыл эту книгу, перезагрузил ноутбук и запустил новую книгу с очень простым кодом, который я получил успешнорезультат на сб. Тем не менее, это не работает, и это не дает мне никакого сообщения об ошибке.

Затем я попробовал код на другом ноутбуке с новой книгой Excel. На другом ноутбуке поле со списком успешно заполнено желаемыми значениями.

Что происходит с моим первым ноутбуком? Что я могу сделать, чтобы заполнение поля со списком снова заработало?

Код написан в рабочей таблице / Активировать среду. Вот код: 

Option Explicit

Private Sub Worksheet_Activate()

    Dim sh6 As Worksheet

    For Each sh6 In ThisWorkbook.Worksheets
        Me.Test2_cbbox.AddItem sh6.name
    Next sh6

End Sub

Ответы [ 2 ]

1 голос
/ 07 октября 2019 
Me.Test2_cbbox.AddItem sh6.name

- это синтаксис для ActiveX элемента управления

, а если ваш комбинированный список имеет элемент управления Form, используйте: 

Me.Shapes("Test2_cbbox").ControlFormat.AddItem sh6.Name
0 голосов
/ 07 октября 2019

Ссылка здесь определила мою проблему и предложила несколько решений. Пост № 13 от 16 декабря 14 в 8:22 - это то, что решает мою проблему. Спасибо всем за помощь.

Элементы управления Microsoft Excel ActiveX отключены?

...