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
karolinavb
Typ: neutral Postów: 467 Zarejestrowany: Jan 2003
MariuszuMożna tak na przykład:Private Sub UserForm_Initialize()Dim oArk As WorksheetWith 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 = 0End WithEnd SubPrivate 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 IfEnd WithEnd Sub [Post edytowany dnia 09-05-2005 11:39 przez karolinavb]_____________________________________________Karolina
09-05-2005 11:37
nie mam pojecia
Typ: neutral Postów: 15 Zarejestrowany: May 2005
Dzieki KarolinkaDziała idealnia powiedz mi jeszcze jedno czy jest mozliwośc by nie było w combobox arkuszy ukrytych. _____________________________________________Mariusz
09-05-2005 11:56
karolinavb
Typ: neutral Postów: 467 Zarejestrowany: Jan 2003
.........(Office XP)If Not (oArk.Visible = xlSheetHidden Or oArk.Visible = xlSheetVeryHidden) Then .AddItem oArk.NameEnd If [Post edytowany dnia 09-05-2005 13:51 przez karolinavb]_____________________________________________Karolina
09-05-2005 13:51
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20