1 (изменено: segail, 2019-03-03 23:52:52)

Тема: VBA: Заголовок динамической таблицы в ComboBox

Здравствуйте.
Каким образом можно отобразить (путем загрузки или в свойствах объекта) в выпадающем списке объекта ComboBox (excel) заголовки динамической таблицы (tabl_group)?

Post's attachments

список3.xlsm 21.1 kb, 3 downloads since 2019-03-03 

You don't have the permssions to download the attachments of this post.

2

Re: VBA: Заголовок динамической таблицы в ComboBox

Option Explicit
Private Sub UserForm_Activate()
    Dim i As Long, Text As String
    With ActiveWorkbook.ActiveSheet.UsedRange
        ComboBox1.Value = .Cells(1, 1).Text
        For i = 1 To .Columns.Count
            Text = .Cells(1, i).Text
            If Text <> "" Then ComboBox1.AddItem .Cells(1, i).Text
        Next
    End With
End Sub

Наверное как-то так.

Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !