Re: Jak szukac arkusza w excelu?

Wielkie dzieki :-)
pozdrawiam
Antoni
>
> 4) Insert -> UserForm (pojawi sie UserForm1)
> 5) Umiesc w okienku UserForm1 kontrolke ComboBox.
> 6) Kliknij dwukrotnie ComboBox i, kasujac to, co juz jest w srodku, wklej do
> okna, ktore sie pojawi poniższy kod:
>
> Sub populateCombo()
> Dim tempWorksheet As Worksheet
> Dim x, totalSheets
> x = 1
> ComboBox1.Clear
> totalSheets = ThisWorkbook.Sheets.Count
> Do While x <= totalSheets
> Set tempWorksheet = Sheets(x)
> ComboBox1.AddItem (tempWorksheet.Name)
> x = x + 1
> Loop
>
> End Sub
>
> Sub DoesSheetExist()
> Dim wSheet As Worksheet
>
> On Error Resume Next
> Set wSheet = Sheets(ComboBox1.Text)
> If wSheet Is Nothing Then
> Set wSheet = Nothing
> On Error GoTo 0
> Else
> wSheet.Activate
> Set wSheet = Nothing
> On Error GoTo 0
> End If
> End Sub
>
> Private Sub ComboBox1_Change()
> DoesSheetExist
> End Sub
>
> Private Sub UserForm_Activate()
> populateCombo
> ComboBox1.SetFocus
> End Sub
>
> 7) Pozamykaj wszystkie okna i edytor VB
> 8) W Excelu: Narzedzia -> Makro -> Makra
> 9) Zaznacz i uruchom makro findWorkSheet
> 10) W rozwijanym menu masz Arkusze, a zeby znalezc konkretny - zacznij
> wpisywac jego nazwe.
>
> Znalezione tutaj: http://www.developerfusion.co.uk/show/2607/ i troche
> poprawione wg wskazowek komentujacych. Poobcinalem komentarze, coby sie
> linie nie pozawijaly.
>
> --
> Pozdrawiam - Piotrek
>

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl