Страницы: 1
RSS
вставка списка в combobox
 
добрый день. пытаюсь освоить combobox, listbox - столкнулся с проблемой:
есть макрос, который при переходе на Лист создает в ячейке F10 выпадающий список из значений строки другого листа. (макрос рабочий 100%)

Код
Private Sub Worksheet_Activate()
On Error GoTo exitsub
    Dim h$, j As Range
        For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
            If IsEmpty(j.Value) Then Else h = h & "," & j.Value
        Next
            h = Mid$(h, 2)
                With [F10].Validation
                  .Delete
                  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=h: .InCellDropdown = True
                End With
exitsub:
End Sub


подскажите как мне правильно прописать адрес ComboBox1, чтобы список отображался именно в ComboBox1

СПАСИБО
Изменено: brother_alex - 17.08.2018 23:45:45
 
фрагмент макроса:
Код
Private Sub Worksheet_Activate()
On Error GoTo exitsub
    Dim h$, j As Range
        For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
            If IsEmpty(j.Value) Then Else h = h & "," & j.Value
        Next
            h = Mid$(h, 2)
 exitsub:
End Sub


создает переменную h со списком через запятую. типа: 1,2,3,4,5

как этот перечень вставить в комбобокс, чтобы я мог выбирать одно из этих значений ?
Изменено: brother_alex - 18.08.2018 00:36:21
 
слепил вроде бы то что нужно, но есть проблема
в комбобоксе отображается не список, а все одной строкой
в чем там проблема ?
 
Код
Private Sub UserForm_Activate()
    Dim h$, j As Range
    For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
        If IsEmpty(j.Value) Then Else h = h & ", " & j.Value
    Next
    With UserForm1
        ComboBox1.List = Split(Mid$(h, 2), ",")
    End With
End Sub
Я сам - дурнее всякого примера! ...
 
спасибо - супер
 
Код
Private Sub UserForm_Activate()
Dim rRng As Range
    For Each rRng In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
        If Not IsEmpty(rRng.Value) Then ComboBox1.AddItem rRng.Value
    Next
End Sub
 
еще один вопрос если можно:
есть строка макроса в которой с листа находится адрес ячейки столбца по значению в ячейке F10
Код
A = Split(Columns([=MATCH(F10,DETALI!2:2,0)]).Address(0, 0), ":")(0) & "4"


как мне правильно указать вместо адреса ячейки F10 - pзначение из Combobox1 ?
 
Правильно - создать тему
Страницы: 1
Наверх