UserForm - ListBox

[Cyberax]

Короче програмка выглядит так (образно)

For each s in ListBox1.List()
If s = ListBox1.Value Then
Load s
s.Show
End if
Next s

Так вот мне надо чтобы она работала, а она не работает. Подскажите кто-нибудь если я понятно излагаю свою мысль. Спасибо.

[RayShade]

Не. Не понятнто совсем, что хочется делать. Если в листе список форм, и надо показать выбранную - то, это просто UserForms(List1.ListIndex).Show



А если что то еще - то тогда пиши по русски

[KL]

Может вот так:

Код: Выделить всё

Private Sub ListBox1_Click()
    Dim UF As Object
    Set UF = VBA.UserForms.Add(ListBox1.Value)
    UF.Show
End Sub

[KL]

... то, это просто UserForms(List1.ListIndex).Show...

Если речь об Excel, то совет RayShade не сработает, т.к. UserForms это коллекция загруженных UserForm. Перед тем как ее вызывать придется загружать все UserForms (Load UserForm1: Load UserForm2: Load UserForm3 ...), а это заколдованный круг И не все так происто с порядком ListIndex и индексами загруженных UserForm.

[Cyberax]

Начнем сначала
У мнея есть некоторый список ABC, ABD, ABF. UserForm переиминованы под этот список (ABC, ABD, ABF). Когда значение s (в программе) совпадает с выбранным значением из ListBox должна загружаться соответствующая UserForm'a.

[$€rg]

а что мешает загрузить все формы в нужном порядке АВС первой индекс=0 АВД второй индекс равен 1 и т. д. и по индексу из списка выбирать RayShade пример привел

[KL]

Начнем сначала
У мнея есть некоторый список ABC, ABD, ABF. UserForm переиминованы под этот список (ABC, ABD, ABF). Когда значение s (в программе) совпадает с выбранным значением из ListBox должна загружаться соответствующая UserForm'a.

Может лучше почитаешь все сначала. Тебе было предложено 2 решения. Прилагаю пример моего.

[KL]

а что мешает загрузить все формы в нужном порядке АВС первой индекс=0 АВД второй индекс равен 1 и т. д. и по индексу из списка выбирать RayShade пример привел

Все равно придется использовать названия листов при загрузке

Код: Выделить всё

Load UserForm1
Load UserForm2
Load UserForm3
UserForms(ListBox1.Index).Show

но тогда зачем огород городить

Код: Выделить всё

select case ListBox1.Index
case 0: UserForm1.Show
case 1: UserForm2.Show
case 2: UserForm3.Show
End Select

[Cyberax]

Спасибо всем за помощь я уже разобрался.