Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Userform
nie mam pojecia




Typ: neutral
Postów: 15
Zarejestrowany: May 2005
Userform

mam mały problem chciałbym zrobić w activx userforma w którym byłby międzyinnymi combobox i teraz moje wołanie o pomoc Jak zrobić by:
combobox pobierał nazwy wszystkich arkuszy i gdy użytkownik wybierze dany arkusz z comboboxa to żeby mu się ten wybrany arkusz otwierał.


_____________________________________________
Mariusz

09-05-2005 10:36
Pokaż profil nie mam pojecia  Wyślij email do nie mam pojecia   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Mariuszu

Można tak na przykład:

Private Sub UserForm_Initialize()
Dim oArk As Worksheet
With Me.CmbArkusze
    ' nie ma być edytowany tylko wybierać arkusze
    .Style = fmStyleDropDownList
    For Each oArk In ThisWorkbook.Sheets
        .AddItem oArk.Name
    Next
    ' zawsze jest co najmniej 1-den arkusz nie trzeba ListCount sprawdzać
    ' a jeśli ma być od razu 1-szy aktywowany
    '.ListIndex = 0

End With
End Sub

Private Sub CmbArkusze_Click()
' lecz ja bym wolała osobny przycisk zatwierdzający żądanie aktywacji
' wybranego arkusza bo tak to niewprawny użytkownik będzie
' "migał tymi arkuszami"
' ponizszelinijki przeniosłabym do zdarzenia Click tego przycisku
' użyłeś słowa otwierał ..... skoro masz na myśli Arkusz a nie Skoroszyt (XLS) to Activate ???

With Me.CmbArkusze
    If .ListIndex >= 0 Then
        ThisWorkbook.Sheets(.Column(0, .ListIndex)).Activate
    End If
End With
End Sub

[Post edytowany dnia 09-05-2005 11:39 przez karolinavb]


_____________________________________________
Karolina

09-05-2005 11:37
Pokaż profil karolinavb  Wyślij email do karolinavb   
nie mam pojecia




Typ: neutral
Postów: 15
Zarejestrowany: May 2005

Dzieki Karolinka

Działa idealnia powiedz mi jeszcze jedno czy jest mozliwośc by nie było w combobox arkuszy ukrytych.


_____________________________________________
Mariusz

09-05-2005 11:56
Pokaż profil nie mam pojecia  Wyślij email do nie mam pojecia   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

.........(Office XP)

If Not (oArk.Visible = xlSheetHidden Or  oArk.Visible = xlSheetVeryHidden) Then
            .AddItem oArk.Name
End If

[Post edytowany dnia 09-05-2005 13:51 przez karolinavb]


_____________________________________________
Karolina

09-05-2005 13:51
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1